VBA 将 CSV 转换为 XLS 的代码

Question

Objective：我有一个文件夹，其中有多个 CSV 转储到我的驱动器上。这些 CSV 需要转换为 XLS 文件并保存（作为 XLS 文件）到相同的原始文件夹中。我有一个代码（粘贴在下面）可以正常工作，但是...

问题：每次显示 "Code execution has been interrupted," 时都会弹出 window 允许我继续、结束或调试。我可以在每次弹出 window 时单击继续（它会为每个需要转换的文件弹出）并且脚本将完美运行，但当然，我宁愿不必单击继续可能有数百个次。下面代码中带星号的部分是单击“调试”时突出显示的部分。

Sub Convert_CSV_XLS()

Dim wb As Workbook
Dim strFile As String, strDir As String

strDir = "xx:\xx\xx\xx\xx\xx\xx\xx\"
strFile = Dir(strDir & "*.csv")

Do While strFile <> ""

Set wb = Workbooks.Open(Filename:=strDir & "\" & strFile, Local:=True)
**wb.SaveAs Replace(wb.FullName, ".csv", ".xls"), 56**
wb.Close SaveChanges:=False

Set wb = Nothing
strFile = Dir
Loop

End Sub

再次 - 代码确实有效，只是调试 window 不断弹出，我无法弄清楚问题是什么。顺便说一下，我不得不 "xx" 出实际目录。

感谢您的帮助！

Answer 1

尝试：this

它可能有助于解决您的问题，我也无缘无故地遇到了那些粘性调试框之一，这条线对我有帮助。

编辑：这是来自上述网站的代码，它解决了所描述的问题。在代码的开头添加这一行就可以了。

Application.EnableCancelKey = xlDisabled

VBA 将 CSV 转换为 XLS 的代码

VBA Code to Convert CSV to XLS

csv

excel

vba

xls

converter