ªð¦^¦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¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD