今天项目需求更改,需要我用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
'第二种方法,可以借助Shell函数调用cmd里面的函数,xcopy或者copy
s1 = App.Path + "\TC导出的原始模板.xls"
s2 = App.Path + "\buaa.xls"
Shell "cmd.exe /c copy ""D:\cin.txt"" ""D:\JAVA\"" "
Shell "cmd.exe /c copy App.Path + ""\TC导出的原始模板.xls"" App.Path + ""\buaa.xls"" "
Shell "cmd.exe /c copy App.Path + ""TC导出的原始模板.xls"" App.Path "
'第三种方法,原来VB竟然有现成的函数FileCopy,直接用就是了
FileCopy App.Path + "\TC导出的原始模板.xls", App.Path + "\buaa.xls"