最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

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

  發(fā)布時間:2016-09-22 15:39:18   作者:keoneo   我要評論
今天小編為大家分享excel使用vba創(chuà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彈出警告對話框,目的是在運(yùn)行vba的過程中不會彈出中止過程運(yùn)行的需要人工去干預(yù)的一個警告對話框。大家可以理解一下當(dāng)你在另存為時,excel會彈出的那個對話框去點(diǎn)擊“確定”過程。

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

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

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

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

相關(guān)文章

最新評論

昆明市| 嵊州市| 麻阳| 孝昌县| 兴安盟| 紫云| 通渭县| 富锦市| 南岸区| 玛沁县| 抚顺市| 叙永县| 本溪| 铅山县| 达州市| 南皮县| 河北省| 塘沽区| 金溪县| 华容县| 德庆县| 陵川县| 杭锦后旗| 蓝山县| 云安县| 中江县| 日照市| 曲靖市| 六盘水市| 秦安县| 阿勒泰市| 保德县| 定结县| 德格县| 香河县| 平舆县| 五原县| 锦屏县| 海林市| 榕江县| 卢龙县|