作者：乔山办公网日期：
返回目录：excel表格制作
Sub test1()
Dim fPath, fName, fl As String
Dim ws As Worksheet
Set ws = Application.ThisWorkbook.Worksheets("sheet1")
fPath = Application.ThisWorkbook.Path & "\"
fName = "Test2.xlsm"
Workbooks.Open fPath & fName
ws.[A1] = Sheet1.[R51]
Workbooks(fName).Close savechanges:=False
End Sub
fPath和fName都换自成你的目百标文件所度在的目录和名称问就可以了答
1、点击Excel界面左下角的录制抄宏按钮录制宏。
2、在【宏名】处输入一个有意义的名称，帮助以后识别该宏的功能。本例按照默认名称命名。选择将宏录制在【个人宏工作簿】并点击【确定】按钮zd。
3、马上点击Excel界面左下角的停止录制宏按钮停止宏的录制。
4、按Alt+F11打开VBE界面，如下图。
5、在代码部分输入或者粘贴执行某项特定功能的代码。
6、在功能区（Ribbon）上鼠标右键，选择【自定义快速访问工具栏】。
7、向窗体中拖动一个“标签”和一个“按钮”，右击“按钮”，从其扩展菜单中选择“属性”项。
8、双击“获取Excel数据”按钮，在打开的代码编辑窗口中，输入以下代码。
9、双击“Sheet1”工作表，在弹出的代码编辑窗口中输入如下代码。
10、返回Excel表格，激活Sheet1工作表，就可以看到窗口弹出，同时点击“获取Excel数据”按钮，就可以读取Excel中的数据啦。
Cells(2, 5) = sheets("数据区").cell(5, 8) & sheets("数据区").cell(5, 18 + j)
试下