VB打开不同的EXCEL文件

来源：百度知道 编辑：UC知道 时间：2024/06/28 17:22:08
请大家帮忙
目前有个问题
我想在运行中打开不同的EXCEL的文件模版，把数据写入
关键是如何写代码几个EXCEL文件不会冲突
或者是能够有个路径选择指示，找到所需要的EXCEL文件打开，
急需！
请大家帮忙
还有没有更好的 啊

Sub sfile()
Dim fs, f1, s
Dim fd As FileDialog

Set fs = CreateObject("Scripting.FileSystemObject")
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Show
f1 = fd.SelectedItems(1)
Workbooks.Open f1
'编写操纵新打开文件的代码，如下一行语句

Workbooks(2).Sheets(1).Cells(1, 1) = Workbooks(1).Sheets(1).Cells(1, 1)
'如果不需要自动关闭新打开的文件，请删除下一行代码
'但在重新运行程序之前必须手动关闭新打开的文件
Workbooks(2).Close SaveChanges:=True
End Sub

Dim xlApp As Excel.Application
Dim xlBook1 As Excel.WorkBook,xlBook2 As Excel.WorkBook
以上为模块级变量
本例 在sub 子程序中，同时操作两个 EXCEL的文件
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook1 = xlApp.Workbooks.Open("文件1") '打开已经存在的EXCEL工件簿文件
Set xlBook2 = xlApp.Workbooks.Open("文件2")
xlApp.Visible = True '设置EXCEL对象可见
xlBook1.sheets("表名").Cells(ro