使用VB Excel在打开的窗口中导入数据文本

Question

嗨，我非常熟悉Excel中的VB编程。 我被分配了一个创建宏来合并两个外部txt文件的工作。 这是一个问题，这两个文件的位置在客户端可能位于不同的位置。

这是我正在使用的代码。 无论如何，我可以在打开的窗口中导入数据文本吗？ 在将活动单元格设置为最后一行之后，我希望再次导入另一个数据文本并调整列宽。 非常感谢任何建议。

Sub GetFile()

Dim fNameAndPath As Variant, wb As Workbook
    fNameAndPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.XLS), *.XLS", Title:="Select File To Be Opened")
        If fNameAndPath = False Then Exit Sub
        Set wb = Workbooks.Open(fNameAndPath)

        Range("A1").Select
        ActiveCell.End(xlDown).Select
        ActiveCell.Offset(1, 0).Select
'
'do stuff
'
End Sub

Answer 1

是。 更改此代码：

fNameAndPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.XLS), *.XLS", Title:="Select File To Be Opened")

此代码：

fNameAndPath = Application.GetOpenFilename(FileFilter:="Text Files (*.TXT), *.TXT", Title:="Select File To Be Opened")

然后，不使用Workbook.Open ，而是使用Workbook.OpenText 。
要获取正确的语法，请记录宏，然后尝试在excel中打开文件。
然后根据需要编辑宏代码。