根据图纸名称仅将Excel VBA中的某些图纸动态保存为PDF

Question

我有5张纸的Excel工作簿（为简化起见，我在这里简化）：

'DataMaster'

'CityData S'

'TownData S'

'TownlandData S'

'StreetData S'

有时还有其他工作表/选项卡，但要保存的工作表均带有“ S”后缀。 这里的“ Datamaster”不需要保存。

我希望使用一个循环将其导出/保存为PDF

1）仅查看名称中最右边2个字符为“ S”的工作表。

2）不在乎这些表是3还是10。

3）将导出为PDF，文件名是工作表名称中的左短语。

因此，出口将是：

CityData.PDF , 
TownData.PDF , 
TownlandData.PDF , 
StreetData.PDF

任何提示/帮助将不胜感激，我只基本导出为PDF代码。

Answer 1

您可以使用For Each循环遍历工作簿中的每个工作表。 您可以使用If来测试Right()两个字符是否匹配。

就像是：

Sub SaveToPDF
    Dim ws as worksheet

    'Loop through worksheets, each worksheet is assigned to variable "ws" declared above:
    For Each ws in ThisWorkbook.Worksheets
        If Right(ws.name, 2) = " S" Then
            'export as pdf
            ws.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:="C:\" & Left(ws.name, len(ws.name)-2) & ".pdf", _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=True
        End If
    Next ws
End Sub