【实验目的】
1)掌握VB编程的使用
【实验原理】
创建VB应用程序有三个主要步骤:
1、创建应用程序界面
2、设置属性
3、编写代码
【实验环境】
Offic++e 2010
【实验步骤】
项目准备:鼠标右击电脑桌面选择【新建】--【Microsoft Excel工作表】,创建新的Excel工作表,修改Excel工作表的表名为“VB编辑器”。
Excel操作
双击打开“VB编辑器”的工作表,在“VB编辑器”工作表的单元格内输入相应的信息属性,所有的字体全部居中对齐,A1:B1字体进行加粗。如图所示
在Excel工作表的菜单栏的“视图”项中选择“宏”单击“查看宏”。如图所示
在弹出“宏”的窗口中,输入宏名为“vbafile”,选择宏的位置为“VB编辑器.xlsx”,点击“创建”。如图所示
工作表会弹出VB编辑界面的窗口。如图所示
在窗口“VB编辑器”中开发代码,获取工作簿的名字、路径、带路径的文件相关信息。(输入完毕,关闭或者缩小窗口)红框的内容是:
Range(”B2”)=Thisworkbook.Name
Range(”B3”)=ThisWorkbook.Path
Range(”B4”)=ThisWorkbook.FullName
如图所示
打开“VB编辑器”工作表,切换到“视图”的菜单栏中,右击右上角空白处,选择“自定义快速访问工具栏”。如图所示
在弹出的“Excel选项”中选择“自定义功能区”,勾选“开发工具”项。如图所示
“确认”后“Excel编辑器”的菜单栏中会出现“开发工具”项,打开“VB编辑器”的工作簿,在菜单栏中“插入”项选择“形状”中的“圆角矩形”小图标。如图所示
在“VB编辑器”的工作表中随意画一个长方形,“VB编辑器”工作表会弹出“指定宏”的窗口,选择“vbafile”宏。如图所示
弹出窗体
“确定”后在“VB编辑器”的工作表中出现上部画的长方形按钮,修改按钮名为“文件信息”。如图所示
效果展示
点击“文件信息”按钮,得到文件的名称、文件内容、带路径的文件名称相关信息。如图所示