ASP源码.NET源码PHP源码JSP源码JAVA源码DELPHI源码PB源码VC源码VB源码Android源码
当前位置:首页 >> 网络编程 >> VB教程 >> 怎么用VB复制电脑上的一份EXCEL文件?

怎么用VB复制电脑上的一份EXCEL文件?

来源:网络整理     时间:2017-03-17     关键词:

本篇文章主要介绍了" 怎么用VB复制电脑上的一份EXCEL文件?",主要涉及到方面的内容,对于VB教程感兴趣的同学可以参考一下: 今天项目需求更改,需要我用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文件?,包括了方面的内容,希望对VB教程有兴趣的朋友有所帮助。

本文网址链接:http://www.codes51.com/article/detail_4225157.html

相关图片

相关文章