ACCESS 调用EXCEL问题

myszh

   我引用了 别人的程序

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文件

    Set oappwork_Sheet1 = oappwork.Worksheets("Sheet2")

是指定工作表明为  Sheet2的  

我要现在想改成 默认第一张工作表

不管其表名[em04][em04]

sgrshh29

什么叫默认的？是不是第一个sheet？如果是的话，就这样：

Dim oapp As object

Set oapp = CreateObject("Excel.Application")



oapp.Visible = True



oappwork = oapp.Workbooks.Open(XX)

oapp.Sheets(1).Select

注：一般excel打开时，默认的sheet是上次关闭文件时显示的那个sheet。

[此贴子已经被作者于2007-2-16 10:25:42编辑过]

cheungws

how to do it, pls help thanks!!