当前位置：首页 → 问答吧 → ＶＢ，现有一个EXCEL模板文件，用代码实现创建一个excel文档，内容是复制模板的。格式不变，如何实现

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

时间：2011-09-30

来源：互联网

作者: xj_05060118 发布时间: 2011-09-30

直接使用CopyFile复制该模板文件即可。
VB code


Option Explicit
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Sub Form_Load()
    Dim bolP As Boolean
    bolP = CopyFile("D:\模板文件.xls", "E:\1.xls", 0)   '将位于D盘的模板文件复制到E盘根目录下，文件名为1。xls
End Sub