UC知道VB动态引用连接库也就是“隐式引用”的方法
来源：百度知道 编辑：UC知道 时间：2024/06/01 03:21:32
假如我想在VB程序中用Excel作为数据库，我不详
名称：Microsoft Excel 11.0 Object Library
地址：Microsoft Excel 11.0 Object Library
请问具体代码应该怎么写？这样写行不？
Private Sub Form_Load()
Dim xlDate As Object
Set xlDate = GetObject("", "Microsoft Excel 11.0 Object Library")
With xlDate
.Navigate "C:\Porgram Files\Microsoft Office\OFFICE11\EXCEL.EXE"
.Visible = True '这个属性是什么意思？
End With
End Sub
地址：C:\Porgram Files\Microsoft Office\OFFICE11\EXCEL.EXE
总是：实时错误'429'
ActiveX部件不能创建对象
名称：Microsoft Excel 11.0 Object Library
地址：Microsoft Excel 11.0 Object Library
请问具体代码应该怎么写？这样写行不？
Private Sub Form_Load()
Dim xlDate As Object
Set xlDate = GetObject("", "Microsoft Excel 11.0 Object Library")
With xlDate
.Navigate "C:\Porgram Files\Microsoft Office\OFFICE11\EXCEL.EXE"
.Visible = True '这个属性是什么意思？
End With
End Sub
地址：C:\Porgram Files\Microsoft Office\OFFICE11\EXCEL.EXE
总是：实时错误'429'
ActiveX部件不能创建对象
Private Sub Command1_Click()
Dim MyXL As Object
Set MyXL = GetObject("z:\1.xls")
MyXL.Application.Visible = True
MyXL.Parent.Windows(1).Visible = True
End Sub
========================
Private Sub Command1_Click()
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("z:\1.xls")
xlApp.Visible = True
Set xlSheet = xlBook.Worksheets("Sheet1")
xlSheet.Cells(1, 1) = "12"
xlBook.Close (True)
xlApp.Quit
Set xlApp = Nothing
End Sub