【分享成果，隨喜正能量】我告誡自己：你的話說(shuō)得太多，你聽(tīng)別人傾訴得太多，你咖啡喝得太多，你在陌生的房間里坐的時(shí)間太長(zhǎng)，你的睡眠質(zhì)量太差，你醒著的時(shí)間太長(zhǎng)，你平庸的事想得太多，你希望過(guò)多，你安慰自己太頻繁。我或許敗北，或許迷失自己，或許哪里也抵達(dá)不了，或許我已失去一切，任憑怎么掙扎也只能徒呼奈何，或許我只是徒然掬一把廢墟灰燼，唯我一人蒙在鼓里，或許這里沒(méi)有任何人把賭注下在我身上。無(wú)所謂。有一點(diǎn)是明確的：至少我有值得等待有值得尋求的東西。

《VBA代碼解決方案》這套教程是我最早推出的教程，目前已經(jīng)是第二版修訂了。這套教程定位于入門后的提高，在學(xué)習(xí)這套教程過(guò)程中，側(cè)重點(diǎn)是要理解及掌握我的“積木編程”思想。要靈活運(yùn)用教程中的實(shí)例像搭積木一下把自己喜歡的代碼擺好。

這套教程共三冊(cè)，一百四十七講，內(nèi)容覆蓋較廣，也是初級(jí)和中級(jí)間的過(guò)度教程，改版后的內(nèi)容主要是提供程序源碼文件及代碼修正為32位和64位兼用代碼。今后一段時(shí)間會(huì)給大家陸續(xù)推出。今日的內(nèi)容是第26講：利用VBA新建工作簿

第二十六講 如何新建EXCEL工作簿文件

各位好，今日我們講VBA代碼的第26講，如何新建EXCEL工作薄文件。對(duì)于工作薄的解釋，我們?cè)谥暗奈恼轮幸呀?jīng)講解過(guò)，要再?gòu)?fù)習(xí)一下，同時(shí)要注意工作薄和工作表的概念。工作薄是文件，工作表是工作薄的工作頁(yè)。在VBA中使用Add方法新建工作簿。

1 使用Workbooks對(duì)象的Add方法創(chuàng)建新工作簿

使用Workbooks對(duì)象的Add方法創(chuàng)建新工作簿，其語(yǔ)法為：

Workbooks對(duì)象.Add(Template)

參數(shù)Template可選，確定如何創(chuàng)建新工作簿。如果該參數(shù)指定的字符串是已有的Excel文件名，那么使用指定的文件作為模板創(chuàng)建新工作簿。如果該參數(shù)指定為xlWBATemplate常量之一，則新工作簿包含單個(gè)指定類型的工作表。如果忽略該參數(shù)，那么新工作簿包含標(biāo)準(zhǔn)的空工作表，可以使用SheetsInNewWorkbook屬性設(shè)置工作表數(shù)。

xlWBATemplate常量為：xlWBATChart，xlWBATExcel4IntlMacroSheet，xlWBATExcel4MacroSheet，xlWBATWorksheet。分別代表圖表工作表、宏工作表以及標(biāo)準(zhǔn)工作表。

2 新建EXCEL工作簿文件的實(shí)例代碼及代碼解讀

下面我們來(lái)詳細(xì)講解一下如何創(chuàng)建工作薄文件，如下面的代碼所示：

Sub mynz_26() '第26講 如何新建EXCEL工作簿文件

Dim Nowbook As Workbook

Dim ShName As Variant

Dim Arr As Variant

Dim i As Integer

Dim myNewWorkbook As Integer

myNewWorkbook = Application.SheetsInNewWorkbook

ShName = Array("余額數(shù)", "單價(jià)數(shù)", "數(shù)量", "金額數(shù)")

Arr = Array("1月", "2月", "3月", "4月", "5月", "6月", "7月", "8月", "9月", "10月", "11月", "12月")

Application.SheetsInNewWorkbook = 4

Set Nowbook = Workbooks.Add

With Nowbook

For i = 1 To 4

With .Sheets(i)

.Name = ShName(i - 1)

.Range("B1").Resize(1, UBound(Arr) + 1) = Arr

.Range("A2") = "品名"

End With

Next

.SaveAs Filename:=ThisWorkbook.Path & "\" & "庫(kù)存.xlsx"

.Close Savechanges:=True

End With

Set Nowbook = Nothing

Application.SheetsInNewWorkbook = myNewWorkbook

End Sub

代碼窗口：

代碼解析：mynz_26()過(guò)程使用Add方法建立新的工作簿并對(duì)新建工作簿進(jìn)行操作。

1) 第2行到第6行代碼聲明變量類型。

2) 第7行代碼保存Excel自動(dòng)插入到新工作簿中的工作表數(shù)目。

3) 第8、9行代碼將數(shù)組元素賦值給變量。

4) 第10行代碼將Application對(duì)象的SheetsInNewWorkbook屬性設(shè)置為4，表示在新建工作簿時(shí)插入4張工作表。

5) 第11行代碼使用Add方法建立新的工作簿，應(yīng)用于Workbooks對(duì)象的Add方法新建工作簿，新建的工作簿將成為活動(dòng)工作簿。

6) 第12行到第22行代碼操作新建工作簿。

7) 第15行到第17行代碼將新建工作簿的工作表進(jìn)行重命名并給單元格賦值。

8) 第20行代碼使用SaveAs方法將新建工作簿重命名為“庫(kù)存.xls”保存在同一目錄中。

9) 第21行代碼使用Close方法關(guān)閉工作簿。

10) 第24行代碼恢復(fù)工作簿的默認(rèn)設(shè)置。

代碼的運(yùn)行結(jié)果：新添了文件“庫(kù)存”，內(nèi)容如下：

今日內(nèi)容回向：

1 ADD方法是什么？

2 .Range("B1").Resize(1, UBound(Arr) + 1) = Arr 是什么意義？

本講內(nèi)容參考程序文件：VBA代碼解決方案修訂（1-48）.xlsm

我20多年的VBA實(shí)踐經(jīng)驗(yàn)，全部濃縮在下面的各個(gè)教程中：

總結(jié)

以上是生活随笔為你收集整理的利用VBA创建新的工作簿vba创建一个新的工作簿的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。