ACCESS里导出子窗体内容到指定excel里

1.作用

  有时候为了导出数据到指定的excel里，excel格式为固定，直接导出表格式往往不能满足条件，结合前辈代码略作修改实现必要功能。

2.代码实现

Private Sub Command38_Click()

On Error GoTo ErrorHandler
    Dim strTemplate As String   '模板文件路径名
    Dim strPathName As String   '输出文件路径名
    Dim objApp      As Object   'Excel程序
    Dim objBook     As Object   'Excel工作簿
    Dim rst         As Object   '子窗体记录集
    Dim intRows     As Integer  '明细记录行数
    Dim intCounter  As Integer  '循环计数器
    Dim blnNoQuit   As Boolean  '此标记为True时不关闭Excel
    Dim strMsg      As String   '消息内容
    '当前是新记录则提示并退出（仅用于主子窗体时）
    If Me.NewRecord Then
        MsgBox "当前没有数据可导出！", vbExclamation, "提示"