
1、点击Excel界面左下角的录制宏按钮录制宏。
2、在【宏名】处输入一个有意义的名称,帮助以后识别该宏的功能。本例按照默认名称命名。选择将宏录制在【个人宏工作簿】并点击【确定】按钮。
3、马上点击Excel界面左下角的停止录制宏按钮停止宏的录制。
4、按Alt+F11打开VBE界面,如下图。
5、在代码部分输入或者粘贴执行某项特定功能的代码。
6、在功能区(Ribbon)上鼠标右键,选择【自定义快速访问工具栏】。
7、向窗体中拖动一个“标签”和一个“按钮”,右击“按钮”,从其扩展菜单中选择“属性”项。
8、双击“获取Excel数据”按钮,在打开的代码编辑窗口中,输入以下代码。
9、双击“Sheet1”工作表,在d出的代码编辑窗口中输入如下代码。
10、返回Excel表格,激活Sheet1工作表,就可以看到窗口d出,同时点击“获取Excel数据”按钮,就可以读取Excel中的数据啦。
Application.ScreenUpdating=FalseWorkbooks.Open
"测试.xls"
'读取或写入数据的代码
Workbooks("测试.xls").Close
SaveChanges:=True
Application.ScreenUpdating=True
Dim wb As WorkbookApplication.ScreenUpdating = False
Set wb = Workbooks.Open(要调用的工作薄的路径及名称)
‘路径及名称格式如下 ThisWorkbook.Path &"\Back.xlsx")
With wb.Sheets("表名 不是工作薄名").range(要调用的单元格)
对调用单无格的 *** 作
End With
wb.Close 1
Application.ScreenUpdating = True
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)