excel中使用vba來建立新的工作薄並另存為的方法?

excel中使用vba來建立新的工作薄並另存為的方法

工具/原料

excel2013

更多經驗請關注，如果幫到了你，請在上方給個投票謝謝支援。 好人一生平安。

先頂後看年薪百萬，如果幫到了你，幫忙給個好評，這對小編很重要，萬分感謝。

方法/步驟

首先我們開啟一個工作樣表作為例子。

我們使用alt+f11組合快捷鍵進入vbe編輯器，插入一個新的模組，並在模組中輸入以下程式碼：

Sub AddSaveAsNewWorkbook()

Dim Wk As Workbook

Set Wk = Workbooks.Add

Application.DisplayAlerts = False

Wk.SaveAs Filename:="D:/SalesData.xls"

End Sub

工作薄是workbook是一個物件，所以我們定義一個變數wk為物件使用set語句，add新建方法是workbooks物件中的方法，Set Wk = Workbooks.Add即是新建一個工作薄。

這裡我們禁止excel彈出警告對話方塊，目的是在執行vba的過程中不會彈出中止過程執行的需要人工去幹預的一個警告對話方塊。大家可以理解一下當你在另存為時，excel會彈出的那個對話方塊去點選“確定”過程。

另存為方法會讓你選擇儲存檔案的路徑和名字，這裡我們直接用函式來給其賦值wk是物件，saveas是方法，filename是引數，直接輸入路徑和檔名即可。

引數的輸入使用的是：=而不是直接使用=，這點大家要記住。另外因為前面使用過禁止顯示資訊提示，在使用完這個過程後，excel會處在不提示狀態，所以我們應該加一句Application.DisplayAlerts = True來恢復設定。

執行以上的程式碼，會出現錯誤提示，大家可以找一下為什麼會出錯，該如何修正，我提示一下錯誤的位置在於某個符號。

注意事項

謝謝你的投票。