作者Kyuan (人生就是一堆BLA BLA)
看板Visual_Basic
標題[VBA ] Excel VBA 大量陣列資料匯出 跨換檔案
時間Fri Sep 8 22:17:49 2017
想請問版上先進一個問題，我需要將大量資料匯出成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://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1504880271.A.F9B.html
1F：→ newton41: 從頭到尾只會同時開一個檔案，全部用#1試試如何？檔名的 09/08 23:13
2F：→ newton41: 部分再用Fnum變就好。 09/08 23:13
3F：→ newton41: 抱歉，我是想說snum，然後裡面有一個snum+1的部分，可能 09/08 23:16
4F：→ newton41: 應該改成snum=snum+1，不然只有兩種結果，第一個sum第二 09/08 23:16
5F：→ newton41: 個以後sum+1。 09/08 23:16
感謝N大的解說 :)) ，我會再試試看， 另外發現寫入中無法正確判讀檔案大小
(也就是無法隨每一筆而增加) 可能因此導致判斷失效 無法開啟
我再努力想想其他方法
※ 編輯: Kyuan (180.204.177.158), 09/08/2017 23:33:38
6F：→ MOONRAKER: 檔案大小用recn判斷就好了 何必沒事一直算filelen() 09/09 09:27