Workbooks.Open FileName:="C:S.xlsx"

2、使用變量打開(kāi)工作簿，無(wú)疑此法靈活。

Dim wkb As Workbook

Set wkb = Workbooks.Open(FileName:="C:S.xlsx")

必須保證C盤(pán)存在123.xlsx文件，否則出錯(cuò)；

又如，若123.XLSX文件存在，但路徑為：C:%6S.xlsx ,

該路徑456文件夾并不存在，也會(huì)報(bào)錯(cuò)。

就是保證路徑真實(shí)存在。

3、關(guān)閉工作簿

Workbooks("123.xls").Close

如使用了變量Wkb，則Wkb.Close

使用Close方法關(guān)閉工作簿時(shí)，如果改變了工作簿內(nèi)容，將提示用戶保存更改。

4、關(guān)閉工作簿，不保存更改。

Dim wkb As Workbook

Set wkb = Workbooks.Open(Filename:="C:S.xlsx")

Range("a1") = "套路Excel"

wkb.Close savechanges:=False

不保存 Range("a1") = "套路Excel" 的更改。

5、關(guān)閉工作簿，保存更改。

Dim wkb As Workbook

Set wkb = Workbooks.Open(Filename:="C:S.xlsx")

Range("a1") = "套路Excel"

wkb.Close savechanges:=True

保存 Range("a1") = "套路Excel" 的更改。

其中，savechanges:= 可以省略。

6、Close方法可以將工作簿另存為到指定路徑。

Sub 更改()

Dim wkb As Workbook

Set wkb = Workbooks.Open(Filename:="C:S.xlsx")

Range("a1") = "套路Excel"

wkb.Close True, "C:%6.xlsx"

End Sub

7、關(guān)閉一個(gè)工作簿和一次性關(guān)閉所有工作簿。

關(guān)閉一個(gè)工作簿：Workbook.Close，如

ActiveWorkbook.close

一次性關(guān)閉所有工作簿：workbooks.close

Sub 關(guān)閉Excel應(yīng)用程序不保存工作簿()

Application.DisplayAlerts = False '關(guān)閉提示

Application.Quit '退出應(yīng)用程序，即Excel界面

Workbooks.Close '關(guān)閉所有工作簿

Application.DisplayAlerts = True '恢復(fù)提示

End Sub

8、獲取工作簿的路徑信息

一旦打開(kāi)了某工作簿，就很容易獲取該工作簿的路徑、完整的路徑和文件名稱或僅獲取文件名稱。

Set wkb = Workbooks.Open(Filename:="C:S.xlsx")

wkb.path返回 C:

wkb.fullname 返回C:S.xlsx

假如要操作的所有工作簿都在同一個(gè)文件夾（同一路徑），我們經(jīng)常用ThisWorkbook來(lái)獲取路徑信息。如，返回代碼所在的工作簿的路徑信息。

練習(xí)1：跨工作簿查詢

同路徑下跨工作簿查詢，代碼參考如下：

若不在同一個(gè)文件夾，只需修改路徑打開(kāi)指定文件即可。

如將操作工作簿.xlsm放在桌面，打開(kāi)123.xlsx的路徑更改為：

路徑 = "C:UsersAdministratorDesktop數(shù)據(jù)"

工作簿名稱 = "123.xlsx"

完整路徑 = 路徑 & "" & 工作簿名稱

2、工作表另存為工作簿

參考代碼為：

若沒(méi)有 Application.DisplayAlerts = False 屏蔽提示，將提示同名文件已經(jīng)存在，是否替換。

使用屏蔽提示，將覆蓋現(xiàn)有的同名文件。

Excel示例文件下載：

鏈接: https://pan.baidu.com/s/1bdO-tTr9f3eEVP66ufvllQ 密碼: 9i68