vba - 使用 VBA 批量将 TXT 转换为 XLS

Question

我正在尝试使用 VBA 将充满 .txt 文件的目录转换为 .xls。我正在使用以下代码:

    Sub TXTconvertXLS()


    'Variables
    Dim wb As Workbook
    Dim strFile As String
    Dim strDir As String

    'Directories
    strDir = "\\xx\xx\xx\xx\Desktop\Test\Test1\"
    strFile = Dir(strDir & "*.txt")

    'Loop
    Do While strFile <> ""
        Set wb = Workbooks.Open(strDir & strFile)
            With wb
                .SaveAs Replace(wb.FullName, ".txt", ".xls"), 50
                .Close True
            End With
        Set wb = Nothing
    Loop


    End Sub

问题是:当我运行它时，它立即指出目录中已经存在一个与其尝试保存的名称相同的文件。它显示的名称甚至有一个 .xls 扩展名，即使目录中肯定还没有 .xls!任何帮助将不胜感激 - 谢谢!

Answer 1

您似乎在Loop之前缺少strFile = Dir。如果没有它，您将重新处理同一个 TXT 文件。

    Do While strFile <> ""
        Set wb = Workbooks.Open(strDir & strFile)
            With wb
                .SaveAs Replace(wb.FullName, ".txt", ".xls"), 50
                .Close False   '<-already saved in the line directly above
            End With
        Set wb = Nothing
        strFile = Dir   '<- stuffs the next filename into strFile
    Loop

参见Dir Function