我有一个 Excel“Closed.Xls”,当前未打开。
请告诉我如何将新工作表添加到此关闭的 Excel 文件中。我知道如何在当前的 Excel 中添加新工作表。
Dim WS as Worksheet
Set WS = Sheets.Add
请让我知道如何
- 使用 VBA 在关闭的 Excel 中添加新工作表,以及
- 获取添加的工作表的名称
注意:我不想重命名该工作表。
Thanks
像这样的东西会做你想做的事。如果不打开工作簿,这是不可能的,但如果关闭屏幕更新,它会显示为未打开的外观。
Option Explicit
Sub Add_Sheet_ClosedBook()
Dim bk As Workbook
Dim sh As Worksheet
Dim shName As String
With Application
.ScreenUpdating = False
.DisplayAlerts = False
Set bk = .Workbooks.Open _
("Path to Book.xls")
End With
With bk
Set sh = .Sheets.Add
shName = sh.Name
.Save
.Close
End With
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)