JayBhagavan, спасибо за ответ.
Вопрос почти удалось закрыть макросом, который ниже.
Не знаю, можно ли продолжить обсуждение в рамках этой темы, но все-таки...
возникла другая проблема: при пересохранении *.csv  в *.xlsm теряются разделители, то есть данные из нескольких столбцов объединяются в один. Если возможно, подскажите, как поправить или где посмотреть.



Sub CSVtoXls()

Dim CSVfolder As String
Dim XlsFolder As String
Dim fname As String
Dim wBook As Workbook

   With Application.FileDialog(msoFileDialogFilePicker)
       .AllowMultiSelect = True
       .InitialFileName = "*.*"
       .Title = "Choose files"
   If .Show = False Then Exit Sub
   
 
fname = Dir(CSVfolder & "*.csv")

Do While fname <> ""
   Set wBook = Workbooks.Open(CSVfolder & fname, Format:=6, Delimiter:=",")
   wBook.SaveAs XlsFolder & Replace(fname, ".csv", ""), ThisWorkbook.FileFormat
   wBook.Close False
fname = Dir
Loop
End With
End Sub