Board logo

標題: [發問] 想請益要如何能夠選取pdf檔案後再複製貼上到excel上 [打印本頁]
作者: flowrew    時間: 2015-3-6 11:15     標題: 想請益要如何能夠選取pdf檔案後再複製貼上到excel上

各位神人日安

小弟每天要打開pdf，複製貼上到excel 然後再排版後轉成另一個pdf
這樣的動作要重複很多次，
因此想要能夠用VBA做，選取一個pdf，然後把他用VBA在excel上編排漂亮一點後再轉成另一個pdf的動作
連最前面開啟pdf後複製再開啟excel貼上的動作，搞了老半天都搞不定。
google爬了半天竟然發現沒太多人有跟我一樣的疑問@@，有外國朋友是分享用sendkeys的方式，
但是我怎麼搞都搞不定，請問有沒有哪位大神有辦法救救小弟，萬分感謝  <(_ _)>

附件是範本的pdf檔跟想轉成的excel格式

我寫的有錯誤，但是不知道錯在哪
  1. Sub 巨集4()

  3.     Dim vFile As String
  4.    
  5.     '抓檔案
  6.     vFile = Application.GetOpenFilename(FileFilter:="Text Files (*.pdf),*.pdf", Title:="選擇檔案")
  7.     If StrComp(TypeName(vFile), "Boolean", vbTextCompare) = 0 Then Exit Sub
  8.    
  9.     CreateObject("Scripting.FileSystemObject").Run (vFile)

  11.     SendKeys ("^a"), True
  12.      SendKeys ("^C"), True
  13.      With Workbooks.Add
  14.             With .Sheets(1)
  15.             SendKeys ("^V"), True
  16.             End With
  17.             .SaveAs sName & "_改" & ".xlsx"
  18.             .Close
  19.         End With

  21. '
  22. End Sub
複製代碼
作者: diolin    時間: 2015-3-6 13:47

Office 2013 似乎可以直接開 PDF

你可以試試, 這樣會簡單的多
作者: flowrew    時間: 2015-3-6 15:41

Office 2013 似乎可以直接開 PDF

你可以試試, 這樣會簡單的多
diolin 發表於 2015-3-6 13:47


之前就有試過，但是會被破壞
作者: bobomi    時間: 2015-3-6 17:28

加個 sleep 看看?
http://www.blueshop.com.tw/board/FUM200501271723350KG/BRD20090507101059Q4E.html



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)