返回列表 上一主題 發帖

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
收藏 分享

y663258

帖子
52 
主題
13 
精華
0 
積分
119 
點名
0  
作業系統
xp 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-5-6 
最後登錄
2022-6-7 
2#
發表於 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

        靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。
返回列表 上一主題