Вставить файл PDF с помощью Pastespecial - PullRequest
Новая
       6

Вставить файл PDF с помощью Pastespecial

0 голосов
/ 19 ноября 2018

Вот мой код, который копирует и вставляет PDF-файл в лист Excel.

Но!После импорта PDF в Excel появляется значение даты.Это 02/01/2019 в PDF, и изменить на 01/02/2019 в Excel.Я думаю, что это проблема формата?Но измените «01/02/2019» на дату, после того как импорт бесполезен… это все равно будет неправильная дата. 

Option Explicit
Sub pdf_to_excel_adobe()

Dim myWorksheet As Worksheet
Dim adobeReaderPath As String
Dim pathAndFileName As String
Dim shellPathName As String

Set myWorksheet = ActiveWorkbook.Worksheets("Adobe Reader")

myWorksheet.Cells.Clear

adobeReaderPath = "C:\AcroRd32.exe"
pathAndFileName = "Z:\TS.pdf"
shellPathName = adobeReaderPath & " """ & pathAndFileName & """"

Call Shell( _
    pathname:=shellPathName, _
    windowstyle:=vbNormalFocus)

Application.Wait Now + TimeValue("0:00:03")

SendKeys "%vpc"
SendKeys "^a"
SendKeys "^c"

Application.Wait Now + TimeValue("0:00:30")

Windows("NTT.xlsm").Activate
ActiveWorkbook.Worksheets("Adobe Reader").Activate
Range("A1").Select
ActiveSheet.Paste

Call Shell("TaskKill /F /IM AcroRd32.exe", vbHide)

End Sub
...