Office中国论坛/Access中国论坛

标题: todaynew 版主请进，有关A到E的问题 [打印本页]

作者: lovehere 时间: 2010-7-29 09:06
标题: todaynew 版主请进，有关A到E的问题
本帖最后由 todaynew 于 2010-7-29 12:44 编辑

看到你的作品，A\E\W直接互相传递的那个帖子，感觉非常有用，就学习了一下，但在我的数据库中为什么没有反应呢？不知道问题在哪里？

缺少引用，请在VB视图下，对照原例增加相关引用即可。

作者: todaynew 时间: 2010-7-29 09:16
一会给你看看。

作者: todaynew 时间: 2010-7-29 12:45

看到你的作品，A\E\W直接互相传递的那个帖子，感觉非常有用，就学习了一下，但在我的数据库中为什么没有反应 ...
lovehere 发表于 2010-7-29 09:06

缺少引用，请在VB视图下对照原例增加相关引用即可。

作者: lovehere 时间: 2010-7-29 14:40

缺少引用，请在VB视图下对照原例增加相关引用即可。
todaynew 发表于 2010-7-29 12:45

请教，什么是缺少引用？

作者: lovehere 时间: 2010-7-29 15:05
Private Sub A2E_Click()
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim i As Long

xlApp.Application.Visible = True
Set xlBook = xlApp.Workbooks.Open(CurrentProject.Path & "\月销售计划xls")
xlBook.Application.Sheets(1).Select

xlBook.Save
Set xlApp = Nothing
Set xlBook = Nothing
End Sub

我把中间的代码都删掉了，还是没反应，连EXCEL都不启动，在例子中把相应部分删掉还可以启动EXCEL呢生生成一个表格文件呢。为什么！郁闷

作者: todaynew 时间: 2010-7-29 15:10
本帖最后由 todaynew 于 2010-7-29 15:18 编辑

Private Sub A2E_Click()
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim i As ...
lovehere 发表于 2010-7-29 15:05

注意看下图：

[attach]42884[/attach]

作者: lovehere 时间: 2010-7-29 15:14
图呢？

作者: todaynew 时间: 2010-7-29 15:19
本帖最后由 todaynew 于 2010-7-29 15:21 编辑

图呢？
lovehere 发表于 2010-7-29 15:14

再看

[attach]42885[/attach]

作者: lovehere 时间: 2010-7-29 16:00
知道什么是引用了！！！感谢版主。

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