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.

愛情的經典名言

阿斗仔的經典名言:
Love is blind, blind with love
愛情是盲目的, 當愛來臨時什麼都看不到.

中國人說:
情人眼裡出西施
不管別人說: 你的情人如何如何, 她都是最美的.

越南人說:
Yêu là khổ, Không yêu là lỗ, Thà là lỗ đỡ hơn khổ.
愛是苦的, 不愛是虧的, 就算吃虧也比苦好.

所謂旁觀者清, 當局者迷.

2008誰當老大及往後走勢

選前一週就作好了, 為了不要給自己找麻煩, 所以到今天才發出來.
_______________________________________
這是ㄓㄨ哥預言(也就是偶啦):2008誰當老大及往後走勢

馬上仍蕭條
台灣難長昌
心繫眾生苦
甭管誰來當

以上就以看官們的見解了, 看圖說故事嗎別太認真了, 別打我!!!