翻譯西班牙語再做適當的點竄就能夠了
欄位會跨越Excel 2007的欄位上限1048576
第三步就是哄騙迴圈去循序讀取本來要匯入的檔案,達到資料數上限後則換到下一個工作表繼續
'Open Text File For Input
'ActiveCell(1, 2).Value = Mid(ResultStr, 4翻譯社 8) '第二欄
'Close The Open Text File
華頓翻譯公司不是超市員工=.=
懇請版上高手大大賜教,感激~
懇請版上高手大大賜教,感激~
If ActiveCell.Row = 1048576 Then
'Set The Counter to 1
Close
FileNum = FreeFile()
ActiveCell.Offset(1, 0).Select
Application.StatusBar = "Importing Row " & _
有最笨的方式可以用
'請依實際需求批改
有愛好的可以試試...
Dear kltwn worte:
Loop
'Get Next Available File Handle Number
或是excel 2010 with power pivot
翻譯公司的原始檔案應當CSV檔
Dim FileNum As Integer
'Display Importing Row Number On Status Bar
第二步則是設定每個工作表要貯存多少筆資料,再用資料筆數去除,以得知需要產生幾個工作表
'Workbooks.Add template:=xlWorksheet
End Sub
Dim FileNum As Integer
'Display Importing Row Number On Status Bar
第二步則是設定每個工作表要貯存多少筆資料,再用資料筆數去除,以得知需要產生幾個工作表
既然透過 VBA 朋分匯入有堅苦,換個體式格局先把匯入的檔案分割成數個小的檔案,再進行匯入,是不是能解決你的問題
Else
今朝想到的方式,第一步是先判斷資料筆數
我有在網路上搜到這些程式碼,實作後應當沒問題...
'ActiveCell(1, 1).Value = Mid(ResultStr, 1翻譯社 3) '第一欄
但苦於小弟VBA功力不足,所以想請板上的高手協助解答一下,感謝~~
'Turn Screen Updating Off
'ActiveCell(1, 3).Value = Mid(ResultStr, 9翻譯社 11) '第三欄
'Remove Message From Status Bar
Dim Counter As Double
'ActiveCell(1, 3).Value = Mid(ResultStr翻譯社 9, 11) '第三欄
'Create A New WorkBook With One Worksheet In It
1.匯入檔案後
2.跨越欄位上限的資料主動置於第二個工作表
3.若第二個工作表也放不下,再往第三個工作表放…
4.依此類推直到檔案全部匯入終了
'Start Again At Top Of 'Do While' Statement
你可以試試看
Else
今朝想到的方式,第一步是先判斷資料筆數
我有在網路上搜到這些程式碼,實作後應當沒問題...
'ActiveCell(1, 1).Value = Mid(ResultStr, 1翻譯社 3) '第一欄
但苦於小弟VBA功力不足,所以想請板上的高手協助解答一下,感謝~~
你的需求已是需要access或更高級資料庫啦 很少人選擇硬塞excel 平常這類狀態我也選擇放棄直接用excel收拾整頓原始資料
所以,若是是我要寫VBA,可能會分這幾個步驟去向理'Turn Screen Updating Off
'ActiveCell(1, 3).Value = Mid(ResultStr, 9翻譯社 11) '第三欄
'Remove Message From Status Bar
頂好Wellcome wrote:
'Dimension Variables
Counter = 1
Try try 這個對象
超市最好的法子就是請專家協助= =
'ActiveCell(1, 3).Value = Mid(ResultStr翻譯社 9, 11) '第三欄
'Create A New WorkBook With One Worksheet In It
1.匯入檔案後
2.跨越欄位上限的資料主動置於第二個工作表
3.若第二個工作表也放不下,再往第三個工作表放…
4.依此類推直到檔案全部匯入終了
'Start Again At Top Of 'Do While' Statement
你可以試試看
換用資料庫來做如access
Do While Seek(FileNum) <= LOF(FileNum)
Dim FileName As String
各人好,由於小弟比來...(恕刪)
'ActiveCell(1翻譯社 2).Value = Mid(ResultStr, 4, 8) '第二欄
因為不知道翻譯公司的原始資料是什麼花樣,華頓翻譯公司也沒有實做過這個部門
If FileName = "" Then End
人人好,由於小弟比來...(恕刪)我有思慮過這個問題,但還沒有實做過
那只是看到桌上衛生紙想到的暱稱....
Dim ResultStr As StringDo While Seek(FileNum) <= LOF(FileNum)
Dim FileName As String
各人好,由於小弟比來...(恕刪)
'ActiveCell(1翻譯社 2).Value = Mid(ResultStr, 4, 8) '第二欄
因為不知道
If FileName = "" Then End
人人好,由於小弟比來...(恕刪)我有思慮過這個問題,但還沒有實做過
那只是看到桌上衛生紙想到的暱稱....
'Workbooks.Add template:=xlWorksheet
End Sub
大師好,由於小弟最近在處置一份檔案,該檔案資料量相當大
kltwn wrote:
只是資料量真的太大,跑完要三小時= =+翻譯社今朝也正在試著用access
ActiveCell(1, 1).Value = ResultStr '第一欄
Counter = Counter + 1
'For Excel versions before Excel 97, change 65536 to 16384
Application.StatusBar = False頂好Wellcome wrote:
慘了~~~
'If Not The Last Row Then Go One Cell Down
Application.ScreenUpdating = False
'Store Variable Data Into Active Cell
之前遇過溝通問題的裝備記載檔
'Loop Until the End Of File Is Reached
Line Input #FileNum, ResultStr
感激各人
於是小弟想到一種解決體式格局,流程是:
文章出自: https://www.mobile01.com/topicdetail.php?f=511&t=2927669有關各國語文翻譯公證的問題歡迎諮詢華頓翻譯公司02-77260932
文章標籤全站熱搜
留言列表