Всем привет.
Подскажите, пожалуйста, как корректно с разделителями открыть с помощью VBA текстовый файл формата .csv?
Если открывать (двойным щелчком по файлу) Экселем - открывается нормально, с нужными разделителями, а если открывать нижеуказанным макросом - открывается криво, всё "на кучу".
Архив прилагаю. Заранее спасибо.
Макрос для открытия:
Sub test()
Sheets(1).Cells.ClearContents
Application.ScreenUpdating = False
Dim wbCsv As String: wbCsv = ThisWorkbook.Path & "\original bd.csv"
Workbooks.OpenText Filename:=wbCsv, otherchar:=";"
With ActiveWorkbook
.ActiveSheet.UsedRange.Copy ThisWorkbook.Sheets(1).[a1].Cells
.Close (True)
End With
Application.ScreenUpdating = True
End Sub
Подскажите, пожалуйста, как корректно с разделителями открыть с помощью VBA текстовый файл формата .csv?
Если открывать (двойным щелчком по файлу) Экселем - открывается нормально, с нужными разделителями, а если открывать нижеуказанным макросом - открывается криво, всё "на кучу".
Архив прилагаю. Заранее спасибо.
Макрос для открытия:
Sub test()
Sheets(1).Cells.ClearContents
Application.ScreenUpdating = False
Dim wbCsv As String: wbCsv = ThisWorkbook.Path & "\original bd.csv"
Workbooks.OpenText Filename:=wbCsv, otherchar:=";"
With ActiveWorkbook
.ActiveSheet.UsedRange.Copy ThisWorkbook.Sheets(1).[a1].Cells
.Close (True)
End With
Application.ScreenUpdating = True
End Sub
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?