ªð¦^¦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 : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD