excel打开是乱码-VBA中新建、打开、保存、关闭工作簿！

本节我们学习下如何在指定目录下新建、打开、保存、关闭工作簿。

用add 方法 新建文件名为01的新的工作薄

Sub 新建工作薄() Dim Path1 As String

Path1 = "C:UsersHCHDesktopVBA 笔记工作薄的打开"

Workbooks.Add.SaveAs Path1 & "01.xlsx"

ActiveWorkbook.Close

Workbooks.Open Path1 & "01.xlsx"

End Sub

注：Path1 = "C:UsersHCHDesktopVBA 笔记工作薄的打开"

后面的路径可以自己更改。但是一定要保证文件夹是已经建立的，并且路径的最后的“”符号，别漏掉。否则代码会报错。

在打开工作薄之前，应该要选判断一下表格是否已经打开，避免同名的存在。

用open方法打开工作薄

代码如下：

Sub 打开工作薄()

Dim Path1 As String

Dim Name01 As String

Dim Excel As Workbook

Name01 = "01.xlsx"

Path1 = "C:UsersHCHDesktopVBA 笔记工作薄的打开"

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吧！