导出数据到EXCEL.docVIP

Private Sub Command1_Click() Dim 文件名称 As String 文件名称 = C:\Documents and Settings\Administrator\桌面\Hellod.Doc Dim uObjDoc As Word.Document Set uObjWord = New Word.Application uObjWord.Documents.Add Normal, IIf(iMode = 1, True, False) 1、根据Normal模板添加一个新的文档[1-创建一个模板，0-创建一个文件] uObjWord.Documents.Save NoPrompt:=True, OriginalFormat:=wdWordDocument 2、设置Word对象为自动保存模式 uObjWord.ActiveDocument.SaveAs 文件名称 3、保存Word文档到文件名称 Set uObjDoc = Nothing End Sub 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 ? ? ? ? Rs_Data.Open ? strOpen, ? Cn, ? adOpenStatic, ? adLockReadOnly ? ? ? ? With ? Rs_Data ? ? ? ? ? ? ? ? .MoveFirst ? ? ? ? ? ? ? ? If ? .RecordCount ? ? 1 ? Then ? ? ? ? ? ? ? ? ? ? ? ? MsgBox ? ( 没有记录! ) ? ? ? ? ? ? ? ? ? ? ? ? Exit ? Function ? ? ? ? ? ? ? ? End ? If ? ? ? ? ? ? ? ? 记录总数 ? ? ? ? ? ? ? ? Irowcount ? = ? .RecordCount ? ? ? ? ? ? ? ? 字段总数 ? ? ? ? ? ? ? ? Icolcount ? = ? .Fields.Count ? ? ? ? End ? With ? ? ? ? Set ? xlApp ? = ? CreateObject( Excel.Application ) ? ? ? ? Set ? xlBook ? = ? Nothing ? ? ?