Question

VBA读取指定工作簿里的一个sheet到我的excel file

你好 VBA里怎么实现读取一个工作簿里的一个工作表到我新的文件啊

比如我现有excel里的cell A是文件A的全路径 C：\A.xls

cell B是文件B的全路径 C:\B.xls

我需要一个VBA实现读取A的表1 和B的表2分别到我现在文件的表一和表二，请问如何实现呢。。。。谢谢

Answer 1

用getobject方法可以隐藏打开的工作簿对象，实现看上去没有打开的过程
sub test()
dim wb as workbook
dim sht as worksheet
set wb=getobject("C:\A.xls")
set sht=wb.worksheets(1)
sht.Cells.Copy ThisWorkbook.Worksheets(1).[A1]
wb.close
set wb=getobject("C:\B.xls")
set sht=wb.worksheets(2)
sht.Cells.Copy ThisWorkbook.Worksheets(2).[A1]
wb.close
end sub

Answer 2

懂点vba的看了下面的步骤就懂了。
1、Dim Wb As Workbook
2、 Dim Temp As String
3、 Temp = ThisWorkbook.Path & "\xxxx.xls"

4、Set Wb = GetObject(Temp)
5、 Wb.Windows(1).Visible = False
6、Wb.Sheets(1).cells(1,1)="xxxxx"
7、Wb.Windows(1).Visible = True
8、Wb.SaveAs

Answer 3

Sub AB()
Workbooks.Open "C:\A.xls"
ActiveWorkbook.Worksheets(1).Cells.Copy ThisWorkbook.Worksheets(1).[A1]
ActiveWorkbook.Close False

Workbooks.Open "C:\B.xls"
ActiveWorkbook.Worksheets(2).Cells.Copy ThisWorkbook.Worksheets(2).[A1]
ActiveWorkbook.Close False

End Sub

追问

谢谢 太棒了 请问可以不打开原始文件，直接copy么？？

追答

我只会这样了！

Answer 4

Sub AB()
Dim wb as Workbook

set wb = getObject(file path)

TODO

wb.close

set wb=nothing

End Sub