欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

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

  發(fā)布時(shí)間:2016-09-22 15:39:18   作者:keoneo   我要評(píng)論
今天小編為大家分享excel使用vba創(chuàng)建新的工作薄并另存為方法,教程真的很不錯(cuò),推薦到腳本之家,喜歡的朋友可以參考本文

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

步驟

1、首先我們打開(kāi)一個(gè)工作樣表作為例子。

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

Sub AddSaveAsNewWorkbook()

Dim Wk As Workbook

Set Wk = Workbooks.Add

Application.DisplayAlerts = False

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

End Sub

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

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

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

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

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

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

相關(guān)文章

最新評(píng)論