1、首先定义一个workbook的变量，然后open方法打开需要打开的工作薄Dim wkbk As WorkbookSet wkbk = Workbooks.Open("C:\Users\Administrator\Desktop\桌面信息\excel\a.xlsx")
2、选择表1已经使用的单元格区域，并对其复制wkbk.Sheets(1).UsedRange.SelectSelection.Copy
3、切换回当前的工作薄ThisWorkbook.Activate
4、粘贴复制的数据到当前工作表Sheets(3).Cells(1, 1).PasteSpecial Paste:=xlPasteValues
5、关闭打开的a.xlsx这个文件
6、运行后我们就将a.xlsx的数据复制过来了，
7、总结:以上就是读取另外一稍僚敉视个excel的内容到本工作表的操作步骤1.打开目标工作表2.复制内容(修改内容)3.切换到当前的工作表4.选定单元格5.粘贴内容6.关闭目标工作表
