Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
End Sub
Sub 按钮1_Click()
Dim p, f, sh
p = ThisWorkbook.Path & "\" '提取当前工作薄路径
f = Dir(p & "*.xls") '提取目录 指定文件类型为xls
Do While f <> "" '如果 文件 F <> ""
If f <> ThisWorkbook.Name Then 'f<>当前工作薄名
Workbooks.Open (p & f) '打开f
For Each sh In ActiveWorkbook.Sheets '循环所有工作表
sh.PrintOut '打印工作表
Next sh
Workbooks(f).Close False '闭卷当前 f 工作薄,false=不保存
End If
f = Dir '提取一下文件名
Loop
'循环完以后开始打印 当前工作薄
For Each sh In Sheets
sh.PrintOut
Next sh
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)