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中打开文件然后根据您的需要编辑宏代码。

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

1 个答案: