返回列表 上一主題 發帖

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

巴克斯

帖子
32 
主題
9 
精華
0 
積分
122 
點名
0  
作業系統
WINXP 
軟體版本
Office XP 
閱讀權限
20 
性別
男 
註冊時間
2010-5-14 
最後登錄
2024-3-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-5-27 12:39 | 顯示全部帖子

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

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

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

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

請教須如何做較快速?
收藏 分享

巴克斯

帖子
32 
主題
9 
精華
0 
積分
122 
點名
0  
作業系統
WINXP 
軟體版本
Office XP 
閱讀權限
20 
性別
男 
註冊時間
2010-5-14 
最後登錄
2024-3-20 
2#
發表於 2011-5-28 06:06 | 顯示全部帖子
本帖最後由 巴克斯 於 2011-5-28 09:03 編輯

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

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

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

TOP

巴克斯

帖子
32 
主題
9 
精華
0 
積分
122 
點名
0  
作業系統
WINXP 
軟體版本
Office XP 
閱讀權限
20 
性別
男 
註冊時間
2010-5-14 
最後登錄
2024-3-20 
3#
發表於 2011-5-28 09:05 | 顯示全部帖子
謝謝兩位板主的幫忙
兩種方式都成功了
比我原來土法煉鋼快速很多
也學習到精簡的程式寫法
^^

TOP

        靜思自在 : 是非當教育，讚美作警惕。
返回列表 上一主題