- 帖子
- 8
- 主題
- 2
- 精華
- 0
- 積分
- 10
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- office 2007
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 汐止
- 註冊時間
- 2015-2-25
- 最後登錄
- 2015-3-12
|
[發問] 想請益要如何能夠選取pdf檔案後再複製貼上到excel上
各位神人日安
小弟每天要打開pdf，複製貼上到excel 然後再排版後轉成另一個pdf
這樣的動作要重複很多次，
因此想要能夠用VBA做，選取一個pdf，然後把他用VBA在excel上編排漂亮一點後再轉成另一個pdf的動作
連最前面開啟pdf後複製再開啟excel貼上的動作，搞了老半天都搞不定。
google爬了半天竟然發現沒太多人有跟我一樣的疑問@@，有外國朋友是分享用sendkeys的方式，
但是我怎麼搞都搞不定，請問有沒有哪位大神有辦法救救小弟，萬分感謝 <(_ _)>
附件是範本的pdf檔跟想轉成的excel格式
我寫的有錯誤，但是不知道錯在哪- Sub 巨集4()
- Dim vFile As String
-
- '抓檔案
- vFile = Application.GetOpenFilename(FileFilter:="Text Files (*.pdf),*.pdf", Title:="選擇檔案")
- If StrComp(TypeName(vFile), "Boolean", vbTextCompare) = 0 Then Exit Sub
-
- CreateObject("Scripting.FileSystemObject").Run (vFile)
- SendKeys ("^a"), True
- SendKeys ("^C"), True
- With Workbooks.Add
- With .Sheets(1)
- SendKeys ("^V"), True
- End With
- .SaveAs sName & "_改" & ".xlsx"
- .Close
- End With
- '
- End Sub
|
|
發表於 2015-3-6 11:15
| 
