除非注明，文章均為 戰(zhàn)戰(zhàn)如瘋 原創(chuàng),，轉(zhuǎn)載請(qǐng)保留鏈接: http://www./cat1/94.html,，VBA交流群273624828。

今天來(lái)講一下工作簿的基本操作,，包括如何打開一個(gè)Excel工作簿,，如果新建及保存一個(gè)Excel工作簿。工作簿的打開用的是Open方法,，關(guān)閉用close方法,，新建用的是Add方法，保存用的是Save方法,，另存為用的是SaveAs方法,，刪除用的是Kill方法。具體看實(shí)例,。

首先看怎么利用VBA來(lái)新建一個(gè)Excel工作簿,。在桌面上新建一個(gè)工作簿，命名為原文件,，現(xiàn)在我們就要在原文件中通過(guò)VBA代碼在桌面上新建一個(gè)叫做"新文件.xlsx“的工作簿,。看代碼

Sub test()
Dim wb As Workbook        '定義wb為workbook對(duì)象
On Error Resume Next      '如有錯(cuò)誤則跳過(guò)
Kill ThisWorkbook.Path & "\新文件.xlsx"   '刪除相同路徑下同名文件
Set wb = Workbooks.Add    '新建一個(gè)工作簿
wb.Password = "123456"    '設(shè)置查看密碼為123456
wb.SaveAs ThisWorkbook.Path & "\新文件.xlsx"  '保存,，需完整路徑
wb.Close False      '關(guān)閉
End Sub

上面的代碼中先利用Kill方法將相同路徑下的同名文件刪除,，防止保存時(shí)報(bào)告存在同名文件的錯(cuò)誤，但是如果本來(lái)沒有同名文件的話程序又會(huì)報(bào)告找不到該文件,，所以這里又用到了On Error Resume Next,，這條語(yǔ)句是處理錯(cuò)誤時(shí)常用的,，它告訴程序忽略下一個(gè)錯(cuò)誤，繼續(xù)往后執(zhí)行,。然后程序中用Add方法新建了一個(gè)工作簿,，并且將該工作簿的PassWord屬性設(shè)為了”123456“，即打開工作簿的密碼,。之后用SaveAs方法將文件保存,，SaveAs需要完整的路徑名做參數(shù)。這里之所以用SaveAs而不是Save,，我們前面說(shuō)過(guò)SaveAs相當(dāng)于另存為,，用過(guò)Excel的都知道新建的工作簿保存時(shí)都會(huì)彈出另存為對(duì)話框讓你填名稱，沒什么不能理解的,。保存完之后就可以用Close方法關(guān)閉了,。

下面再簡(jiǎn)單介紹下Open方法和Save方法，現(xiàn)在我們有了一個(gè)新文件.xlsx工作簿,，現(xiàn)在要打開這個(gè)工作簿并且另Sheet1的A1單元格值為”Hello",，看下在的代碼

Sub test2()
Dim wb As Workbook
Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "/新文件.xlsx", Password:="123456")
wb.Sheets(1).Range("A1") = "Hello"
wb.Save
wb.Close
End Sub

上面的代碼中Workbooks.Open命令用來(lái)打開Excel工作簿，它有很多參數(shù),，具體可以百度,，必須的參數(shù)是文件路徑，即Filename參數(shù),，因?yàn)槲覀兘ǖ墓ぷ鞑居忻艽a所以我這里又加了一個(gè)Password參數(shù),，新手朋友可以觀察下參數(shù)是怎么寫的，用的是“:=”這種形式,。修改Sheet1中A1的內(nèi)容為"Hello"然后保存,，這里用的就是Save而不是SaveAs了，因?yàn)槲覀冞@里不需要重命名文件,，之后關(guān)閉即可,。
上面即是工作簿的基本操作，是我們解決很多問(wèn)題的基礎(chǔ),，在以后的實(shí)例分析中會(huì)應(yīng)用很廣,。