beijinglb2013-04-19 00:04

Sub copysheet3()
Dim ip As String

Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open("D:\book\office\excel\VBA1.xlsx")

Dim sheetx As Excel.Worksheet
Set sheetx = xlBook.Worksheets(1)
ip = sheetx.Cells(1, 2)
Sheet1.Cells(1.1) = ip

End Sub

beijinglb2013-04-19 00:04

Sub copyAll()

fname = "D:\book\office\excel\VBA1.xlsx"        '需要复制的excel文件地址及文件名,你自己修改
Set d = GetObject(fname)      '打开文件
d.Sheets("link").Cells.Copy ActiveSheet.Cells(1, 1)    '将sheet1完全复制到当前表
d.s
d.Close  '关闭文件
Set d = Nothing
End Sub