打開另一個工作簿的另存為對話框

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