Hallo Zusammen,
hat jemand eine Idee wie ich über ein VB Script eine PDF Datei zu einem Excel konvertieren kann?
Am besten mit Aufforderung zum eintragen vom Source Pfad (PDF) und Destination Pfad (Excel) .
Anschliessend soll das Excel File per Email versendet werden.
Ich habe dies mit VBA unsauber gelöst (siehe unten). Jedoch würde ich es gerne über ein VB Script lösen. Bekomme es jedoch nicht hin. Anfänger
Vielen Dank im Voraus.
CodeTags gesetzt ~VaporiZed
hat jemand eine Idee wie ich über ein VB Script eine PDF Datei zu einem Excel konvertieren kann?
Am besten mit Aufforderung zum eintragen vom Source Pfad (PDF) und Destination Pfad (Excel) .
Anschliessend soll das Excel File per Email versendet werden.
Ich habe dies mit VBA unsauber gelöst (siehe unten). Jedoch würde ich es gerne über ein VB Script lösen. Bekomme es jedoch nicht hin. Anfänger
Vielen Dank im Voraus.
Visual Basic-Quellcode
- Sub PDFtoExcel_Klicken()
- Dim varRetVal As Variant, PathToPDF As String, strCommand As String
- PathToPDF = "\\ws0440\Fehlmengen\*.pdf"
- strCommand = "C:\Program Files (x86)\Adobe\Acrobat DC\Acrobat\Acrobat.exe " & PathToPDF
- ' Use Shell Function to open Adobe Acrobat Reader
- varRetVal = Shell(strCommand, 1)
- ' wait
- Application.Wait Now + TimeValue("00:00:03")
- 'First select all data of PDF file, next copy to clipboard
- SendKeys "%d" 'Datei
- SendKeys "t" 'exportieren
- SendKeys "b"
- SendKeys "e"
- SendKeys "~"
- SendKeys "{TAB}"
- SendKeys "~"
- 'Wait
- Application.Wait Now + TimeValue("00:00:01")
- 'Close Acrobat Reader or PDF file
- SendKeys "%{F4}"
- Dim Nachricht As Object, OutlookApplication As Object
- Set OutlookApplication = CreateObject("Outlook.Application")
- Dim Anhang As String
- Anhang = "C:\winapp\1.xlsx"
- Set Nachricht = OutlookApplication.CreateItem(0)
- With Nachricht
- .To = " [email=test@test.com]test@test.com[/email] ; [email=test@test.com]test@test.com[/email] "
- .cc = " [email=test@test.com]test@test.com[/email] "
- .Subject = " Fehlmengen Batch "
- .attachments.Add Anhang
- .Display
- End With
- Set OutlookApplication = Nothing
- Set Nachricht = Nothing
- End Sub
CodeTags gesetzt ~VaporiZed
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()