国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Excel > 正文

excel使用vba創(chuàng)建新的工作薄并另存為

2019-12-13 09:33:14
字體:
供稿:網(wǎng)友

excel中使用vba來創(chuàng)建新的工作薄并另存為的方法,有需要的朋友可以參考本文,來看看吧!

步驟

1、首先我們打開一個工作樣表作為例子。

2、我們使用alt+f11組合快捷鍵進(jìn)入vbe編輯器,插入一個新的模塊,并在模塊中輸入以下代碼:

Sub AddSaveAsNewWorkbook()

Dim Wk As Workbook

Set Wk = Workbooks.Add

Application.DisplayAlerts = False

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

End Sub

3、工作薄是workbook是一個對象,所以我們定義一個變量wk為對象使用set語句,add新建方法是workbooks對象中的方法,Set Wk = Workbooks.Add即是新建一個工作薄。

4、這里我們禁止excel彈出警告對話框,目的是在運行vba的過程中不會彈出中止過程運行的需要人工去干預(yù)的一個警告對話框。大家可以理解一下當(dāng)你在另存為時,excel會彈出的那個對話框去點擊“確定”過程。

5、另存為方法會讓你選擇存儲文件的路徑和名字,這里我們直接用函數(shù)來給其賦值wk是對象,saveas是方法,filename是參數(shù),直接輸入路徑和文件名即可。

6、參數(shù)的輸入使用的是:=而不是直接使用=,這點大家要記住。另外因為前面使用過禁止顯示信息提示,在使用完這個過程后,excel會處在不提示狀態(tài),所以我們應(yīng)該加一句Application.DisplayAlerts = True來恢復(fù)設(shè)置。

7、運行以上的代碼,會出現(xiàn)錯誤提示,大家可以找一下為什么會出錯,該如何修正,我提示一下錯誤的位置在于某個符號。

以上就是excel使用vba創(chuàng)建新的工作薄并另存為方法介紹,操作很簡單的,大家學(xué)會了嗎?希望這篇文章能對大家有所幫助!

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 临沂市| 衢州市| 大丰市| 红安县| 彭山县| 保康县| 宁河县| 诸城市| 喜德县| 车险| 杭锦旗| 凤阳县| 美姑县| 得荣县| 宁波市| 河间市| 林芝县| 崇左市| 莒南县| 玛多县| 滨州市| 抚宁县| 祁东县| 文山县| 徐汇区| 石首市| 丰原市| 海盐县| 柳江县| 蓝田县| 柏乡县| 萝北县| 肥城市| 犍为县| 江华| 横山县| 西昌市| 宣威市| 滨州市| 博野县| 建水县|