Макрос Excel - Экспорт листа в CSV и поиск для сохранения каталога
У меня успешно работает макрос, который делает то, что мне нужно, но я хотел бы сделать это лучше и могут.
- Этот бит работает - Нажав кнопку в Excel, пользователь экспортирует конкретный лист в CSV с динамическим именем файла и сохраняет CSV в заранее определенном каталоге.
- Может ли он сделать это вместо этого - Вместо сохранения в заранее определенный каталог, могу ли я показать окно обзора, чтобы они могли выбрать каталог для сохранения? Я могу'не могу понять, как это сделать.
Вот мой макрос:
Sub Export()
Dim MyPath As String
Dim MyFileName As String
MyPath = "C:\importtest"
MyFileName = "MR_Update_" & Sheets("Monthly Review").Range("D3").Value & "_" & Format(Date, "ddmmyyyy")
If Not Right(MyPath, 1) = "\" Then MyPath = MyPath & "\"
If Not Right(MyFileName, 4) = ".csv" Then MyFileName = MyFileName & ".csv"
Sheets("Export Data").Copy
With ActiveWorkbook
.SaveAs Filename:= _
MyPath & MyFileName, _
FileFormat:=xlCSV, _
CreateBackup:=False
.Close False
End With
End Sub