todaynew 版主请进，有关A到E的问题

lovehere

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

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

todaynew

一会给你看看。

todaynew

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

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

lovehere

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

请教，什么是缺少引用？

lovehere

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

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

注意看下图：

lovehere

图呢？

todaynew

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

再看

lovehere

知道什么是引用了！！！感谢版主。