Символы в CSV Сохранить файл

Question

Я пишу это из-за того, что я не могу перенести данные Excel в отдельный файл CSV без их форматирования в несколько специальных символов. Этот макрос предназначен для извлечения всего необходимого для загрузки и сохранения файла в формате CSV, чтобы пользователю не пришлось беспокоиться.

Пожалуйста, смотрите код неисправности ниже. В коде отсутствуют фрагменты кода, однако это проблемный бит.

'' '

Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("A:A").Select
Application.CutCopyMode = False
Selection.NumberFormat = "mm/dd/yy;@"
Columns("H:H").Select
Selection.NumberFormat = "0"
Columns.AutoFit
Range("A1").Select

MsgBox "Save as CSV to Client Upload File | Example : HBSFULDT", vbInformation, "Fuel Transfer Complete"
cFile = Application.GetSaveAsFilename(InitialFileName:="XXXFULDT", _
fileFilter:="CSV Files (*.csv), *.csv", _
Title:="Save as FT Client Upload File")

If cFile <> False Then
uploadSheet.SaveAs Filename:=cFile
Else
MsgBox "Please Save Fuel Upload to Client XXXFULDT File", vbCritical 'If Cancel is pushed on SaveAs Screen
Exit Sub
End If
ActiveWindow.Close

' ''

Пример символов, отображаемых в блокноте - E ÷ HüCä-Jܲ@5í ‚Ç Q> ÀÄ« ƪc [žiiÿž û ¡B¡j7 ± ÏÜ {2ñÍh²nm¶‚ˆÆ »R‹ ÈÀU ^ 7 / ÅÇì% ¿'rZYï @ 1__f ›˜q · ÁR4DAJ¬h> ãÚÇVßƹªZ¨9ÈÛÁàNVÞ8Ê © ÓãÑÔji) {^ оа-I < "{уф ^ ¥ P XS) bR¹rú-K¾s (¸3Õ`cÞ0 † ½ÝÎß» ¾7M4² © ŠôªZÆk + ¿|! \ | z¿ (Ž <ôPúº6h _- [ž @! ‚Ø Pk ‹´2nÏ} Ä? £ LËð Ýû% ÁßdºždN" м, à ¥ ÇžDO97 </em> ‚~ §Èɸ8ÀOíc | n¦Ñä

Answer 1

Строка кода, которая говорит uploadSheet.SaveAs, не указывает FileType. По умолчанию будет xls или xlsx, независимо от имени файла.

напр. если вы сохраните файл Excel как MyDemo.csv, он все равно будет xls. Excel выяснит это при открытии файла, не жалуясь на несоответствие имени

Этот код должен исправить это

'replace this line
uploadSheet.SaveAs Filename:=cFile

'with this line
uploadSheet.SaveAs Filename:=cFile, FileFormat:=xlCSV 'or 6, which means CSV format

Для получения информации и других настроек, проверьте SaveAs документы: https://docs.microsoft.com/en-us/office/vba/api/excel.workbook.saveas