-c excel模板导出,按自己模板导出excel

可以：
Private Sub ToExcle(rs As ADODB.Recordset)
If Not rs.Eof Then
Dim X As Object, xBook As Object, xSheet As Object, i%, j%
Set X = CreateObject("excel.application") '创建EXCEL应用程序对象，启动EXCEL应用程序

Set xBook = X.Workbooks.Add '新建一个工作簿，并将其赋给xbook
Set xSheet = xBook.Worksheets(1) '将xbook工作薄中的第7a64e59b9ee7ad94334一个表赋给xsheet
X.Visible = False
j = 1
rs.MoveFirst
Do While Not rs.EOF
For i = 0 To rs.Fields.Count - 1
xSheet.cells(j, i + 1) = rs.Feilds(i)
Next i
j = j + 1
rs.MoveNext
Loop
X.ActiveWorkbook.SaveAs "c:\test.xls"

X.Quit '退出EXCEL
Set xSheet = Nothing '释放对象变量
Set xBook = Nothing
Set xls = Nothing
Else
MsgBox "没有可打印的记录！", vbInformation, "提示"
End If

End Sub

其实用模板一样可以实现这个功能：先将模板拷到想要保存的位置（可以更名），然后打开新位置的模板导入数据。而且使用模板可以省去好多定义格式的代码。