Открыть диалоговое окно сохранения для другой книги

В настоящее время я работаю над временным решением, но столкнулся с проблемой....

Ситуация такова:

У меня есть конвертер, встроенный в Excel, который открывает файл XLS, делает некоторые изменения, чтобы файл можно было загрузить в базу данных Oracle.

Проблема в том, что файл XLS, который я открыл, не может открыть диалоговое окно «Сохранить как» для этого файла, вместо этого он всегда сохраняет копию конвертера.

Что мне нужно сделать, так это открыть диалоговое окно «Сохранить как» в пути к файлу, установив файловый фильтр для CSV для файла, который я открыл.

RRBOOK.Activate Книга RR – это DIM-файл, который я открыл

Dim FileName As String
FileName = Application.GetSaveAsFilename("\\FILEPATH\", FileFilter:="CSV (Comma delimited) (*.csv), *.csv")
If FileName <> "False" Then
 ActiveWorkbook.SaveAs FileName
End If

Любая помощь будет оценена по достоинству!


excel vba save-as
person Liam1988    schedule 07.06.2020    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Избегайте использования ActiveWorkbook и .Activate.

Вместо этого напрямую сохраните нужную книгу,

RRBOOK.SaveAs FileName

Также вы должны указать формат файла, который вы хотите сохранить, в соответствии с Перечисление XlFileFormat и метод Workbook.SaveAs< /а>.

Поэтому для сохранения в формате CSV вы должны, например, использовать

RRBOOK.SaveAs FileName, xlCSV

Таким образом, вы получите что-то вроде

Dim FileName As Variant
FileName = Application.GetSaveAsFilename("\\FILEPATH\", FileFilter:="CSV (Comma delimited) (*.csv), *.csv")
If VarType(FileName) = vbBoolean And FileName = False Then
    'user pressed cancel
    Exit Sub
Else
    RRBOOK.SaveAs FileName
End If
person Pᴇʜ    schedule 07.06.2020