大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
一定要先在VB中添加excel引用。
网站建设哪家好,找创新互联公司!专注于网页设计、网站建设、微信开发、微信平台小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了海南免费建站欢迎大家使用!
在工程中引用Microsoft Excel类型库: 从"工程"菜单中选择"引用"栏;选择Microsoft Excel 11.0 Object Library(EXCEL2003),然后选择"确定"。表示在工程中要引用EXCEL类型库。
调用excel的工作表中的命令按钮,代码如下:
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = "e:\data.xls" '打开的工作簿路径名称
SheetName = "sheet1" '命令按钮所在的工作表名
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
……
xlBook.Close (True) '保存并关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
end sub
button里执行
sleep 5000 '等5秒
call xxxx '另外的过程代码
即可。
很简单啊,在按钮的点击事件中调用窗体的show()方法就好了
button.onclick(){
frame1.show();
}
你说的未选中状态是指焦点?
只有一个按钮能获得焦点。
你点击一个按钮,那个按钮获得焦点,其他按钮自然失去焦点。