「Excel VBA」資料量過大，匯入欄位跨越1048576－wadesimmorees

代客筆譯
有愛好的可以試試...

'Create A New WorkBook With One Worksheet In It

那只是看到桌上衛生紙想到的暱稱....

我不是超市員工=.=

Application.ScreenUpdating = False

'Loop Until the End Of File Is Reached
Dear kltwn worte:

感謝各人
Try try 這個東西
慘了~~~

Sub LargeFileImport()

換用資料庫來做如ac...(恕刪)
Dim Counter As Double

換用資料庫來做如access
超市最好的法子就是請專家協助= =

今朝想到的方式，第一步是先判斷資料筆數
之前遇過溝通問題的裝備紀錄檔
可朋分巨大文字檔的Split Large Text Files 或者 Google "split large text files"，相信能找到許多相幹的解決方案

翻譯欄位上限1048576
抱歉，我今天有在公司試，發現您所說的這兩套軟體都沒有= =
但苦於小弟VBA功力不足，所以想請板上的高手協助解答一下，感謝~~
'Ask User for File's Name
'Workbooks.Add template:=xlWorksheet
Open FileName For Input As #FileNum
你可以碰運氣

'點竄以下
今天有去書局翻了一下vba的書，照樣沒有我要的謎底..
'Store One Line Of Text From File To Variable
於是小弟想到一種解決體例，流程是：
'Display Importing Row Number On Status Bar

Dim FileNum As Integer
Counter & " of text file " & FileName
FileNum = FreeFile()
Counter = 1
'Set The Counter to 1
Line Input #FileNum, ResultStr

'ActiveCell(1, 3).Value = Mid(ResultStr, 9 翻譯公司 11) '第三欄
Dim ResultStr As String
人人好，由於小弟比來...(恕刪)我有思考過這個問題，但還沒有實做過
If ActiveCell.Row = 1048576 Then
第三步就是哄騙迴圈去循序讀取本來要匯入的檔案，達到資料數上限後則換到下一個工作表繼續
只是資料量真的太大，跑完要三小時= =+ 翻譯公司目前也正在試著用access
'Dimension Variables
'ActiveCell(1, 1).Value = Mid(ResultStr, 1, 3) '第一欄

'Store Variable Data Into Active Cell
'ActiveCell(1, 3).Value = Mid(ResultStr, 9, 11) '第三欄
'Remove Message From Status Bar

'If Not The Last Row Then Go One Cell Down

既然透過 VBA 朋分匯入有困難，換個體式格局先把匯入的檔案分割成數個小的檔案，再進行匯入，是不是能解決你的問題
看看其他高手能不克不及給你更清楚的建議囉

。-> 翻譯社|,-> 翻譯公司|的-> 翻譯

End If
Application.StatusBar = False
End Sub

你的需求已經是需要access或更高級資料庫啦很少人選擇硬塞excel 平居這類狀態我也選擇放棄直接用excel清算原始資料

人人好，由於小弟比來在處理一份檔案，該檔案資料量相當大
1.匯入檔案後

2.超過欄位上限的資料主動置於第二個工作表

3.若第二個工作表也放不下，再往第三個工作表放…

4.依此類推直到檔案掃數匯入完畢

因為不知道你的原始資料是什麼花式，我也沒有實做過這個部門
FileName = InputBox("Please enter the Text File's name, e.g. test.txt")
'For Excel versions before Excel 97, change 65536 to 16384

Do While Seek(FileNum) <= LOF(FileNum)

Dim FileName As String
ActiveCell.Offset(1, 0).Select

頂好Wellcome wrote:
'ActiveCell(1, 2).Value = Mid(ResultStr, 4, 8) '第二欄
'請依實際需求批改
Else
'If On The Last Row Then Add A New Sheet
大家好，由於小弟比來...(恕刪)

'Increment the Counter By 1
'Open Text File For Input
你的原始檔案應當CSV檔
有最笨翻譯方式可以用

'Close The Open Text File
'Start Again At Top Of 'Do While' Statement
Loop
Close

用記事本開啟該CSV資料檔

再做恰當的點竄就可以了
'ActiveCell(1, 2).Value = Mid(ResultStr, 4, 8) '第二欄
Counter = Counter + 1

來自: https://www.mobile01.com/topicdetail.php?f=511&t=2927669有關翻譯的問題歡迎諮詢天成翻譯社