小编mxc*_*090的帖子

我有一段代码在运行超过3年.突然在2016年7月28日,它停止了工作.

它非常简单,我希望它是一个简单的解决方案(或者微软的更新可能会破坏它)

ThisWorkbook.Sheets(1).Select
ThisWorkbook.Sheets(2).Select (False) ' like holding ctrl

这总是会选择Sheet#1 AND Sheet#2.现在似乎"(False)"不起作用,它只会选择Sheet#1.我在5台不同的计算机上试过这个(所有Excel 2013)请让我知道发生了什么.

谢谢!-麦克风

编辑:这也不再起作用了.就像乔丹在评论中所说,它只是没有执行.

y = 9
ThisWorkbook.Sheets(1).Select

For y = 2 To x

       ThisWorkbook.Sheets(y).Select (False) ' like holding ctrl

Next y

edit2:由于似乎没有明确的答案,我会问有人可以帮我解决一个问题:

ThisWorkbook.Sheets(Array(1 to x)).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    FolderName & "\" & QuoteFilename, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, OpenAfterPublish:=False

显然这不起作用,但它应该得到我的观点.

解:

感谢拉尔夫,我摘了一些摘录并创造了这个:

Private Sub Tester()
x = 5
ReDim SheetstoSelect(1 To x) As String

For y = 1 To x
    SheetstoSelect(y) = ThisWorkbook.Sheets(y).Name
Next y
ThisWorkbook.Sheets(SheetstoSelect).Select

End …