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

[µo°Ý] ¦p¦ó±Nºô­¶¤¤ªºªí®æª½±µ¦s¦¨Excel©Î¬OCSVÀÉ

¦^´_ 4# sasho
  1. Sub Ex()
  2.     With Workbooks.Open("http://mopsov.tse.com.tw/nas/t06sa18/201101/A01_2330_201101.htm")
  3.         .SaveAs "D:\TEST\A01_2330_201101.XLS"
  4.     End With
  5. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD