用vba从一个关着的excel表读取数据写入到当前打开的excel表，把发给我一个现成的例子吗bsy_music@126.com

Answer 1

Sub Find()
Application.ScreenUpdating = False
Dim MyDir As String
'MyDir = "excel存放根目录"
MyDir = ThisWorkbook.Path
ChDrive Left(MyDir, 1)
ChDir MyDir
Match = Dir$("*.xls")
Do
With Workbooks.Open(Match, 0)
ThisWorkbook.ActiveSheet.Range("B65000").End(xlUp).Offset(1, -1) = Left(Match, Len(Match) - 4)
.ActiveSheet.Range("A1").CurrentRegion.Copy ThisWorkbook.ActiveSheet.Range("B65000").End(xlUp).Offset(1, 0)
.Close 0
End With
Match = Dir$
Loop Until Len(Match) = 0
Application.ScreenUpdating = True
End Sub