除非注明，文章均為 戰(zhàn)戰(zhàn)如瘋 原創(chuàng)，轉(zhuǎn)載請(qǐng)保留鏈接: Sub test() 上面的代碼中先利用Kill方法將相同路徑下的同名文件刪除，防止保存時(shí)報(bào)告存在同名文件的錯(cuò)誤，但是如果本來沒有同名文件的話程序又會(huì)報(bào)告找不到該文件，所以這里又用到了On Error Resume Next，這條語(yǔ)句是處理錯(cuò)誤時(shí)常用的，它告訴程序忽略下一個(gè)錯(cuò)誤，繼續(xù)往后執(zhí)行。然后程序中用Add方法新建了一個(gè)工作簿，并且將該工作簿的PassWord屬性設(shè)為了”123456“，即打開工作簿的密碼。之后用SaveAs方法將文件保存，SaveAs需要完整的路徑名做參數(shù)。這里之所以用SaveAs而不是Save，我們前面說過SaveAs相當(dāng)于另存為，用過Excel的都知道新建的工作簿保存時(shí)都會(huì)彈出另存為對(duì)話框讓你填名稱，沒什么不能理解的。保存完之后就可以用Close方法關(guān)閉了。 下面再簡(jiǎn)單介紹下Open方法和Save方法，現(xiàn)在我們有了一個(gè)新文件.xlsx工作簿，現(xiàn)在要打開這個(gè)工作簿并且另Sheet1的A1單元格值為”Hello"，看下在的代碼 Sub test2() 上面的代碼中Workbooks.Open命令用來打開Excel工作簿，它有很多參數(shù)，具體可以百度，必須的參數(shù)是文件路徑，即Filename參數(shù)，因?yàn)槲覀兘ǖ墓ぷ鞑居忻艽a所以我這里又加了一個(gè)Password參數(shù)，新手朋友可以觀察下參數(shù)是怎么寫的，用的是“:=”這種形式。修改Sheet1中A1的內(nèi)容為"Hello"然后保存，這里用的就是Save而不是SaveAs了，因?yàn)槲覀冞@里不需要重命名文件，之后關(guān)閉即可。
Dim wb As Workbook '定義wb為workbook對(duì)象
On Error Resume Next '如有錯(cuò)誤則跳過
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
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
上面即是工作簿的基本操作，是我們解決很多問題的基礎(chǔ)，在以后的實(shí)例分析中會(huì)應(yīng)用很廣。
聯(lián)系客服
