pdf另存新檔( 文字檔)可以用vba操作嗎

因工作上需要每次多以手動方式，先開啟該pdf檔再另存新檔(文字檔)於同資料夾中想用vba，自己看說明併湊出如下但FileFormat:=xlText 不是BrCl029mView4.PDF，ActiveWorkbook會是我開啟執行vba的excel可以改成已開啟的BrCl029mView4.PDF符合需求。請先進們協助謝謝。
  file_name = "D:\作業\公文\新系統\BrCl029mView4.PDF"
  ActiveWorkbook.FollowHyperlink file_name, , True
  ActiveWorkbook.SaveAs Filename:= _
  "D:\作業\公文\新系統\BrCl029mView4.txt", FileFormat:=xlText _
, CreateBackup:=False

樓主熱帖

jackdream

　暱稱: Jack

中學生 Rank: 2

帖子: 133
主題: 9
精華: 0
積分: 147
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2024-11-11

2^#

發表於 2010-9-29 16:43 | 只看該作者

回復 1# y663258

是開啟 PDF 後,另存為 txt 檔案嗎? 試試SendKey方式

Sub test()
Set WSh = CreateObject("WScript.Shell")
WSh.Run "D:\作業\公文\新系統\BrCl029mView4.PDF" '開啟 pdf 檔案
Application.Wait (Now + TimeValue("0:00:5")) '暫停5秒(等候開啟檔案)
SendKeys "%F" '開啟檔案功能選項
Application.Wait (Now + TimeValue("0:00:1")) '暫停1秒
SendKeys "V" '存成文字檔
Application.Wait (Now + TimeValue("0:00:1")) '暫停1秒
SendKeys "D:\作業\公文\新系統\BrCl029mView4.txt"
Application.Wait (Now + TimeValue("0:00:1")) '暫停1秒
SendKeys "{Enter}" '按下 Enter 開始存檔(.txt)
End Sub

複製代碼

TOP

y663258

中學生 Rank: 2

帖子: 52
主題: 13
精華: 0
積分: 119
點名: 0
作業系統: xp
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-5-6
最後登錄: 2022-6-7

3^#

發表於 2010-9-30 09:37 | 只看該作者

非常感謝jackdream 解決我的困擾也學一招，再次請問加上Application.ScreenUpdating = False
會什麼不能關畢影幕更新。
[code][/code] Set WSh = CreateObject("WScript.Shell")
WSh.Run "D:\作業\公文\新系統\BrCl029mView4.PDF"    '開啟 pdf 檔案
Application.ScreenUpdating = False

Application.Wait (Now + TimeValue("0:00:1")) '暫停5秒(等候開啟檔案)

SendKeys "%F"  '開啟檔案功能選項

Application.Wait (Now + TimeValue("0:00:01")) '暫停1秒

SendKeys "V" '存成文字檔

Application.Wait (Now + TimeValue("0:00:01")) '暫停1秒

SendKeys "D:\作業\公文\新系統\BrCl029mView4.txt"

Application.Wait (Now + TimeValue("0:00:01")) '暫停1秒
   SendKeys "{Enter}"  '按下 Enter 開始存檔(.txt)
SendKeys "S"

Application.Wait (Now + TimeValue("0:00:01"))
   SendKeys "Y"

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

' SendKeys "{Enter}"  '按下 Enter 開始存檔(.txt)
Opwb = ThisWorkbook.Path & "\BrCl029mView4.txt"
Workbooks.Open Opwb
Windows("BrCl029mView4.txt").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Workbooks.Open Filename:="D:\作業\公文\新系統\公文資料輸入.xls"
   Cells.Select
Range("B29").Activate
ActiveSheet.Paste
Windows("BrCl029mView4.txt").Activate
Application.ScreenUpdating = True
   Workbooks.Open Filename:="D:\作業\公文\新系統\公文.xls"
End Sub

TOP