作者ptguitar (佩蒂吉他)
看板Office
标题[算表] 汇入文字档案vba问题
时间Thu Mar 16 16:49:04 2017
软体: 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://webptt.com/cn.aspx?n=bbs/Office/M.1489654147.A.74E.html
2F：→ ptguitar: 太感谢S大了!! 03/16 17:23