6

我正在尝试编写一个小函数，该函数在 excel 中接受文件路径（保存工作簿的位置）、目标路径（保存 pdf 的位置）和一串选项卡名称（竖线 (|) 分隔）。

该函数的用户不必输入选项卡名称字符串（这是可选的），如果不需要，我想选择所有可见的选项卡并打印它们。如果用户在单独的工作表中有 50 个图表并且不想写像“Chart1|Chart2|....”这样的字符串，就会出现这种情况。

代码：

For Each WSO.Name In WBO.Worksheets 
    strSheets = strSheets & WSO.Name & "|" 
Next WSO

strSheets = Left(strSheets, Len(strSheets) - 1) 
arraySheets() = Split(strSheets, "|")

WBO.Sheets(arraySheets()).Select     
WBO.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _ 
    strFilePath, Quality:=xlQualityStandard, _ 
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ 
    True

For Each 循环有两个问题：它不抓取任何表格，例如“Chart1”，它只抓取表格，例如“Sheet1”。此外，它会抓取隐藏的工作表，因此当我尝试选择它们时，我会得到一个超出范围的错误。

我不知道图表工作表的引用方式是否与常规工作表不同，或者为什么还要选择隐藏工作表。

4

2 回答 2

8

在循环中使用WBO.Sheets而不是。WBO.Worksheets

验证WSO.Visible = xlSheetVisible以过滤掉隐藏的工作表。

于 2011-07-23T00:35:31.180 回答
7

For Each 循环有两个问题：它不抓取任何表格，例如“Chart1”，它只抓取表格，例如“Sheet1”

图表和工作表是两个不同的集合。
试试这个：

Sub Demo()
Dim oWs As Worksheet
Dim oCs As Chart

For Each oWs In ActiveWorkbook.Worksheets
    Debug.Print oWs.Name
Next

For Each oCs In ActiveWorkbook.Charts
    Debug.Print oCs.Name
Next
End Sub
于 2011-07-24T03:09:18.567 回答