无效或不合格参考

Question

我需要输入表名吗？我需要在具有类似工作表的多个工作簿中使用此宏，但标签名称不同。

Sub pageSetup() 
ActiveSheet.pageSetup 
.Orientation = xlLandscape 
.PaperSize = xlPaperLegal 
.FitToPagesWide = 1 
.FitToPagesTall = 1 
.LeftMargin = Application.InchesToPoints(1#) 

End Sub 

Answer 1

蒂姆没有声称他的回答，您可以使用以下任一两个选项，要么

• 格式ActiveSheet
• 格式在ActiveWorkBook

所有WorkSheetsActiveSheet

张

Sub TimWilliamsPoints() 
With ActiveSheet.pageSetup 
.Orientation = xlLandscape 
.PaperSize = xlPaperLegal 
.FitToPagesWide = 1 
.FitToPagesTall = 1 
.LeftMargin = Application.InchesToPoints(1#) 
End With 
End Sub 

所有图纸

Sub TimWilliamsPoints2() 
Dim ws As Worksheet 
For Each ws In ActiveWorkbook.Sheets 
With ws.pageSetup 
.Orientation = xlLandscape 
.PaperSize = xlPaperLegal 
.FitToPagesWide = 1 
.FitToPagesTall = 1 
.LeftMargin = Application.InchesToPoints(1#) 
End With 
Next ws 
End Sub