medinafj120@outlook.com

技術檔案翻譯服務但苦於小弟VBA功力不足，所以想請板上的高手協助解答一下，感激~~
超市最好的門徑就是請專家協助= =

頂好Wellcome wrote:
'Check for no entry
可分割偉大文字檔的Split Large Text Files 或 Google "split large text files"，相信能找到許多相幹的解決方案

Dim FileName As String
今天有去書局翻了一下vba的書，照樣沒有我要的謎底..
Application.StatusBar = False

之前遇過溝通問題的裝備記載檔
'ActiveCell(1, 3).Value = Mid(ResultStr, 9, 11) '第三欄
有愛好的可以嘗嘗...
Sub LargeFileImport()
'請依現實需求批改
看看其他高手能不克不及給你更清晰的建議囉

翻譯公司的原始資料是什麼花樣，天成翻譯公司也沒有實做過這個部份
'Turn Screen Updating Off
End Sub

各人好，由於小弟最近...(恕刪)


第二步則是設定每個工作表要貯存幾許筆資料，再用資料筆數去除，以得知需要產生幾個工作表
'Open Text File For Input
Dim FileNum As Integer
慘了~~~

'Loop Until the End Of File Is Reached
只是資料量真的太大，跑完要三小時= =+翻譯社今朝也正在試著用access

kltwn wrote:
'Increment the Counter By 1
FileName = InputBox("Please enter the Text File's name, e.g. test.txt")

'Dimension Variables
If ActiveCell.Row = 1048576 Then

天成翻譯公司不是超市員工=.=

'點竄以下

感激各人

If FileName = "" Then End
'Start Again At Top Of 'Do While' Statement
換用資料庫來做如ac...(恕刪)
Try try 這個東西

頂好Wellcome wrote:
'Create A New WorkBook With One Worksheet In It

所以，假如是我要寫VBA，也許會分這幾個步調行止理

'Remove Message From Status Bar
'ActiveCell(1, 3).Value = Mid(ResultStr翻譯社 9, 11) '第三欄
人人好，由於小弟比來...(恕刪)

ActiveCell.Offset(1, 0).Select
'If On The Last Row Then Add A New Sheet

換用資料庫來做如access

'Store One Line Of Text From File To Variable
用記事本開啟該CSV資料檔

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

既然透過 VBA 朋分匯入有難題，換個體式格局先把匯入的檔案朋分成數個小的檔案，再進行匯入，是不是能解決翻譯公司的問題
人人好，由於小弟比來...(恕刪)我有思考過這個問題，但還沒有實做過

各人好，由於小弟最近在處置懲罰一份檔案，該檔案資料量相當大
Else

頂好Wellcome wrote:
'Ask User for File's Name
Close



'If Not The Last Row Then Go One Cell Down
Dim ResultStr As String
那只是看到桌上衛生紙想到的暱稱....

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

或是excel 2010 with power pivot

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

'Set The Counter to 1
再做恰當的點竄就能夠了

Do While Seek(FileNum) <= LOF(FileNum)
今朝想到的方式，第一步是先判定資料筆數

Dim Counter As Double

End If
Dear kltwn worte:
Open FileName For Input As #FileNum
'ActiveCell(1翻譯社 1).Value = Mid(ResultStr, 1, 3) '第一欄
你的原始檔案應當CSV檔

ActiveCell(1, 1).Value = ResultStr '第一欄

翻譯社 ResultStr



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