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

今天项目需求更改，需要我用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"