VBA-取基础工作表数据到工作簿模板，另存为工作簿_henry_dx_新浪博客

自编程序：

Sub cc()

Dim ExApp As New Excel.Application      '声明一个新的 Excel程序

Dim Pat As String, PatName As String

Dim NBook As Workbook

Dim Hx As Integer, Xm As String

With ExApp

        .Visible = False                '程序不可视

        .AutomationSecurity = 2         '禁用 新Excel程序的 宏

        Pat = ThisWorkbook.Path & "\"   '设置路径