打开另一个工作簿的另存为对话框

Question

我目前正在研究临时解决方案，但遇到了问题....

情况是：

我有一个内置于 Excel 的转换器，它打开一个 XLS 文件，进行一些修改，以便可以将文件上传到 Oracle 数据库。

问题是，我打开的 XLS 文件无法将 Saveas 对话框保存到该文件，它总是保存转换器的副本。

我需要做的是在文件路径中打开 Saveas 对话框，为我打开的文件设置 CSV 的文件过滤器。

RRBOOK.Activate RR Book 是我打开的 DIM 文件

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

任何帮助，将不胜感激！

Answer 1

避免使用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