导出数据到EXEL.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 = NothingEnd SubEXCEL用法Public ? Function ? ExporToExcel(strOpen ? As ? String) ********************************************************* * ? 名称：Exp