Office中国论坛/Access中国论坛

标题: 如何用access命令打印某文挡下多个excel文件中特殊sheet [打印本页]

作者: mandyliu912 时间: 2005-12-3 02:05
标题: 如何用access命令打印某文挡下多个excel文件中特殊sheet
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
我文件夹下面的目录大约是这样

作者: 方漠 时间: 2005-12-3 03:31
Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True

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

作者: mandyliu912 时间: 2005-12-3 04:46
Set xlbook = CreateObject("Excel.workbooks")
Set xlsheet = CreateObject("excel.sheets")

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

作者: mandyliu912 时间: 2005-12-3 04:59
[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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)