pdf¥t¦s·sÀÉ( ¤å¦rÀÉ)¥i¥H¥Îvba¾Þ§@¶Ü

y663258

¦]¤u§@¤W»Ý­n¨C¦¸¦h¥H¤â°Ê¤è¦¡¡A¥ý¶}±Ò¸ÓpdfÀɦA¥t¦s·sÀÉ(¤å¦rÀÉ)©ó¦P¸ê®Æ§¨¤¤·Q¥Îvba¡A¦Û¤v¬Ý»¡©ú¨Ö´ê¥X¦p¤U¦ýFileFormat:=xlText ¤£¬OBrCl029mView4.PDF¡AActiveWorkbook·|¬O§Ú¶}±Ò°õ¦ævbaªºexcel¥i¥H§ï¦¨¤w¶}±ÒªºBrCl029mView4.PDF²Å¦X»Ý¨D¡C½Ð¥ý¶i­Ì¨ó§UÁÂÁ¡C
  file_name = "D:\§@·~\¤½¤å\·s¨t²Î\BrCl029mView4.PDF"
  ActiveWorkbook.FollowHyperlink file_name, , True
  ActiveWorkbook.SaveAs Filename:= _
  "D:\§@·~\¤½¤å\·s¨t²Î\BrCl029mView4.txt", FileFormat:=xlText _
   , CreateBackup:=False

y663258

«D±`·PÁÂjackdream ¸Ñ¨M§Úªº§xÂZ¤]¾Ç¤@©Û¡A¦A¦¸½Ð°Ý¥[¤WApplication.ScreenUpdating = False
    ·|¤°»ò¤£¯àÃö²¦¼v¹õ§ó·s¡C
[code][/code] Set WSh = CreateObject("WScript.Shell")
    WSh.Run "D:\§@·~\¤½¤å\·s¨t²Î\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"   '¦s¦¨¤å¦rÀÉ
      
    Application.Wait (Now + TimeValue("0:00:01"))    '¼È°±1¬í
   
    SendKeys "D:\§@·~\¤½¤å\·s¨t²Î\BrCl029mView4.txt"
   
    Application.Wait (Now + TimeValue("0:00:01"))    '¼È°±1¬í
     SendKeys "{Enter}"  '«ö¤U Enter ¶}©l¦sÀÉ(.txt)
    SendKeys "S"
   
   Application.Wait (Now + TimeValue("0:00:01"))
     SendKeys "Y"
   
   Application.Wait (Now + TimeValue("0:00:01"))
   
   ' SendKeys "{Enter}"  '«ö¤U Enter ¶}©l¦sÀÉ(.txt)
    Opwb = ThisWorkbook.Path & "\BrCl029mView4.txt"
    Workbooks.Open Opwb
    Windows("BrCl029mView4.txt").Activate
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Workbooks.Open Filename:="D:\§@·~\¤½¤å\·s¨t²Î\¤½¤å¸ê®Æ¿é¤J.xls"
     Cells.Select
    Range("B29").Activate
    ActiveSheet.Paste
    Windows("BrCl029mView4.txt").Activate
    Application.ScreenUpdating = True
     Workbooks.Open Filename:="D:\§@·~\¤½¤å\·s¨t²Î\¤½¤å.xls"
End Sub

jackdream

¦^´_ 1# y663258

¬O¶}±Ò PDF «á,¥t¦s¬° txt Àɮ׶Ü? ¸Õ¸ÕSendKey¤è¦¡

1. Sub test()
   
2. 
   
3.     Set WSh = CreateObject("WScript.Shell")
   
4.     WSh.Run "D:\§@·~\¤½¤å\·s¨t²Î\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"   '¦s¦¨¤å¦rÀÉ
    
13.    
    
14.     Application.Wait (Now + TimeValue("0:00:1"))    '¼È°±1¬í
    
15.    
    
16.     SendKeys "D:\§@·~\¤½¤å\·s¨t²Î\BrCl029mView4.txt"
    
17.    
    
18.     Application.Wait (Now + TimeValue("0:00:1"))    '¼È°±1¬í
    
19.    
    
20.     SendKeys "{Enter}"  '«ö¤U Enter ¶}©l¦sÀÉ(.txt)
    
21. 
    
22. End Sub

½Æ»s¥N½X