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

[µo°Ý] VBA ¤U¸üºô­¶ÀÉ®×

[µo°Ý] VBA ¤U¸üºô­¶ÀÉ®×

¥»©«³Ì«á¥Ñ li_hsien ©ó 2014-3-27 11:44 ½s¿è

ÂÇ¥ÑEXCELÀx¦s®æ¿é¤J¤å¥ó½s¸¹
«ö¤U«ö¶s¤U¸üºô¯¸¤W³o¥÷¤å¥ó½s¸¹ªºÀÉ®×

¥H¤U¬O§Úª¦¤å«áªì¨Bªº¼gªk

¥Ñ©ó­n¤U¸üÀɮ׻ݭn¸g¹L¤T­Óºô¯¸µe­±

§Ú¤w¸g¯à¨ì³Ì«á©ñÀɮתº¨º­Óµe­±¤F

¥i¬OÀɮפ£ª¾«ç»ò¤U¸ü¤U¨Ó

¦ý¥Ñ©óºô¯¸¬O¤½¥q¤º³¡ºô¯¸

©Ò¥HÂsÄý¤£¨ì ¤p§Ì§Ú¶È¯àªþ¹Ï ·Ð½Ð«ü±Ð  ÁÂÁÂ

²Ä¤@­Óµe­±
¿é¤J½s¸¹(§ìA1Äæ¦ìªº­È)«ö¤U·j´M
p1.jpg
2014-3-27 11:31


¶i¨ì²Ä¤G­Óµe­±
¦Aª½±µÂI¿ï½s¸¹¦WºÙ(¶W³sµ²)
p2.jpg
2014-3-27 11:32


¶i¨ì²Ä¤T­Óµe­±
¬õ®Ø³¡¤À¬°§Ú­n¤U¸üªºPDFÀÉ(ÀɦW­×§ï¬°EXCELÀx¦s®æA1ªº­È)
p3.jpg
2014-3-27 11:33


¥Ø«e¤p§Ì»yªk¯à°÷¨ì²Ä¤T­Óµe­±

¥i¬O¤£ª¾Àɮצp¦ó¤U¸ü¤U¨Ó

¥t¥~ §Ú·Q¦b¤U¸ü¤U¨Ó«á
¦^¨ìµe­±1¡A·s¿é¤JEXCELÀx¦s®æA2ªº­È
Ä~Äò¤U¸üPDFÀÉ
  1. Option Explicit
  2. Sub ¸ê°Tºô­¶()
  3.     Dim A As Object, B As Object
  4.     With CreateObject("InternetExplorer.Application")
  5.         .Visible = True
  6.         .Navigate "ºô§}"

  7.         Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
  8.       
  9.             For Each A In .document.getelementSbyTAGNAME("INPUT")
  10.                 If A.Name = "number" Then A.Value = Range("A1")     '¦bEXCELªí³æ¿é¤J©Ò­n·j´Mªº­È
  11.                 If A.Value = "·j´M" Then
  12.                     A.Click     '«ö¤U ·j´M
  13.                     Exit For
  14.                 End If
  15.             Next
  16.             
  17.             Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
  18.             
  19.             For Each B In .document.getelementSbyTAGNAME("A")
  20.             
  21.                 If B.innerText = Range("A1") Then     '¦AÂI¤J·j´M¨ìªº­È(¶W³sµ²¤è¦¡)
  22.                     B.Click  
  23.                     Exit For
  24.                 End If
  25.                
  26.             Next

  27.     End With

  28. End Sub
½Æ»s¥N½X
³Â·Ð¦U¦ì¤j¤j  ÁÂÁÂ
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

§Ú«á¨Óª¦¤å§ä¨ìªº¤è¦¡
¤j¦h³£¬O³o¼Ë¤U¸üªº
  1. URLDownloadToFile 0, "¨Ó·½ºô§}", "¥Øªº¸ô®|", 0, 0
½Æ»s¥N½X
¥i¬O¦n¹³¥u¾A¥Î¦b¤U¸üªºÀɮצì¸m³Ì«áÅã¥Ü¬°°ÆÀɦW(.pdf)

¦ý§Úªººô¯¸³Ì«á¤£¬O.pdf

¥i¬O¥L¹ê»Ú¤WÂI¶i¥h´N¬O¤@¥÷PDFÀÉ

¥u¬O§Ú­nÂI®ÇÃ䪺Àx¦s¡A©Î¬O¹ï¶W³sµ²«ö¥kÁä¥t¦s

¤£ª¾«ç¼Ë¤~¯à¥Î»yªk¤U¸ü



½Ð±Ð¦U¦ì¤j¤j

ÁÂÁÂ
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD