Binärdateitransport über VBA
08.08.2003 18:31:09
Felix
wie kann ich eine Binärdatei in einer Exceldatei transportieren. Zur ausführung des Makroprogramms wird sie auf dem Zielsystem benötigt, muss also dort zuvor abgespeichert werden. Mein erster Ansatz war sie als Paket-Object in Excel einzubinden und dann über die Zwischenablage zu kopieren:
Dim Task1 As Double
ActiveSheet.Shapes("Binärdateiobject").Select
Selection.Copy
Task1 = Shell("Explorer.exe /n c:\", vbHide)
AppActivate Task1
SendKeys "^(V)"
SendKeys "%{F4}"
aber das scheitert daran, dass ich den Explorer nicht zur aktiven Task machen kann (warum auch immer).
Dank & Gruß Felix