pdf¥t¦s·sÀÉ( ¤å¦rÀÉ)¥i¥H¥Îvba¾Þ§@¶Ü
- ©«¤l
- 52
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 119
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-6
- ³Ì«áµn¿ý
- 2022-6-7
|
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½Ð¥ý¶įó§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 |
|
|
|
|
|
|
- ©«¤l
- 52
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 119
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-6
- ³Ì«áµn¿ý
- 2022-6-7
|
«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 |
|
|
|
|
|
|
- ©«¤l
- 133
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 147
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2024-9-9
|
¦^´_ 1# y663258
¬O¶}±Ò PDF «á,¥t¦s¬° txt Àɮ׶Ü? ¸Õ¸ÕSendKey¤è¦¡- Sub test()
- Set WSh = CreateObject("WScript.Shell")
- WSh.Run "D:\§@·~\¤½¤å\·s¨t²Î\BrCl029mView4.PDF" '¶}±Ò pdf ÀÉ®×
-
- Application.Wait (Now + TimeValue("0:00:5")) '¼È°±5¬í(µ¥Ô¶}±ÒÀÉ®×)
-
- SendKeys "%F" '¶}±ÒÀÉ®×¥\¯à¿ï¶µ
-
- Application.Wait (Now + TimeValue("0:00:1")) '¼È°±1¬í
-
- SendKeys "V" '¦s¦¨¤å¦rÀÉ
-
- Application.Wait (Now + TimeValue("0:00:1")) '¼È°±1¬í
-
- SendKeys "D:\§@·~\¤½¤å\·s¨t²Î\BrCl029mView4.txt"
-
- Application.Wait (Now + TimeValue("0:00:1")) '¼È°±1¬í
-
- SendKeys "{Enter}" '«ö¤U Enter ¶}©l¦sÀÉ(.txt)
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|