I have hours trying out code posted here on SO. They open the files successfully but when they are saved, they are still in Unicode Text format and Python pandas csv_reader won't read them. Here is my latest and greatest attempt. My files are in subfolder "QCfiles":
Sub LoopExample()
Dim MyFolder As String, MyFile As String
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
MyFolder = .SelectedItems(1)
Err.Clear
End With
Application.ScreenUpdating = False
MyFile = Dir(MyFolder & "\", vbReadOnly)
Do While MyFile <> ""
Workbooks.Open FileName:=MyFolder & "\" & MyFile, UpdateLinks:=False
MsgBox Cells(1, 1)
ActiveWorkbook.SaveAs FileName:=MyFile, FileFormat:=xlCSV
Workbooks(MyFile).Close savechanges:=True
MyFile = Dir
Loop
Application.ScreenUpdating = True
End Sub