保存.PDF版本时排除指定的工作表
保存.PDF版本时排除指定的工作表
提问于 2020-02-07 12:24:31
我希望在我的工作簿中隐藏指定的工作表，因为我不希望它们保存在我的.PDF版本中。
基于How to exclude 1 sheet from my save to pdf VBA macro，我指定了工作表名，但是我有一组可以展开的工作表(民间1，民用2存在，但民用3等可能出现)。
我准备了代码：
Sub SplicingAsbuilt()
Sheets(Array("Materials - Specifications", "Fire Stopping", "Trunking", "Drop Length Calculator",
"BoM", "BoQ Civils", "BoQ Cabling")).Visible = False
If ThisWorkbook.Sheets.Name Like "*Civils*" Then
Sheets.Visible = False
End If我的控制台返回：
“方法或数据成员未找到”
这里给出的答案的一个例子是：Excel VBA: Compile Error: Method or data member not found不适用。
回答 1
Stack Overflow用户
回答已采纳
发布于 2020-02-07 12:46:59
请试试这段代码：
Sub SplicingAsbuilt()
Dim Sh As Worksheet, arrSh As Variant, arr As Variant
arrSh = Array("Materials - Specifications", "Fire Stopping", "Trunking", "Drop Length Calculator", _
"BoM", "BoQ Civils", "BoQ Cabling")
For Each Sh In ThisWorkbook.Sheets
If Sh.Name Like "*Civils*" Then Sh.Visible = xlSheetHidden
For Each arr In arrSh
If Sh.Name = arr Then Sh.Visible = xlSheetHidden: Exit For
Next
Next
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/60113472
复制相关文章
相似问题
腾讯云开发者
