產生 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!"