close
口譯美語
Counter & " of text file " & FileName
那只是看到桌上衛生紙想到的暱稱....
'Set The Counter to 1
有樂趣的可以嘗嘗...
Dear kltwn worte:
但苦於小弟VBA功力不足，所以想請板上的高手協助解答一下，感激~~
於是小弟想到一種解決方式，流程是：
'Create A New WorkBook With One Worksheet In It
'請依現實需求批改
今朝想到的方式，第一步是先判定資料筆數
'Loop Until the End Of File Is Reached
你的原始檔案應該CSV檔
Dim FileNum As Integer
Application.StatusBar = "Importing Row " & _
ActiveCell.Offset(1, 0).Select
ActiveCell(1, 1).Value = ResultStr '第一欄
第三步就是利用迴圈去循序讀取本來要匯入的檔案，到達資料數上限後則換到下一個工作表繼續
'If Not The Last Row Then Go One Cell Down
'Display Importing Row Number On Status Bar
Else
懇請版上高手大大賜教，感激~
'Turn Screen Updating Off
以前遇過溝通問題的設備記載檔
'Get Next Available File Handle Number
Loop
天成翻譯公司不是超市員工=.=
Open FileName For Input As #FileNum
Open FileName For Input As #FileNum
換用資料庫來做如access
第二步則是設定每個工作表要儲存幾許筆資料，再用資料筆數去除，以得知需要產生幾個工作表
'Close The Open Text File
End If
Dim Counter As Double
用記事本開啟該CSV資料檔
If ActiveCell.Row = 1048576 Then
可朋分偉大文字檔的Split Large Text Files 或 Google "split large text files"，相信能找到許多相幹的解決方案
第二步則是設定每個工作表要儲存幾許筆資料，再用資料筆數去除，以得知需要產生幾個工作表
'Close The Open Text File
End If
Dim Counter As Double
用記事本開啟該CSV資料檔
If ActiveCell.Row = 1048576 Then
可朋分偉大文字檔的Split Large Text Files 或 Google "split large text files"，相信能找到許多相幹的解決方案
翻譯公司可以試試看
你的需求已是需要access或更高級資料庫啦 很少人選擇硬塞excel 平時這類狀況我也選擇抛卻直接用excel整頓原始資料
既然透過 VBA 朋分匯入有堅苦，換個方式先把匯入的檔案朋分成數個小的檔案，再進行匯入，是否能解決你的問題
或是excel 2010 with power pivot
或是excel 2010 with power pivot
大家好，由於小弟比來在處理一份檔案，該檔案資料量相當大
ActiveWorkbook.Sheets.Add
'Dimension Variables
有最笨的方式可以用
'ActiveCell(1, 3).Value = Mid(ResultStr, 9翻譯社 11) '第三欄
Dim ResultStr As String
'Ask User for File's Name
'ActiveCell(1, 3).Value = Mid(ResultStr翻譯社 9翻譯社 11) '第三欄
Counter = 1
'Open Text File For Input
'ActiveCell(1, 1).Value = Mid(ResultStr, 1翻譯社 3) '第一欄
'Increment the Counter By 1
今天有去書局翻了一下vba的書，仍是沒有我要的答案..
'For Excel versions before Excel 97, change 65536 to 16384
Do While Seek(FileNum) <= LOF(FileNum)
ActiveWorkbook.Sheets.Add
'Dimension Variables
有最笨的方式可以用
kltwn wrote:
所以，假如是天成翻譯公司要寫VBA，梗概會分這幾個步驟去向理
欄位會跨越Excel 2007的欄位上限1048576
'Store One Line Of Text From File To Variable
'Remove Message From Status Bar
人人好，由於小弟比來...(恕刪)
'ActiveCell(1, 3).Value = Mid(ResultStr, 9翻譯社 11) '第三欄
Dim ResultStr As String
'Ask User for File's Name
'ActiveCell(1, 3).Value = Mid(ResultStr翻譯社 9翻譯社 11) '第三欄
Counter = 1
'Open Text File For Input
'ActiveCell(1, 1).Value = Mid(ResultStr, 1翻譯社 3) '第一欄
'Increment the Counter By 1
今天有去書局翻了一下vba的書，仍是沒有我要的答案..
'For Excel versions before Excel 97, change 65536 to 16384
Do While Seek(FileNum) <= LOF(FileNum)
頂好Wellcome wrote:
Close
Dim FileName As String
因為不知道翻譯公司的原始資料是什麼花樣，我也沒有實做過這個部門
End Sub
翻譯社 4, 8) '第二欄
換用資料庫來做如ac...(恕刪)
我有在網路上搜到這些程式碼，實作後應當沒問題...
Application.ScreenUpdating = False
只是資料量真的太大，跑完要三小時= =+翻譯社目前也正在試著用access
'點竄以下
看看其他高手能不克不及給你更清晰的建議囉
換用資料庫來做如ac...(恕刪)
我有在網路上搜到這些程式碼，實作後應當沒問題...
Application.ScreenUpdating = False
只是資料量真的太大，跑完要三小時= =+翻譯社目前也正在試著用access
'點竄以下
看看其他高手能不克不及給你更清晰的建議囉
感激大家
頂好Wellcome wrote:
'If On The Last Row Then Add A New Sheet
Application.StatusBar = False
引用自: https://www.mobile01.com/topicdetail.php?f=511&t=2927669有關各國語文翻譯公證的問題歡迎諮詢天成翻譯公司02-77260931
文章標籤
全站熱搜
留言列表
