本节我们学习下如何在指定目录下新建、打开、保存、关闭工作簿。
用add 方法 新建文件名为01的新的工作薄
Sub 新建工作薄() Dim Path1 As String
Path1 = "C:\Users\HCH\Desktop\VBA 笔记\工作薄的打开"
Workbooks.Add.SaveAs Path1 & "01.xlsx"
ActiveWorkbook.Close
Workbooks.Open Path1 & "01.xlsx"
End Sub
注：Path1 = "C:\Users\HCH\Desktop\VBA 笔记\工作薄的打开"
后面的路径可以自己更改。但是一定要保证文件夹是已经建立的，并且路径的最后的“\”符号，别漏掉。否则代码会报错。
在打开工作薄之前，应该要选判断一下表格是否已经打开，避免同名的存在。
用open方法打开工作薄
代码如下：
Sub 打开工作薄()
Dim Path1 As String
Dim Name01 As String
Dim Excel As Workbook
Name01 = "01.xlsx"
Path1 = "C:\Users\HCH\Desktop\VBA 笔记\工作薄的打开"
For Each Excel In Workbooks
If Excel.Name = Name01 Then
MsgBox "工作薄" & Name01 & "已经被打开"
Exit Sub
End If
Next
Workbooks.Open Path1 & "01.xlsx"
End Sub
用close方法 关闭工作薄
Sub 关闭工作薄()
ThisWorkbook.Close SaveChanges:=False
End Sub
应用于Workbook对象的Close方法关闭对象，语法如下： expression.Close(SaveChanges, Filename, RouteWorkbook) 其中SaveChanges参数是可选的，如果工作簿没有改变则忽略此参数；如果工作簿发生了改变并且在另外的窗口中也打开了该工作簿，则仍然忽略此参数；如果工作簿发生了改变并且没有在另外的窗口中打开，则此参数将指定是否在工作簿中保存所发生的更改。取值与操作如下图所示：
大家一起来学 Excel VBA吧！
閱讀更多 浮雲Excel分享 的文章
