Excel openen vanuit Visio

[Haaren101]

Ik probeer vanuit Visio met een macro een Excel file te openen. Deze macro moet de file openen en als de file al open is dan hoeft alleen een ander sheet geselecteerd te worden.

Sub ShowData()
Dim wrkFile As Workbook

    On Error Resume Next
        Set wrkFile = Workbooks("StraksData.xls")

    If wrkFile Is Nothing Then
        Dim appXl As Excel.Application
        Set appXl = New Excel.Application
        appXl.Visible = True
        Workbooks.Open "StraksData.xls"
    Else
        ' nothing yet
    End If
    ' raar probleem hier, na het openen werkt het niet, in de tweede pass wel
    wrkFile.Sheets("Sheet2").Select
End Sub

Het gedrag is nogal onvoorspelbaar. Soms gaat de file open maar wordt de laatste select niet uitgevoerd. Soms, wordt op de 2e uitvoering een read-only copy geopend. Soms gaat het goed in de tweede uitvoering. En soms wordt wel een excel opgestart (controle in taakbeheer) en gebeurt er verder niets op het scherm.

HELP!

Ron

 

[Haaren101]

Ik had al een idee dat het een moeilijke vraag zou zijn. Maar helemaal geen response valt wel erg tegen.
Dus VB(A) kenners: jullie mening, input en opmerkingen worden gewaardeerd!

Ron

 

[Warme bakkertje]

Sub ShowData()
Dim wrkFile As Workbook
Dim appXl As New Excel.Application
    On Error Resume Next
        Set wrkFile = Workbooks("StraksData.xls")
        If wrkFile Is Nothing Then
        appXl.Visible = True
        Workbooks.Open "[COLOR="red"]D:\Mijn documenten\[/COLOR]StraksData.xls"
    Else
        ' nothing yet
    End If
    ' raar probleem hier, na het openen werkt het niet, in de tweede pass wel
    [COLOR="red"]ActiveWorkbook[/COLOR].Sheets("Sheet2").Select
End Sub

Op deze manier werkt het vanuit XL. Pas nog wel het pad aan bij Open.
Of deze het doet in Viso weet ik niet, want ik heb daar nog nooit mee gewerkt (moest zelfs opzoeken wat het eigenlijk was)
Oorzaak van de lauwe respons is in mijn geval dus niet de VBA-kennis, maar de kennis van Visio.

 

[Haaren101]

Ach, je bent nooit te oud om te leren!
Maar, het werkt wel! Kan in de toekomst nog lastig worden met het vaste pad naar mijn documenten maar dat lossen we dan wel weer op

Bedankt
Ron

 

[Warme bakkertje]

Zet je de vraag dan nog even op opgelost