可以快速导出使用excel 就有该功能Public Function ExportToExcel(ByVal strOpen As String, Title As String, dizhi As String, con As ADODB.Connection)'*********************************************************'* 名称：ExporToExcel'* 功能：导出数据到EXCEL'* 用法：ExporToExcel(strOpen查询字符串，titile'*excel标题,dizhi 保存路径，con数据库连接地址)'****************...
参考代码如下：Private Sub Command1_Click() on error goto errhandle
Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Cnn.ConnectionString = "Provider=SQLO...
