Question

vb 按钮打印 指定路径1个EXCEl文件sheet1

vb 按钮打印 指定路径1个EXCEl文件
Command1按钮一个
路径：d:\1.xlsx
希望可以直接点击按钮即可打印1.xlsx内容，请大神指教
代码无法运行

Private Sub Command1_Click()
Dim file$, folder$, wb As Workbook
folder = "d:\"
file = Dir(folder & "1.xls")
Do While file <> ""
Set wb = GetObject(folder & file)
wb.Worksheets("sheet1").PrintOut
wb.Close
file = Dir
Loop
End Sub

Answer 1

Private Sub Command1_Click()
    Dim file$, wb As Workbook
    file = "d:\1.xlsx"
    Set wb = GetObject(file)
    wb.Worksheets("sheet1").PrintOut
    wb.Close
End Sub

追问

请看下报错