ＶＢ ，现有一个EXCEL模板文件，用代码实现创建一个excel文档，内容是复制模板的。格式不变，如何实现

Question

ＶＢ ，现有一个EXCEL模板文件，用代码实现创建一个excel文档，内容是复制模板的。格式不变，如何实现

Answer 1

直接使用CopyFile复制该模板文件即可。Option Explicit
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As LongPrivate Sub Form_Load()
    Dim bolP As Boolean
    bolP = CopyFile("D:\模板文件.xls", "E:\1.xls", 0)   '将位于D盘的模板文件复制到E盘根目录下，文件名为1。xls
End Sub