Код VBA для преобразования CSV в XLS

Question

Цель: у меня есть папка, в которой на моем диске сбрасываются несколько CSV. Эти CSV необходимо преобразовать в файлы XLS и сохранить (как файлы XLS) в ту же исходную папку. У меня есть код (вставленный ниже) для него, который работает отлично, но ...

Проблема: каждый раз появляется окно с сообщением «Исполнение кода было прервано», что позволило мне продолжить, завершить или отладить. Я могу нажать «Продолжить» при каждом всплытии окна (он появляется для каждого файла, который нужно преобразовать), и скрипт будет работать отлично, но, конечно, я бы предпочёл не нажимать «Продолжить» потенциально сотни раз. Часть звездочки приведенного ниже кода - это часть, выделенная при нажатии Debug.

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 

Опять же - код работает, это просто, что окно отладки продолжает появляться, и я не могу понять, в чем проблема. Кстати, мне пришлось «xx» покинуть фактический каталог.

Благодарим за помощь!

Answer 1

Try: this

Это может помочь решить проблему, у меня был один из тех липких отладочных коробки тоже без причины вообще и эта линия помогла мне.

Редактировать: Вот код с сайта, который разрешает описанную проблему. Добавление этой строки в начале своего кода сделает трюк.

Application.EnableCancelKey = xlDisabled