别人的例子：你自己参考吧！ .doc

别人的例子：你自己参考吧！ ? ? ? ? 将下文加入到一个模块中,屏幕中调用如下ExporToExcel(select ? * ? from ? table)则实现将其导出到EXCEL中 ? ? ? ? Public ? Function ? ExporToExcel(strOpen ? As ? String) ? ? ********************************************************* ? ? * ? 名称：ExporToExcel ? ? * ? 功能：导出数据到EXCEL ? ? * ? 用法：ExporToExcel(sql查询字符串) ? ? ********************************************************* ? ? Dim ? Rs_Data ? As ? New ? ADODB.Recordset ? ? Dim ? Irowcount ? As ? Integer ? ? Dim ? Icolcount ? As ? Integer ? ? ? ? ? ? ? ? ? ? ? ? Dim ? xlApp ? As ? New ? Excel.Application ? ? ? ? ? ? Dim ? xlBook ? As ? Excel.Workbook ? ? ? ? ? ? Dim ? xlSheet ? As ? Excel.Worksheet ? ? ? ? ? ? Dim ? xlQuery ? As ? Excel.QueryTable ? ? ? ? ? ? ? ? ? ? ? ? With ? Rs_Data ? ? ? ? ? ? ? ? ? ? If ? .State ? = ? adStateOpen ? Then ? ? ? ? ? ? ? ? ? ? ? ? ? ? .Close ? ? ? ? ? ? ? ? ? ? End ? If ? ? ? ? ? ? ? ? ? ? .ActiveConnection ? = ? Cn ? ? ? ? ? ? ? ? ? ? .CursorLocation ? = ? adUseClient ? ? ? ? ? ? ? ? ? ? .CursorType ? = ? adOpenStatic ? ? ? ? ? ? ? ? ? ? .LockType ? = ? adLockReadOnly ? ? ? ? ? ? ? ? ? ? .Source ? = ? strOpen ? ? ? ? ? ? ? ? ? ? .Open ? ? ? ? ? ? End ? With ? ? ? ? ? ? With ? Rs_Data ? ? ? ? ? ? ? ? ? ? If ? .RecordCount ? ? 1 ? Then ? ? ? ? ? ? ? ? ? ? ? ? ? ? MsgBox ? (没有记录!) ? ? ? ? ? ? ? ? ? ? ? ? ? ? Exit ? Function ? ? ? ? ? ? ? ? ? ? End ? If ? ? ? ? ? ? ? ? ? ? 记录总数 ? ? ? ? ? ? ? ? ? ? Irowcount ? = ? .RecordCount ? ? ? ? ? ? ? ? ? ? 字段总数 ? ? ? ? ? ? ? ? ? ? Icolcount ? = ? .Fields.Count ? ? ? ? ? ? End ? With ? ? ? ? ? ? ? ? ? ? ? ? Set ? xlApp ? = ? CreateObject(Excel.Application) ? ? ? ? ? ? Set ? xlBook ? = ? Nothing ? ? ? ? ? ? Set ? xlSheet ? = ? Nothing ? ? ? ? ? ? Set ? xlBook ? = ? xlApp.Workbooks().Add ? ? ? ? ? ? Set ? xlSheet ? = ? xlBook.Worksheets(sheet1) ? ? ? ? ? ? xlApp.Visible ? = ? True ? ? ? ? ? ? ? ? ? ? ? ? 添加查询语句，导入EXCEL数据 ? ? ? ? ? ? Set ? xlQuery ? = ? xlSheet.QueryTables.Add(Rs_Data, ? xlSheet.Range(a1)) ? ? ?