摘要: 创建excel文件Sub addexcel(excelpath) '定义excel文件对象 Dim exlapp '定义excel工作簿 Dim exlworkbook '定义excel表格 Dim exlworksheet '创建excel对象 Set exlapp = CreateObject( 阅读全文
posted @ 2016-06-15 17:47 alice云学习 阅读(283) 评论(0) 推荐(0) 编辑
摘要: '根据两个数进行加法和减法运算'1、输入+号,则进行加法运算'2、输入-号,则进行减法运算 Dim opera,operb,result,operMsgBox "+.加法功能"&vbcrlf&"-.减法功能"oper=InputBox("请选择功能")opera=InputBox("输入a数据")o 阅读全文
posted @ 2016-06-15 11:56 alice云学习 阅读(414) 评论(0) 推荐(0) 编辑