[已解决]导入数据多了一行标题

张雄友 · 发表于 2015-9-3 09:33

本帖最后由张雄友于 2015-9-12 18:58 编辑

导入数据多了一行标题，每多一个文件就多一行标题，只要一行标题就可以了。

最佳答案

月排行榜 / 总排行榜

爱疯

2015-9-9 09:02

另存第一个文本文件，编码为ANSI。
再运行代码。

跳转到最佳答案楼层

张雄友 · 发表于 2015-9-4 13:23

是什么原因？

爱疯 · 发表于 2015-9-7 10:28

         Open arr(i) For Input As #1 '使用open语句输入
         k = False '最初锁（即k）是关闭的
         If i = 1 Then k = True '如果是第1个文本文件，就开锁

         Do While Not EOF(1) '运行到文件的结尾结束
            Line Input #1, sr          '按行读取数据

            If k Then '如果锁开了，才处理
                  temp = Split(sr, ";")
                  n = n + 1
                  For j = 1 To UBound(temp) + 1
                     brr(n, j) = temp(j - 1)
                  Next
            End If
            k = True '经过读取第一行之后，锁就一直是打开的
         Loop
         Close #1

导入数据多了一行标题2.rar (14.38 KB, 下载次数: 6)

grf1973 · 发表于 2015-9-8 11:24

Sub 导入TXT只要一行标题()
Dim arr$$(), m&, Mypath$$, brr(1 To 65535, 1 To 43)
Dim i, sr$$, temp, n&
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ThisWorkbook.Path & ""
If .Show = False Then [A1].Activate: Exit Sub
Mypath = .SelectedItems(1) & ""
End With
Call GetFiles(arr, m, Mypath)
With Sheet1
.UsedRange.ClearContents '清除原有的数据
n = 0
For i = 1 To UBound(arr)
Open arr(i) For Input As #1 '使用open语句输入
k = 0 '每个文件的行数
Do While Not EOF(1) '运行到文件的结尾结束
Line Input #1, sr '按行读取数据
k = k + 1
If i = 1 Or k > 1 Then '如果第1个文件或者其他文件第2行开始，则处理
temp = Split(sr, ";")
n = n + 1
For j = 1 To UBound(temp) + 1
brr(n, j) = temp(j - 1)
Next
End If
Loop
Close #1 '关闭文本文件
Next
.Range("a1").Resize(n, UBound(brr, 2)) = brr '将数组写入单元格
End With
End Sub

复制代码

张雄友 · 发表于 2015-9-9 03:04

爱疯发表于 2015-9-7 10:28
Open arr(i) For Input As #1 '使用open语句输入
k = False '最初锁（即k）是 ...

有些标题变成了奇怪字符，如黄色单元格。

张雄友 · 发表于 2015-9-9 03:05

grf1973 发表于 2015-9-8 11:24

有些标题变成了奇怪字符，如黄色单元格。

爱疯 · 发表于 2015-9-9 09:02

另存第一个文本文件，编码为ANSI。
再运行代码。

张雄友 · 发表于 2015-9-9 18:39

爱疯发表于 2015-9-9 09:02
另存第一个文本文件，编码为ANSI。
再运行代码。

http://www.excelpx.com/thread-370038-1-1.html
列数相同可以但不同就不行了。

		自动登录	找回密码
密码			注册

[已解决]导入数据多了一行标题

评分

评分