www.Russ-Jesteburg.de > Excel > VBA > Datei

Dateiaufruf über temporäre Batch-Datei:

Sub Dateiaufruf_ueber_Batchdatei()
    Dim Datei As String
    Datei = ThisWorkbook.Path & Application.PathSeparator & "Temp_Aufruf.bat"
    Open Datei For Output As 1
    Print #1, ThisWorkbook.Path & Application.PathSeparator & "MeineExceldatei.xls"
    Close #1
    Shell (Datei)
    Kill Datei
End Sub

Dieser Tipp ist vom 09.09.2005