本節我們學習下如何在指定目錄下新建、打開、保存、關閉工作簿。
用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分享 的文章