求教

亿手遮天　发表于：2011-05-16 11:02:48 　

请问用ACCESS2003建一个窗体,在运行窗体时打开C:\1.XLS文件(不用在窗体中打开).不用修改数据直接保存关闭即可(还是原来的1.XLS文件)能看不见打开和关闭的过程最好.请高手指教!!!!

煮江品茶发表于：2011-05-16 14:52:39

将对象设为不可见即可：

Dim xlBook As Excel.Workbook
xlApp.Application.Visible = False '如果等于True则可见
Set xlBook = xlApp.Workbooks.Open("C:\1.XLS")

.....

Top

亿手遮天发表于：2011-05-16 18:56:30

大哥:能不能把代码写全.我是新手...是不是这样

Private Sub Form_Load()
Dim xlbook As Excel.Workbook
     xlapp.Application.Visible = False '如果等于True则可见
      Set xlbook = xlapp.workbooks.Open("C:\1.XLS")
      Set xlbook = xlapp.workbooks.Save("C:\1.XLS")
      Set xlbook = xlapp.workbooks.Close("C:\1.XLS")
End Sub

但报错了

Top

煮江品茶发表于：2011-05-16 19:56:58

Private Sub Form_Load()
Dim xlbook As Excel.Workbook
     xlapp.Application.Visible = False '如果等于True则可见
     Set xlbook = xlapp.workbooks.Open("C:\1.XLS")
     xlBook.Save
     Set xlApp = Nothing

End Sub

Top

亿手遮天发表于：2011-05-16 20:29:23

大哥:还报错

Private Sub Form_Load()
Dim xlbook As Excel.Workbook
     xlapp.Application.Visible = False '如果等于True则可见在这停了
     Set xlbook = xlapp.workbooks.Open("C:\1.XLS")
     xlBook.Save
     Set xlApp = Nothing

End Sub

Top

煮江品茶发表于：2011-05-16 20:34:23

你可能没有引用Excel对象。

Top

亿手遮天发表于：2011-05-16 20:34:32

能不能来个实例让我看看

Top

煮江品茶发表于：2011-05-16 20:36:38

参考一下这个地址的文章：http://www.accessoft.com/blog/article-show.asp?userid=10802&Id=4704

Top

煮江品茶发表于：2011-05-16 20:43:14

Private Sub Form_Load()
'引用：Microsoft Excel 11.0 Object Library
     Dim xlApp As New Excel.Application
     Dim xlbook As Excel.Workbook
     xlapp.Application.Visible = False
     Set xlbook = xlapp.workbooks.Open("C:\1.XLS")
     xlBook.Save
     xlBook.Close
     Set xlApp = Nothing
End Sub

Top

亿手遮天发表于：2011-05-16 20:44:33

是不是引用MICROSOFT EXCEL11.0 OBJECT LIBRARY这个.....我打够了

Top

煮江品茶发表于：2011-05-16 20:45:51

用8楼的代码试试

Top

亿手遮天发表于：2011-05-16 20:55:10

成功了非常感谢!!!!!不过我没有分给你不好意思了

Top

总记录：11篇页次：1/1 9 1 :

Access交流中心

求教