[算表] 匯入文字檔案vba問題
軟體: excel
版本: 2007
我有三個文字檔案要匯入
三個文字檔案加起來應該有9萬多筆
可是貼進來都只有8萬筆
不知道哪邊出問題了?
檔案如下
https://drive.google.com/open?id=0BwCgrQhGgaw7OVZiNlYwcUZwTUU
VBA程式如下:
Sub 文字檔案匯入()
Application.DisplayAlerts = False '關閉提醒訊息
Application.ScreenUpdating = False '巨集執行時不更新螢幕
Dim MainSh$
Dim a As String
MainSh = ThisWorkbook.Name
tp = ThisWorkbook.Path
'先清除資料
Worksheets("temp").Activate
Cells.Select
Selection.Clear
'匯入文字檔案迴圈
For i = 1 To 3
Sheets("設定").Activate
Filename = Range("A" & 3 + i).Value
'打開要複製的檔案
Source = tp & "\txt\" & Filename
Set wb = Workbooks.Open(Source) '開檔案
Workbooks(MainSh).Activate
Worksheets("temp").Activate
wb.ActiveSheet.UsedRange.Copy Sheets("temp").Range("A1")
PasteRow = Range("A1").End(xlDown).Row + 1
Workbooks(wb.Name).Close
Next i
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.250.67.77
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1489654147.A.74E.html
→
03/16 17:21, , 1F
03/16 17:21, 1F
→
03/16 17:23, , 2F
03/16 17:23, 2F
→
03/16 17:32, , 3F
03/16 17:32, 3F
討論串 (同標題文章)
Office 近期熱門文章
PTT數位生活區 即時熱門文章
