星期三, 9月 09, 2009

產生 100萬 筆資料的excel檔案(測試用)
Dim objFSO
Dim objStream
Set objFSO = createobject("scripting.filesystemobject")
Set objStream = objFSO.CreateTextFile("test.csv", True)
for i=1 to 100000
buf=""
for j=1 to 10
buf = buf & i & "000" & j & ","
next
buf=buf & "1"
objStream.Writeline buf
next
msgbox "Done!"
張貼留言