求助多个txt文件如何批量导入excel模板

半梦半醒tzp

求助各位大佬，如何将多个TXT文档数据导入excel模板中


如图多份txt文档，导入如下excel模板中，有多页sheet，功能是实现设置一个txt路径 会自动判断你excel的页面的sheet名称，根据和txt文件名匹配，名称一致获取数据 全自动，从第二行数据进行导入覆盖原有数据

蓝桥玄霜

从第2行哪一列开始导入？

fzxba

Sub test1()
  Dim p As String, f As String, ar(), br, cr
  Dim i As Long, j As Long, n As Byte, Sht As Worksheet
  Application.ScreenUpdating = False
  Application.Calculation = -4135
  p = ThisWorkbook.Path & "\"
  f = Dir(p & "*.txt")
  While Len(f)
    Set Sht = Worksheets(Split(f, ".txt")(0))
    If Not Sht Is Nothing Then
      n = FreeFile
      Open p & f For Input As #n
      br = Split(StrConv(InputB(LOF(n), #n), vbUnicode), vbCrLf)
      Close #n
      ReDim ar(UBound(br), UBound(Split(br(0), vbTab)))
      For i = LBound(br) To UBound(br)
        cr = Split(br(i), vbTab)
        For j = LBound(cr) To UBound(cr)
          ar(i, j) = cr(j)
        Next
      Next
      Sht.Range("A2").Resize(UBound(ar) + 1, UBound(ar, 2) + 1) = ar
    End If
    f = Dir
  Wend
  Set Sht = Nothing
  Application.Calculation = -4105
  Application.ScreenUpdating = True
  Beep
End Sub

fzxba

1.rar (1.39 MB, 下载次数: 11)

2022-11-24 12:03 上传

点击文件名下载附件

回7楼，猜着改一处  For i = LBound(br) To UBound(br) - 1

陆离Lowry

.................

半梦半醒tzp

蓝桥玄霜 发表于 2022-11-24 11:53
从第2行哪一列开始导入？

第一列覆盖

半梦半醒tzp

fzxba 发表于 2022-11-24 12:00
Sub test1()
  Dim p As String, f As String, ar(), br, cr
  Dim i As Long, j As Long, n As Byte, Sh ...

系统提示下标越界呢

半梦半醒tzp

fzxba 发表于 2022-11-24 12:03
回7楼，猜着改一处  For i = LBound(br) To UBound(br) - 1

大佬，这个按钮我怎么复用到其他excel表格？是复制代码过去吗

fzxba

半梦半醒tzp 发表于 2022-11-24 14:11
大佬，这个按钮我怎么复用到其他excel表格？是复制代码过去吗

把代码复制到其它工作簿（最好放入公用模块，如名为模块1、2之类的）。再插入一个按钮，为右键按钮为按钮指定宏。

半梦半醒tzp

陆离Lowry 发表于 2022-11-24 12:08
.................

大佬有个疑问，你的代码excel导入数据的列数是17列， 如果我的excel只有3列，4列，这个代码应该怎么改，根据我的列数来匹配？谢谢

For j = 1 To 17
    arr(i, j) = S(j - 1)