本篇文章主要介绍了" 怎么用VB复制电脑上的一份EXCEL文件？"，主要涉及到方面的内容，对于VBjrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播感兴趣的同学可以参考一下：
今天项目需求更改，需要我用VB写个程序，复制并另存为一份EXCEL表，我不知道能不能用纯VB的代码来实现，但是我用EXCEL 的VBA实现了！ Private ...
今天项目需求更改，需要我用VB写个程序，复制并另存为一份EXCEL表格，我不知道能不能用纯VB的代码来实现，但是我用EXCEL 的VBA实现了！
Private Sub Command1_Click()
Dim ExcelApp As Object
Dim MyExcel As Object
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible = True
Set templateExcel = ExcelApp.workbooks.open(App.Path + "\TC导出的原始模板.xls")
templateExcel.Activate
ExcelApp.DisplayAlerts = False
templateExcel.saveas FileName:=App.Path + "\buaa.xls"
ExcelApp.DisplayAlerts = True
templateExcel.Close
ExcelApp.Quit
Set ExcelApp = Nothing '释放对象变量
End Sub
以上就介绍了 怎么用VB复制电脑上的一份EXCEL文件？，包括了方面的内容，希望对VBjrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播有兴趣的朋友有所帮助。
本文网址链接：http://www.codes51.com/article/detail_4225157.html
