国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板: 津南区| 石棉县| 千阳县| 碌曲县| 亚东县| 阿城市| 曲松县| 全南县| 探索| 石棉县| 司法| 元朗区| 云和县| 大化| 格尔木市| 三台县| 定陶县| 山阴县| 大姚县| 龙井市| 枣庄市| 门源| 泰安市| 红原县| 九龙县| 肇源县| 云和县| 鄂托克旗| 开封县| 峡江县| 汾阳市| 上蔡县| 怀宁县| 新民市| 三亚市| 乌拉特后旗| 玛多县| 平遥县| 平泉县| 平泉县| 城口县|