vb导出excel

来源：百度知道 编辑：UC知道 时间：2024/05/21 18:11:19
vb导出excel引用什麼?

老说user-defined type not defined
其实我就是用vb做了个查询access的小程序,想把查询完了的在DataGrid里面的内容导入到excel
怎麼写代码啊?
用ado控件做的
--------------
gaofei100 说没定义
CreateRecordset

Option Explicit
Public appdisk As String
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public db As String
Private Sub Form_Load()
appdisk = Trim(App.Path)
If Right(appdisk, 1) <> "\" Then appdisk = appdisk & "\"
db = appdisk
db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & db & "alex.mdb"
conn.CursorLocation = adUseClient
conn.Open db
rs.Open "aaa", conn, adOpenKeyset, adLockPessimistic
End Sub

Private Sub Command1_Click()
Dim lRow As Long
Dim sXLSPath As String
Dim MyExcel As New Excel.Application
Dim MyBook As Excel.Workbook
Dim MySheet As Excel.Worksheet
Screen.MousePointer = 11
sXLSPath = appdisk & "maindata.xls"
Open sXLSPath For Output As #1
Close #1
Set MyExcel = CreateObject("