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