如何用access命令打印某文挡下多个excel文件中特殊sheet

mandyliu912

Private Sub Command0_Click()
Path = InputBox("输入打印路径")



Dim s
With Application.FileSearch    '查找
        .LookIn = Path        '范围为此目录下"
        .Filename = "*.xls"
        .Execute msoSortByFileName '执行查找过程，并且将查询结果按文件名排序
        For Each s In .FoundFiles
           
     
         
                Set wb = Workbooks.Open(s, , True)
                wb.Sheets("Income Rec'd-note 6").Select
                ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
                ActiveWindow.Close SaveChanges:=False
      
           
        Next
End With
   
End Sub



我在excel 里曾经学习个这样一个vb可以打印特定路径下所有 (*.xls)文件的特殊worksheet.

现在小弟在学access想用access 来完成这个vb打印,但是其中workbooks和sheets,selectedsheets是excel 的vb命令

请问如何在access 中实现其等同的命令?有无办法导入excel 的命令



CIGAML 2005-01.xls  CIGAML 2004-01.xls
CIGAML 2005-02.xls   CIGAML 2004-01.xls
CIGAML 2005-03.xls    CIGAML 2004-01.xls
我文件夹下面的目录大约是这样

方漠

Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True

用xlApp！+EXCEL里的命令调用。

mandyliu912

Set xlbook = CreateObject("Excel.workbooks")
Set xlsheet = CreateObject("excel.sheets")

是这样吗?但好象还是出错误,能说具体点吗

mandyliu912

[em07]

Private Sub Command0_Click()
Path = InputBox("输入打印路径")
Set xlapp = CreateObject("Excel.Application")




Dim s
With Application.FileSearch    '查找
        .LookIn = Path        '范围为此目录下"
        .Filename = "*.xls"
        .Execute msoSortByFileName '执行查找过程，并且将查询结果按文件名排序
        For Each s In .FoundFiles
           
     
         
                Set wb = xlapp.workbooks.Open(s, , True)
                wb.xlapp.Sheets("Income Rec'd-note 6").Select
               
               
           
        Next
End With
   
End Sub

已经按指示去改了,但是电脑一运行就到红的地方停了,说有毛病