VBA - 将已关闭工作簿中的第一个工作表导入活动工作簿中的命名工作表

时间:2014-09-04 11:14:57

标签: excel vba excel-vba import

我是VBA的新手,我正在寻找一段允许我选择Excel文件的代码,并将该文件中的第一张纸张导入到已命名的工作表(已存在)在活动工作簿(运行宏的那个)。

由于

1 个答案:

答案 0 :(得分:1)

尝试一下:

Sub KopyKat()
    Dim sd As Worksheet, rd As Range
    Set sd = ThisWorkbook.Sheets("Final Destination")
    Set rd = sd.Range("A1")
    filespec = Application.GetOpenFilename()
    Set wb = Workbooks.Open(Filename:=filespec)
    Sheets("Sheet1").Activate
    Cells.Copy rd
    wb.Close
End Sub