按行导入文本内容到表格指定区域

天地一相

感谢帮助！详见截图附件。

ykcbf1100

参与一下。

tanglf188

Sub Loadtext()
    dlgAnswer = Application.Dialogs(666).Show
End Sub

gwjkkkkk

Option Explicit

Sub test()
    Dim strFileName$, strPath$, Rng As Range
   
    strPath = ThisWorkbook.Path & "\"
    strFileName = strPath & "文本\A-1.txt"
    If Dir(strFileName) = "" Then MsgBox "导入文件不存在，请检查！", vbExclamation: Exit Sub
   
    Application.ScreenUpdating = False
    With Workbooks.Open(strFileName)
        With .Sheets(1)
            Set Rng = Range(.[A1], .Cells(Rows.Count, "A").End(3))
            With ThisWorkbook.Sheets(1)
                .Columns(1).Clear
                Rng.Copy .[A3]
            End With
        End With
        .Close False
    End With
    Set Rng = Nothing
    Application.ScreenUpdating = True
End Sub

天地一相

ykcbf1100 发表于 2023-5-24 10:40
参与一下。

谢谢，测试了，正确。有一个小问题：文本内容最后又一行空行，但会记为一行内容，导入后显示的数据行数比实际多1行。可以消除这种情况吗？

ykcbf1100

天地一相 发表于 2023-5-24 11:44
谢谢，测试了，正确。有一个小问题：文本内容最后又一行空行，但会记为一行内容，导入后显示的数据行数比 ...

加个判断试试吧。

天地一相

tanglf188 发表于 2023-5-24 10:54
Sub Loadtext()
    dlgAnswer = Application.Dialogs(666).Show
End Sub

谢谢，不懂含义，讲解一下？

天地一相

gwjkkkkk 发表于 2023-5-24 10:57
Option Explicit

Sub test()

谢谢，你这个测试有点问题，会新建一个表导入内容。2楼的是对的。我想比较下不同写法的速度差异。

天地一相

gwjkkkkk 发表于 2023-5-24 10:57
Option Explicit

Sub test()

似乎明白你的思路了，是先新打开一个同名辅助表，先导入内容到辅助表，再copy到目标表位置。不知道猜得对不对。但不知道哪里有问题，测试没最终成功。停止在辅助表，也能看到导入的内容，但后续没完成。谢谢

tanglf188

天地一相 发表于 2023-5-25 06:58
谢谢，不懂含义，讲解一下？

这是直接调用Excel内置的文本文件导入窗口，适合任何文本格式和分隔符的文本导入