VBA代码将CSV转换为XLS

目标：我有一个文件夹，其中有多个CSV转储到我的驱动器上。 这些CSV需要被转换为XLS文件并保存（作为XLS文件）到相同的原始文件夹中。 我有一个代码（粘贴在下面），它工作得很好，但…

问题：每次都会popup一个窗口，说“代码执行已经中断”，允许我继续，结束或debugging。 每次popup窗口（每popup一个需要转换的文件），我都可以点击继续，这个脚本就能正常工作，当然，我不需要点击继续可能的上百次。 以下代码的星号部分是单击debugging时突出显示的部分。

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 

再次 – 代码是否工作，只是debugging窗口不断popup，我不知道是什么问题。 顺便说一句，我不得不“xx”出实际的目录。

感谢您的任何帮助！

Answer 1

试试： 这个

这可能有助于解决你的问题，我也有一个粘性的debugging盒，没有任何理由，这条线帮助了我。

编辑：这是从上面的网站解决问题描述的代码。 在这个代码的开始处join这行代码就可以了。

Application.EnableCancelKey = xlDisabled