ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¦]¤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

¦^´_ 1# y663258

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

  2.     Set WSh = CreateObject("WScript.Shell")
  3.     WSh.Run "D:\§@·~\¤½¤å\·s¨t²Î\BrCl029mView4.PDF"      '¶}±Ò pdf ÀÉ®×
  4.    
  5.     Application.Wait (Now + TimeValue("0:00:5"))    '¼È°±5¬í(µ¥­Ô¶}±ÒÀÉ®×)
  6.    
  7.     SendKeys "%F"  '¶}±ÒÀÉ®×¥\¯à¿ï¶µ
  8.    
  9.     Application.Wait (Now + TimeValue("0:00:1"))    '¼È°±1¬í
  10.    
  11.     SendKeys "V"   '¦s¦¨¤å¦rÀÉ
  12.    
  13.     Application.Wait (Now + TimeValue("0:00:1"))    '¼È°±1¬í
  14.    
  15.     SendKeys "D:\§@·~\¤½¤å\·s¨t²Î\BrCl029mView4.txt"
  16.    
  17.     Application.Wait (Now + TimeValue("0:00:1"))    '¼È°±1¬í
  18.    
  19.     SendKeys "{Enter}"  '«ö¤U Enter ¶}©l¦sÀÉ(.txt)

  20. End Sub
½Æ»s¥N½X

TOP

«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

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD