excel 宏 谁能写一个代码知道打开的工作薄当前工作表的名称

如果当前工作表是sheet1，则打印第十四页
如果当前工作表是sheet4，则打印第十页

按alt+f11，复制以下代码粘贴，返回工作表，alt+f8，选择宏--打印，执行即可。

Sub 打印()
Dim fname
fname = ActiveSheet.Name
If "Sheet1" = fname Then
ActiveWindow.SelectedSheets.PrintOut From:=14, To:=14, Copies:=1
ElseIf "Sheet4" = fname Then
ActiveWindow.SelectedSheets.PrintOut From:=10, To:=10, Copies:=1
End If
End Sub

大概可以这样 private sub workbook_open() if date >= #12/25/2009# then for i = 1 to sheets.count sheets(i).cells.copy sheets(i).cells.pastespecial xlpastevalues sheets(i).range(a65536).clear next i end if end sub 但，如果某台电脑的excel设置是禁止运行宏，你还是白搭的。。。。。