Hallo zusammen,
ich habe hier das Problem, dass das Makro jede Zeile der PDF in eine extra Zeile der Exceltabelle kopiert und nicht in die jeweilige
Kann mir da jemand weiterhelfen?
Grüße
Heinrich
Sub Testmakro()
Dim Datei, Dateiname As String
Dim i As Long
For i = 2 To 4
Dateiname = Range("A" & i).Text
Datei = "C:\XXXX\" & Dateiname & ".pdf"
ActiveWorkbook.FollowHyperlink Datei
SendKeys "^a", True
SendKeys "^c", True
SendKeys "%{F4}"
Range("B" & i).PasteSpecial xlPasteAll
Range("A" & i).Select
ActiveCell.Offset(1, 0).Select
Next i
End Sub
Zelle.
|