VBSCRIPT : 從交易所網站下載前一日法人交易資料匯入EXCEL

Dim ExcelSheet, y, m, d, c, f

y=Cstr(year(date))m=Cstr(month(date))

REM 取日期並減一天
d=Cstr(day(date)-1)

REM 判斷月長度是一要在左補0
if len(m)=1 then c=y+"0"+m else c=y+m

REM 判斷日長度是一要在左補0
if len(d)=1 then c=c+"0"+d else c=c+d

f="http://www.tse.com.tw/ch/trading/fund/TWT38U/TWT38U_print.php?edition=ch&filename=genpage/A"
Set ExcelSheet = CreateObject("Excel.application")
ExcelSheet.Visible = True
ExcelSheet.Workbooks.Open(f)
ExcelSheet.Cells(1, 1).Value="資訊日期: "+c

只要將程式碼存成 檔名.VBS 執行後會自動從交易所網站下載前一日法人交易資料並匯入EXCEL.