Save without dialog box

Asked Jun 03 '20 at 18:12

Active Jun 03 '20 at 18:24

Viewed 454 times

This code converts csv to xlsx

How can i run this code without the Yes/No/Cancel dialog box. Want to force it to overwrite.

Dim CSVfolder As String, _
XlsFolder As String, _
fname As String, _
wBook As Workbook

CSVfolder = "T:\COMMON\Tool Report\DATA\"
XlsFolder = "T:\COMMON\Tool Report\DATA\AutoConvertedCSVtoXLSX\"

fname = Dir(CSVfolder & "*.csv")

Do While fname <> ""
    Set wBook = Workbooks.Open(CSVfolder & fname, Format:=6, Delimiter:=",")
    wBook.SaveAs XlsFolder & Replace(fname, ".csv", ""), xlOpenXMLWorkbook
    wBook.Close True
    fname = Dir
Loop

Thanks

edited Jun 03 '20 at 18:12

braX

11,506
5
20
33

asked Jun 03 '20 at 18:12

Jellyfishy

`Application.DisplayAlerts = False` (I'm not sure the duplicate targets are exactly the best, but this should be what you need, please report back if it's not). – BigBen Jun 03 '20 at 18:16
Perfect Thank You – Jellyfishy Jun 03 '20 at 18:33

Save without dialog box

0 Answers0