返回列表 上一主題 發帖

[發問] 如何將超過65536筆以上的資料放入活頁簿(已解決^^)

[發問] 如何將超過65536筆以上的資料放入活頁簿(已解決^^)

本帖最後由 巴克斯 於 2011-5-28 09:06 編輯

EX:
文字檔: test.txt (筆數會超過65536,總筆數:未知)

希望程式依序將65536筆資料放入各工作表
sheet1   1-65536筆
sheet2   65537-131072筆
sheet3   ...以此類推到最末筆

請教須如何做較快速?

本帖最後由 巴克斯 於 2011-5-28 09:03 編輯

謝謝版主回覆
執行後發生錯誤訊息
編譯錯誤: 使用者自訂型態尚未定義

偵錯為
    Dim fso As Scripting.FileSystemObject
   Dim myTxt As Scripting.TextStream

麻煩版主看看是否可修訂,謝謝

TOP

謝謝兩位板主的幫忙
兩種方式都成功了
比我原來土法煉鋼快速很多
也學習到精簡的程式寫法
^^

TOP

        靜思自在 : 能付出愛心就是福,能消除煩惱就是慧。
返回列表 上一主題