Option Explicit
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim i, j, k As Integer
Dim xlapp As Variant
Dim xlbook As Variant
Dim xlsheet As Variant
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Update
Adodc1.Refresh
End Sub
Private Sub Command3_Click()
Set cn = Nothing
Set rs = Nothing
cn.Open "Provide=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ceshi.mdb;Persist"
Security Info = False
rs.CursorLocation = adUseClient
rs.Open "ceshi", cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
If rs.RecordCount > 0 Then
Command4.Enabled = True
End If
End Sub
Private Sub Command4_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\ceshi.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from ceshi"
→If rs.RecordCount <= 0 Then
MsgBox "沒有可輸出的資料，請選擇資料！"
Exit Sub
Else
Set xlapp = CreateObject("excle.application")
Set xlbook = xlapp.workbooks.Add
Set xlsheet = xlbook.worksheets(1)
xlapp.Visible = True
End If
On Error Resume Next
If Err.Number <> 0 Then
Set xlapp = CreateObject("excle.application")
Set xlbook = xlapp.workbooks.Add
Set xlsheet = xlbook.activesheet
For k = 1 To DataGrid1.Columns(k - 1).Caption
Next k
For i = 1 To rs.RecordCount + 1
For j = 0 To DataGrid1.Columns.Count
xlsheet.cells(i + 1, j + 1) = rs(j)
Next j
rs.MoveNext
Next i
End If
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\ceshi.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from ceshi"
Set Text1.DataSource = Adodc1
Text1.DataField = "姓名"
End Sub
這是我全部的代碼，ACCESS資料庫只有姓名，我想用EXCEL匯出，在→處提示的
謝謝幫助！
uj5u.com熱心網友回復：
要先點擊Command3啊。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/99668.html