在VBA中导出Excel模板，你可以使用`ExportTempletToExcel`函数。以下是该函数的详细说明和示例代码：
函数说明
函数名称：ExportTempletToExcel
函数功能：将记录集输出到Excel模板
参数说明：
`strExcelFile` （String）：要保存的Excel文件路径
`strSQL` （String）：要导出哪些内容的SQL查询语句
`strSheetName` （String）：工作表名称
`adoConn` （Object）：已经打开的数据库连接
函数返回值：
`Boolean`：True表示成功导出模板，False表示失败
示例代码
```vba
Private Function ExportTempletToExcel（ByVal strExcelFile As String, _
ByVal strSQL As String, _
ByVal strSheetName As String, _
ByVal adoConn As Object） As Boolean
Dim adoRt As Object
Dim lngRecordCount As Long
Dim intFieldCount As Integer
Dim strFields As String
Dim i As Integer
Dim exlApplication As Object
Dim exlBook As Object
' 初始化Excel应用程序对象
Set exlApplication = CreateObject（"Excel.Application"）
exlApplication.Visible = False
' 打开Excel文件
Set exlBook = exlApplication.Workbooks.Open（strExcelFile）
' 创建新的工作表
Set newWS = exlBook.Sheets.Add（After:=exlBook.Sheets（exlBook.Sheets.Count））
newWS.Name = strSheetName
' 执行SQL查询并将结果写入新工作表
Set adoRt = CreateObject（"ADODB.Recordset"）
adoRt.Open strSQL, adoConn
' 获取字段名
strFields = ""
For i = 1 To adoRt.Fields.Count
strFields = strFields & adoRt.Fields（i）.Name & ","
Next i
strFields = Left（strFields, Len（strFields） - 1）
' 将记录写入新工作表
newWS.Range（"A1"）.Value = "数据"
newWS.Range（"A2"）.Value = strFields
newWS.Range（"A1:A2"）.Font.Bold = True
Dim rs As Object
Set rs = adoRt.GetRecordset
rs.MoveFirst
Dim row As Long
row = 2
Do While Not rs.EOF
For i = 1 To rs.Fields.Count
newWS.Cells（row, i）.Value = rs.Fields（i）.Value
Next i
rs.MoveNext
row = row + 1
Loop
' 关闭记录集和Excel文件
rs.Close
Set rs = Nothing
exlBook.Close SaveChanges:=False
' 释放对象
Set adoRt = Nothing
Set exlApplication = Nothing
Set exlBook = Nothing
' 返回结果
ExportTempletToExcel = True
End Function
```
使用建议
准备工作
确保Excel模板设计好，并且数据表中的数据格式与模板匹配。
确保数据库连接已经打开，并且SQL查询语句正确无误。
调用函数
在VBA编辑器中，调用`ExportTempletToExcel`函数，传入必要的参数，如Excel文件路径、SQL查询语句、工作表名称和数据库连接对象。
错误处理
在调用函数时，建议添加错误处理逻辑，以便在导出过程中出现问题时能够及时发现并处理。
通过以上步骤和示例代码，你可以成功地将记录集输出到Excel模板中。