[已解决]导入数据下标越界

605751967 · 发表于 2016-5-19 06:40

本帖最后由爱疯于 2016-5-19 16:22 编辑

由于之前用快压，想帮我的人都打不开，现在用winrar ，可以解压了，谢谢。

最佳答案

月排行榜 / 总排行榜

zjdh

2016-5-19 13:14

发错了

inputdata2.rar (10.25 KB, 下载次数: 18)

zjdh · 发表于 2016-5-19 08:16

inputdata.rar (8.28 KB, 下载次数: 10)

scl5801 · 发表于 2016-5-19 08:20

Sub 数组法()
Dim s$(), arr$(), a, sh As Worksheet
Dim f$, i&, j%, m&, k&, n%, r&
f = ThisWorkbook.Path & "\test2.txt"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sh In Sheets
      If sh.Name <> ActiveSheet.Name Then sh.Delete
Next
Application.DisplayAlerts = True
Cells.ClearContents
Open f For Input As #1
s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
r = Rows.Count
For k = 0 To UBound(s) Step r
      ReDim arr(1 To r, 2)
      n = n + 1
      If n > 1 Then Sheets.Add After:=Sheets(Sheets.Count)
      m = 0
      For i = k To k + r - 1
         If i = UBound(s) Then Exit For
         m = m + 1
         a = Split(s(i), vbTab)
         For j = 0 To 2
            arr(m, j) = a(j)
         Next
      Next
      Range("a1").Resize(m, 3) = arr
Next
Application.ScreenUpdating = True
End Sub

605751967 · 发表于 2016-5-19 09:11

zjdh 发表于 2016-5-19 08:16

如果第一行是标题、每个表都要有标题怎么办？

叫我赵日天 · 发表于 2016-5-19 11:00

我搞不懂你这昵称哪来的，不会这么巧吧
$I})3UUE~@U$QY{P_LQ0V]QC.png$

zjdh · 发表于 2016-5-19 11:08

inputdata2.rar (8.3 KB, 下载次数: 7)

605751967 · 发表于 2016-5-19 11:31

zjdh 发表于 2016-5-19 11:08

还是原来那个执行文件的？？

605751967 · 发表于 2016-5-19 11:36

zjdh 发表于 2016-5-19 11:08

只有第一个表有标题，其他表没有！

zjdh · 发表于 2016-5-19 13:14

发错了

inputdata2.rar (10.25 KB, 下载次数: 18)

605751967 · 发表于 2016-5-19 14:52

zjdh 发表于 2016-5-19 13:14
发错了

如果标题是占二行的话，改哪里？可以注明一下吗？谢谢。

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

[已解决]导入数据下标越界

评分

点评

评分