[VBA] - eksport pliku *.csv do *.xlsx - makro

Witam,

Próbuję rozwiązać problem konwersji plików z rozszerzeniem *.csv do pliku z rozszerzeniem *.xlsx. Stworzyłem makro, które zarejestrowało "ręczne" zapisanie pliku z .csv do pliku .xlsx, po czym lekko je zmodyfikowałem aby ułatwiło mi pracę związaną z konwersją wielu plików i okazuje się, że makro nie działa jak powinno. Przy ręcznym zapisywaniu pliku z .csv do .xlsx wszystko jest ok, ale kiedy to samo próbuję wykonać za pomocą stworzonego makro, wartości w pliku .xlsx zapisują się w kilku kolumnach i oddzielone są od siebie znakiem ";". Może ktoś z was miał podobny orzech do zgryzienia i jednak go rozgryzł ? :)

Dodałem również plik .rar z załączonym plikiem .csv , plikiem poprawnie zapisanym (wzorcowy) oraz z plikiem wynikowym działania programu (nowy) w celu zrozumienia problemu

Kod :

Sub wyszukiwanie()

Dim nextFile As String
Dim myDir As String
Dim myFile As String

'sciezka do szukania
        
         myDir = InputBox(" Podaj ścieżkę dostępu do plików *.csv, zakończoną ' \ ' ")

         myFile = "*.csv"

            nextFile = VBA.Dir(myDir & myFile)

                    Do Until Len(nextFile) = 0


                            MsgBox nextFile


                            Dim wkb As Workbook

                            Set wkb = Workbooks.Open(myDir & nextFile)
                                                
                             ActiveWorkbook.SaveAs Filename:=myDir & "NOWY_" & nextFile & ".xlsx", FileFormat:=xlOpenXMLWorkbook
                            
                             ActiveWindow.Close

                             nextFile = VBA.Dir()

                    Loop

End Sub