ACCESS 调用EXCEL 问题

myszh

  FN = "SXH-001T-P0.6"   要查找的内容

  xx = "\\st10\新指令书\18.xls"   '路径

Dim oapp As Excel.Application, oappwork As Excel.Workbook, oappwork_Sheet1 As Excel.Worksheet  '引用EXCEL 10.0

Set oapp = CreateObject("Excel.Application")

oapp.Visible = True

    Set oappwork = oapp.Workbooks.Open(xx)               '打开指定EXCEL文件

    oapp.Sheets(1).Select                                '指定第一张表

    ZS = oapp.Sheets(1).Cells(1, 18)                     '总页数

   ' ROW = Application.WorksheetFunction.Match(FN, oapp.Sheets(1), 0)     提示错误 424 要求对象

     目的：找到 和  FN   内容相同 的单元格的 行号

应当怎么修改 ROW = Application.WorksheetFunction.Match ？？？？？？？
。。

    oappwork.Close SaveChanges:=False   '不保存

    oapp.Quit

[此贴子已经被作者于2007-5-3 9:29:26编辑过]

方漠

建议在数据导出到EXCEL后,将后续的操作在EXCEL里录制为宏,然后再在ACCESS里创建EXCEL对象调用运行此宏.在ACCESS里用VBA编EXCEL的宏代码会很吃力.方法如下:

Set Xls = CreateObject("Excel.Application")
Xls.Visible = False   'Change to True will display it out.

With Xls
    .Workbooks.Open FileName:=CurrentProject.Path & "\YourCode.xla"
    .Workbooks.Open FileName:=YourWorkbookName
    .Run "YourCode.xla!YourMacro"
    .Workbooks(YourWorkbookName).Close SaveChanges:=True
    .Quit
End With

[此贴子已经被作者于2007-4-29 17:30:39编辑过]

myszh

因为对应的EXCEL文件 有上千个 而且做好

所以还是希望能 ACCESS 直接完成[em01]

myszh

希望高手出手帮我 五一过后就要用的

[em19][em06]