返回列表 上一主題 發帖

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

y663258

帖子
52 
主題
13 
精華
0 
積分
119 
點名
0  
作業系統
xp 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-5-6 
最後登錄
2022-6-7 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-9-28 10:08 | 只看該作者

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方式
  1. Sub test()

  3.     Set WSh = CreateObject("WScript.Shell")
  4.     WSh.Run "D:\作業\公文\新系統\BrCl029mView4.PDF"      '開啟 pdf 檔案
  5.    
  6.     Application.Wait (Now + TimeValue("0:00:5"))    '暫停5秒(等候開啟檔案)
  7.    
  8.     SendKeys "%F"  '開啟檔案功能選項
  9.    
  10.     Application.Wait (Now + TimeValue("0:00:1"))    '暫停1秒
  11.    
  12.     SendKeys "V"   '存成文字檔
  13.    
  14.     Application.Wait (Now + TimeValue("0:00:1"))    '暫停1秒
  15.    
  16.     SendKeys "D:\作業\公文\新系統\BrCl029mView4.txt"
  17.    
  18.     Application.Wait (Now + TimeValue("0:00:1"))    '暫停1秒
  19.    
  20.     SendKeys "{Enter}"  '按下 Enter 開始存檔(.txt)

  22. End Sub
複製代碼

TOP

y663258

帖子
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

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題