mdb不是Access吗？Excel是xls
Public Sub excel1()
On Error Resume Next
Static i As Integer
If ww = 1 Then
i = i - 1
If i = 0 Then
ww = 0
i = 1
MsgBox "已是第一题！", vbExclamation, "系统提示"
GoTo eee:
End If
Set oleExcel = CreateObject("excel。
application")
oleExcel。workbooks。Open FileName:="c:\book1"
Label1。Caption = oleExcel。worksheets("sheet2")。cells(i, 1)
Label3。
Caption = oleExcel。worksheets("sheet2")。cells(i, 2)
oleExcel。quit
Set excel = Nothing
ww = 0
Else
i = i + 1
Set oleExcel = CreateObject("excel。
application")
oleExcel。workbooks。Open FileName:="c:\book1"
Label1。Caption = oleExcel。worksheets("sheet2")。cells(i, 1)
Label3。
Caption = oleExcel。worksheets("sheet2")。cells(i, 2)
oleExcel。quit
Set excel = Nothing
If Label1。Caption = "" Then
MsgBox "已是最后一题！", vbExclamation, "系统提示"
End If
End If
eee:
End Sub
这是一个子程序,你调用即可。
mdb是数据库
答：如何实现VB与EXCEL的无缝连接 VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工...详情>>
答：线性链表分好几种,分为单链,双链等,它们的存储顺序也不一样. 线性表是顺序存储的,占顺序的存储空间详情>>
问：电脑安装了VB6.0，为什么打开方式里面没有VB程序选项，进安装好的VB里去关联...
答：打开方式最下面还有一个《选择程序》，点开后查VB的安装目录的EXE，找到后直接打开，下次就会在打开方式里查到了详情>>
