detriez
Board Regular
- Joined
- Sep 13, 2011
- Messages
- 193
- Office Version
- 365
- Platform
- Windows
I am trying to save a file as csv with UTF-8 encoding.
But, this saves it as XLS
But, this saves it as XLS
VBA Code:
Dim fPth As Object
Set fPth = Application.FileDialog(msoFileDialogSaveAs)
Application.DisplayAlerts = False
With fPth
.InitialFileName = "SavePreppedFile"
.Title = "Save Prepped File"
.FilterIndex = 15
.InitialView = msoFileDialogViewList
If .Show <> 0 Then
ThisWorkbook.SaveAs Filename:=.SelectedItems(1), FileFormat:=xlCSVUTF8
End If
End With
Application.DisplayAlerts = True