barbardianof

良民證翻譯推薦 FileNum = FreeFile()
ActiveCell(1, 1).Value = ResultStr '第一欄
'Display Importing Row Number On Status Bar

Dim ResultStr As String
看看其他高手能不克不及給你更清晰的建議囉

Sub LargeFileImport()


Open FileName For Input As #FileNum

頂好Wellcome wrote:
'Increment the Counter By 1
Application.StatusBar = "Importing Row " & _
End Sub

翻譯社 0).Select

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

天成翻譯公司不是超市員工=.=
超市最好的法子就是請專家協助= =

感激人人

'ActiveCell(1, 3).Value = Mid(ResultStr, 9, 11) '第三欄
'Get Next Available File Handle Number
Dear kltwn worte:
大家好，由於小弟最近...(恕刪)
Application.StatusBar = False
各人好，由於小弟比來...(恕刪)天成翻譯公司有思慮過這個問題，但還沒有實做過

既然透過 VBA 朋分匯入有困難，換個體式格局先把匯入的檔案分割成數個小的檔案，再進行匯入，是不是能解決你的問題
於是小弟想到一種解決體例，流程是：
Else

Counter = 1
但苦於小弟VBA功力不足，所以想請板上的高手幫手解答一下，感激~~
欄位會跨越Excel 2007的欄位上限1048576
'ActiveCell(1, 2).Value = Mid(ResultStr, 4, 8) '第二欄
目前想到的方式，第一步是先判斷資料筆數

End If

以前遇過溝通問題的設備記載檔
因為不知道翻譯公司的原始資料是什麼格式，我也沒有實做過這個部分
Do While Seek(FileNum) <= LOF(FileNum)
'Dimension Variables
今天有去書局翻了一下vba的書，照樣沒有我要的謎底..
我有在網路上搜到這些程式碼，實作後應當沒問題...
Application.ScreenUpdating = False

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

所以，假如是我要寫VBA，大概會分這幾個步驟去處理
'Loop Until the End Of File Is Reached


'請依現實需求批改

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

換用資料庫來做如access

大家好，由於小弟比來在處置懲罰一份檔案，該檔案資料量相當大
'Ask User for File's Name
Line Input #FileNum, ResultStr
Loop
第二步則是設定每一個工作表要儲存幾何筆資料，再用資料筆數去除，以得知需要產生幾個工作表
只是資料量真的太大，跑完要三小時= =+翻譯社目前也正在試著用access
'Create A New WorkBook With One Worksheet In It
'For Excel versions before Excel 97, change 65536 to 16384


有最笨的方式可以用
有愛好的可以試試...
第三步就是操縱迴圈去循序讀取本來要匯入的檔案，到達資料數上限後則換到下一個工作表繼續
'Check for no entry
'Start Again At Top Of 'Do While' Statement
翻譯公司的原始檔案應當CSV檔
'ActiveCell(1, 2).Value = Mid(ResultStr翻譯社 4, 8) '第二欄
慘了~~~
用記事本開啟該CSV資料檔
FileName = InputBox("Please enter the Text File's name翻譯社 e.g. test.txt")
'If Not The Last Row Then Go One Cell Down
或是excel 2010 with power pivot

Dim FileName As String


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