Office中国论坛/Access中国论坛

标题: ACCESS 调用EXCEL问题 [打印本页]

作者: myszh 时间: 2007-2-16 16:55
标题: ACCESS 调用EXCEL问题
我引用了别人的程序

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 时间: 2007-2-16 18:22
什么叫默认的？是不是第一个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 时间: 2007-9-22 20:07
how to do it, pls help thanks!!

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