ich habe mit vielen Tipps und Hilfen dieser HP mein Programm soweit am Laufen.
Dabei führe ich eine exe-Datei aus, die eine zuvor gespeicherte CSV-Datei benutzt und nach der Ausführung eine neue CSV-Datei erstellt.
Mein Programm-Code bis hierhin:
Application.Wait (Now + TimeValue("0:00:01"))
Application.DisplayAlerts = False
ChDir "H:\Verchromungsdatenbank\Daten"
ActiveWorkbook.SaveAs Filename:="C:\Test\daten\liste.csv", _
FileFormat:=xlCSVMSDOS, CreateBackup:=False
Application.DisplayAlerts = True
Application.Wait (Now + TimeValue("0:00:01"))
Dim strDeinProgramm As String
strDeinProgramm = "C:\Test\Programm.exe"
ChDir "C:\Test"
Call Shell(Environ("COMSPEC") & " /C " & strDeinProgramm, vbHide)
Application.Wait (Now + TimeValue("0:00:01"))
Leider beinhaltet die von der exe-Datei erstellte csv-Datei nur gähnende Leere.
Wenn ich danach die exe-Datei von Hand aus dem Explorer starte und auch die zuvor erstellte liste.csv benutze, dann erstellt das Programm eine csv-Datei mit gewünschtem Inhalt !!!
Das klappt also nur nicht, wenn ich mein VB-Programm ausführe.
Hab ich nen Fehler im Quelltext ?
Ich hab mittlerweile viel auspobiert, komme aber als Anfänger nicht mehr weiter.
Z.B. wurde die exe-Datei ohne die Zeile "ChDir "C:\Test"" nicht ausgeführt, weil Daten, die das exe-Programm braucht nicht gefunden wurde.
Liegt vielleicht da noch mein Fehler ?
Über Eure Hilfe würde ich mich freuen.
Vielen Dank und Grüße von der Mosel
Dirk