[VBA ] Excel VBA 大量陣列資料匯出跨換檔案

看板Visual_Basic作者Kyuan (人生就是一堆BLA BLA)時間8年前 (2017/09/08 22:17)推噓0(0推 0噓 6→)

留言6則, 2人參與討論串1/1

想請問版上先進一個問題，我需要將大量資料匯出成TXT檔，作法是將矩陣型資料(ex: 500家公司的一千筆資料)匯出成長方形的矩陣 (ex 每一筆資料共 500,000列) 的TXT檔 A B C O 1 4 7 (A、B、C O A 1 X 2 5 8 ==> 的轉為 X A 2 # 3 6 9 O/X/# ) # A 3 O B 4 X B 5 # B 6 目前作法是將所有資料讀入記憶體中在一筆一筆寫入TXT中，但會遇到 1. 記憶體不足(資料皆為Variant型態) ，此點目前採控制公司數來避免 2. 匯出成TXT時，檔案會過大，希望採當檔案超過大小限制時，換一個檔來接續儲存! 3. 想要不中斷輸出，持續換檔案大量輸出以下為簡略程式碼，若不超過上限資料皆可匯出，目前若超過上限仍會匯出，但是又會是重複的檔案(1 & 2 資料相同) 主要是想問超過資料大小上限後轉換檔案儲存的處理可能是 fNum會互相衝突或新舊檔案開啟關閉邏輯錯誤想請大神指點 ========= Sub testoutput() myData = 資料矩陣 Snum = 檔名序列號 FileName = 自訂名稱 & Snum & ".txt" Dim fNum As Long fNum = FreeFile '任意檔案序號 Open FileName For Append As #fNum For i = 1 To idn ' 每間公司 '猜測問題在此虛線範圍 ------------- '如果檔案太大，就關掉舊的檔案、開啟新的檔案來存 '資料大小條件寫在此處是為了避免該公司的每日資料被分隔 FileSize = FileLen(MyDir & "\" & FileName) If FileSize > 資料大小上限 Then Close fNum '關閉第一個檔 FileName = 自訂名稱 & Snum +1& ".txt" '以改名稱創造下一個檔案 Open FileName For Append As #fNum '用改名稱開啟第2個檔 End If -------------------------------------------------------------- For k = 1 To rn '每筆日資料 Print #fNum, myData(rcn) '''(((這裡的fNum也可能有問題))) rcn = rcn + 1 Next Next Erase myData Close fNum 或是若有任何可以解決記憶體空間不足又可大量匯出陣列的好方法也希望求指導，謝謝 :)) -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 180.204.177.158 ※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1504880271.A.F9B.html

→

newton41

09/08 23:13, , 1^F

09/08 23:13, 1^F

→

newton41

09/08 23:13, , 2^F

09/08 23:13, 2^F

→

newton41

09/08 23:16, , 3^F

09/08 23:16, 3^F