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

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ì)話(huà)框,目的是在運(yùn)行vba的過(guò)程中不會(huì)彈出中止過(guò)程運(yùn)行的需要人工去干預(yù)的一個(gè)警告對(duì)話(huà)框。大家可以理解一下當(dāng)你在另存為時(shí),excel會(huì)彈出的那個(gè)對(duì)話(huà)框去點(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)論

灌阳县| 抚远县| 台东市| 宜春市| 湾仔区| 阳高县| 库尔勒市| 新邵县| 大邑县| 六盘水市| 潼关县| 芜湖市| 获嘉县| 开原市| 临高县| 伊吾县| 江安县| 南投市| 股票| 贵州省| 塔城市| 黄浦区| 濉溪县| 襄城县| 山阳县| 拉孜县| 页游| 义乌市| 政和县| 凤城市| 镇赉县| 手游| 大渡口区| 砀山县| 唐海县| 通海县| 通榆县| 家居| 河池市| 九龙坡区| 巨鹿县|