ich habe eine VBA-Funktion geschrieben, die Tabellenblätter als XML-Dateien ausgibt. Diese Dateien können vom Benutzer später per HTML-Formular an ein PHP-Script im WWW gesendet werden. Funktioniert auch alles tadellos.
Jetzt kam die Anforderung, die Dateien schon direkt nach der Erstellung automatisch abzuschicken. Dazu starte ich zunächst den Internet Explorer mit der entsprechenden URL:
Function WebLink()
Dim pfad As String
Dim appIE As Object
pfad = "_URL/test_script.php"
Set appIE = CreateObject("InternetExplorer.Application")
With appIE
.Navigate pfad
.Visible = True
.Width = 400
.Height = 500
End With
End Function
Natürlich bringt das PHP-Script daraufhin eine Fehlermeldung, weil ich ja die zu verarbeitende Datei nicht mit angegeben habe. Und genau das ist mein Problem. Wie kann ich dem Script per VBA den Dateinamen mitgeben, so als ob er von einem HTML-Formular kommt? Als absoluter HTML-Newie habe ich einfach mal ausprobiert, was mir so in den Sinn kam:
pfad = "_URL/test_script.php C:\tmp\test.xml"
pfad = "_URL/test_script.php?file=C:\tmp\test.xml"
pfad = "_URL/test_script.php?uploadfile=C:\tmp\test.xml"
...
Hab leider kein Glück gehabt, immer die selbe Fehlermeldung. Kann mir jemand helfen?
Viele Grüße
Dirk
ps: Hier der Quellcode des HTML-Formulars:
_form action="_URL/test_script.php" method="post" enctype="multipart/form-data">
_input type="file" name="uploadfile">
_input type="submit" value="upload">
_>
Da muss ich nur den Dateinamen "C:\tmp\test.xml" eintragen und auf "upload" klicken.