本帖最后由 zjdh 于 2012-7-22 13:35 编辑
With GetObject(myPath & myFileName)
.Sheets(1).Cells(1,1).CurrentRegion.Copy Cells(65536, 1).End(3)(2)
.Close False
End With
若各工作表都有一行标题行的话
With GetObject(myPath & myFileName)
.Sheets(1).Cells(1,1).CurrentRegion.Offset(1).Copy Cells(65536, 1).End(3)(2)
.Close False
End With