oliverx368e@outlook.com

斯洛伐克文翻譯翻譯社
以前遇過相同問題的設備紀錄檔
欄位會超過Excel 2007的欄位上限1048576
歉仄，我今天有在公司試，發現您所說的這兩套軟體都沒有= =

'Create A New WorkBook With One Worksheet In It

Dim Counter As Double

頂好Wellcome wrote:

'Store Variable Data Into Active Cell
'Remove Message From Status Bar

天成翻譯公司不是超市員工=.=
第二步則是設定每一個工作表要貯存若幹筆資料，再用資料筆數去除，以得知需要產生幾個工作表
看看其他高手能不能給你更清晰的建議囉

只是資料量真的太大，跑完要三小時= =+翻譯社目前也正在試著用access
ActiveCell.Offset(1, 0).Select

'ActiveCell(1, 3).Value = Mid(ResultStr, 9, 11) '第三欄
FileNum = FreeFile()
再做恰當的點竄就能夠了
'Open Text File For Input

End If
'Loop Until the End Of File Is Reached
Dim FileName As String
有樂趣的可以嘗嘗...
Loop

換用資料庫來做如ac...(恕刪)
ActiveWorkbook.Sheets.Add
於是小弟想到一種解決體式格局，流程是：

If ActiveCell.Row = 1048576 Then
If FileName = "" Then End

感謝大家
懇請版上高手大大賜教，感激~

既然透過 VBA 分割匯入有難題，換個方式先把匯入的檔案分割成數個小的檔案，再進行匯入，是不是能解決你的問題
所以，如果是我要寫VBA，梗概會分這幾個步調去處理
Application.StatusBar = "Importing Row " & _
Sub LargeFileImport()
'Dimension Variables

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

'ActiveCell(1, 2).Value = Mid(ResultStr, 4翻譯社 8) '第二欄

Dear kltwn worte:
'Turn Screen Updating Off
'For Excel versions before Excel 97, change 65536 to 16384

kltwn wrote:
'點竄以下
或是excel 2010 with power pivot

翻譯公司的原始資料是什麼格局，我也沒有實做過這個部份
慘了~~~
'If On The Last Row Then Add A New Sheet
你的原始檔案應該CSV檔
Do While Seek(FileNum) <= LOF(FileNum)
我有在網路上搜到這些程式碼，實作後應該沒問題...
但苦於小弟VBA功力不足，所以想請板上的高手協助解答一下，感激~~
Open FileName For Input As #FileNum
1.匯入檔案後

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

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

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

超市最好的辦法就是請專家協助= =

ActiveCell(1翻譯社 1).Value = ResultStr '第一欄
End Sub

Application.StatusBar = False
第三步就是哄騙迴圈去循序讀取本來要匯入的檔案，到達資料數上限後則換到下一個工作表繼續
'ActiveCell(1, 1).Value = Mid(ResultStr, 1翻譯社 3) '第一欄
今天有去書局翻了一下vba的書，照樣沒有天成翻譯公司要的謎底..
Else
用記事本開啟該CSV資料檔

Counter = 1
大師好，由於小弟比來...(恕刪)
'Workbooks.Add template:=xlWorksheet

大師好，由於小弟最近在處置一份檔案，該檔案資料量相當大

'ActiveCell(1, 3).Value = Mid(ResultStr, 9翻譯社 11) '第三欄

頂好Wellcome wrote:
Line Input #FileNum, ResultStr
'Get Next Available File Handle Number

'Ask User for File's Name
可朋分龐大文字檔的Split Large Text Files 或 Google "split large text files"，相信能找到很多相幹的解決方案

翻譯社 8) '第二欄
'Set The Counter to 1
翻譯公司可以試試看

換用資料庫來做如access

你的需求已是需要access或更高級資料庫啦 很少人選擇硬塞excel 平常這種狀況我也選擇放棄直接用excel整理原始資料

文章出自: https://www.mobile01.com/topicdetail.php?f=511&t=2927669有關各國語文翻譯公證的問題歡迎諮詢天成翻譯公司02-77260931