等米下锅！！！

Question

请问各位大虾：
用DAO是否可以打开Excel文件？
如果可能请给出例子！！！在线等待。谢谢

Answer 1

在工程--引用中添加：Microsoft Excel 10.0 Object Library
新建一个工程并在新建的窗体上放置两个TextBox控件和一个CommandButton控件及六个Label控件
实现代码如下：　　 Option Explicit 　　 Private Sub Command1_Click() 　　 Dim xObject As Object 　　 ′调用Excel 
　　 Set xObject = CreateObject(“Excel.Sheet") 　　 Set xObject = xObject.Application.ActiveWorkbook.ActiveSheet 　　 xObject.Range(“A1").Value = Text1.Text ′将数值送入Excel 的A1单元格 　　 xObject.Range(“A2").Value = Text2.Text ′将数值送入Excel 的A2单元格 　　 xObject.Range(“A3").Formula = “=MAX(A1,A2)" ′将最大值送入A3单元格 　　 xObject.Range(“A4").Formula = “=ATAN(A1/A2)＊180/PI()" ′将反正切值送入A4单元格 　　 ′显示计算的结果 　　 Label1.Caption = xObject.Range(“A3").Value 　　 Label2.Caption = xObject.Range(“A4").Value 　　 Set xObject = Nothing 　　 End Sub 　　 Private Sub Form_Load() 　　 Text1.Text = “" 　　Text2.Text = “" 　　Label1.Caption = “" 　　Label2.Caption = “" 　　End Sub