VB代码 从数据库快速导出数据到EXCEL

Private Sub Command6_Click() '用户信息导出
 On Error GoTo comm_err   '错误处理机制
    Call user_log_check  '验证账号登录信息
    CommonDialog1.FILENAME = "数据信息.xls"
    CommonDialog1.Filter = "microsoft excel 文件(*.xls)|*.xls|所有文件(*.*)|*.*"
    CommonDialog1.ShowSave
    If InStr(CommonDialog1.FILENAME, "\") = 0 Then
    Exit Sub
    End If
      
    Dim strSQL As String
    Dim rsSql As New ADODB.Recordset '定义数据集
    
    strSQL = " “'在此写SQL语句
    rsSql.Open strSQL, AdoCn, adOpenStatic '从数据库取数据到数据集
    If rsSql.RecordCount = 0 Then
    MsgBox "没有可导出的数据", vbExclamation + vbOKOnly, "操作提示"
    Exit Sub
    End If
    
    Call ExportToExcel(rsSql, CommonDialog1.FILENAME)
    rsSql.Close
    
    MsgBox "导出成功！", vbInformation + vbOKOnly, "操作提示"
comm_err:


End Sub