Tag: folderbrowserdialog

Excel VBAmacros将所有以前保存的工作表replace为CSV文件？

这里是我用于将工作簿中的所有工作表保存为单独的CSV文件到用户可以通过文件夹选取器选取的特定path的代码。 但是，如果我对任何电子表格进行了任何更改并再次运行macros，则会提示“文件已存在于此path…..您是否要replace”。 如果我单击是，每个工作表都会出现提示。 如果我点击否，macros将引发错误 – 请参阅截图。 有没有办法，我可以修改macros只是为了replace所有的CSV文件，并提示完全？ Sub CSVAutomation() Dim ws As Worksheet, wb As Workbook Dim pathh As Variant Set wb = ActiveWorkbook With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = False If .Show = -1 Then 'a folder was picked pathh = .SelectedItems(1) End If End With If pathh = False Then Exit Sub 'no folder picked; […]