Question

我打开两个EXCEL文件，例如要将第一个EXCEL的第一格的内容提取到第二个EXCEL里面，用VB如何做？

Answer 1

不需要用VBA的，如第一个文件名是：Book1.xls ，我们在第二文件的A1写公式：
=[Book1.xls]Sheet1!A1
即可！

Answer 2

救命啊,我有两个excel文件, 我把一个文件的内容复制下去第二个文件,保存了编辑EXCEL文件中应有一个备份文件，你可在备份文件中打开试试，不过，如果你

追问

请给具体代码,简单的就可以了.

Answer 3

Set xlapp = CreateObject("Excel.Application")
Set book 1= xlapp.Workbooks.Open(App.Path & "\1.xls") '
Set xlsheet1 = book1.Worksheets(1)
Set book 2= xlapp.Workbooks.Open(App.Path & "\2.xls") '
Set xlsheet2 = book2.Worksheets(1)
xlsheet2.Cells(11) = xlsheet1.Cells(1, 1)
Set book 1 = Nothing
...........
Set xlapp = Nothing

追问

我已经是打开了两个EXCEL,还要再用OPEN的命令吗?

追答

随便你。