UC知道Excel 导入多个文本文件 VBA 编程
来源：百度知道 编辑：UC知道 时间：2024/09/23 19:32:13
激活一个Result工作簿，采用for循环将选进的文本文件导入excel，（ 不考虑文本文件个数超出excel限制的情况，后面我有判断），下面的代码假如不加 Range("P4:P447").ClearContents则运行错误，加上发现文件都导入了P4这一列了，这是为什么？
Worksheets("Result").Activate
For lngCount = 1 To .SelectedItems.Count
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & .SelectedItems(lngCount), Destination:=Range("P4:IV447"))
.TextFileStartRow = 3
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(9, 9, 9, 9, 9, 9, 9, 9, 1, 9, 9, 9)
Range("P4:P447").ClearContents
.Refresh BackgroundQuery:=False
End With
Worksheets("Result").Activate
' Connection:="TEXT;" & strFileName, Destination:=Selection
For lngCount = 1 To .SelectedItems.Count
Worksheets("Result").Activate
For lngCount = 1 To .SelectedItems.Count
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & .SelectedItems(lngCount), Destination:=Range("P4:IV447"))
.TextFileStartRow = 3
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(9, 9, 9, 9, 9, 9, 9, 9, 1, 9, 9, 9)
Range("P4:P447").ClearContents
.Refresh BackgroundQuery:=False
End With
Worksheets("Result").Activate
' Connection:="TEXT;" & strFileName, Destination:=Selection
For lngCount = 1 To .SelectedItems.Count
VB开源论坛
VB海量学习资料，海量VB开源代码，海量的第三方插件，大量创意开源作品，丰富的特色技术支持悬赏问答。还等什么，进来看看吧。
地址：http://hi.baidu.com/b13690976754/blog/item/00db0907579927710208818f.html
错误描述不清。
建议在报错行的前一行设置断点，观察报错前后的数据变化，以及报错的详细信息。对比运行的语句，问题应当不难找到。