[算表] 匯入文字檔案vba問題

[ptguitar (佩蒂吉他)]

軟體: 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
→ soyoso: https://i.imgur.com/9qC0jNZ 類似這樣
→ ptguitar: 太感謝S大了!!
→ soyoso: 或以 https://i.imgur.com/lpZhGiE