说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB用EXCEL组件简化VB编程的一种方法

HTML文档下载 WORD文档下载 PDF文档下载
VB用EXCEL组件简化VB编程的一种方法

作 者 : 三联商社电脑部 葛岩

   具体使用编辑器步骤如下:进入EXCEL97后,用鼠标点击菜单栏中的“工具”按钮,选择“宏”,再选择“VB编辑器”。即出现类似于VB的标准窗口。

   由于“VB编辑器”的编辑界面非常类似于“Visual Basic”的界面。所以我们可以从它的控件“工程资源管理器”中插入需要的“添加用户窗体、添加模块、添加类模块”,并且从“属性窗口”中加入属性。

   例如,我们可以制定一个表格处理定位的窗体,通过程序来实现数据定位和循环调用过程。

   Public decide As Boolean

   Private Sub CommandButton1_Click()

   exchange

   If decide Then

   Unload Me

   Else

   TextBox1.Text = ""

   End If

   End Sub

   Sub exchange()

   If Not decideday(TextBox1.Text) Then GoTo error

   decide = True

   Dim sql As String

   Dim db As Database

   Dim rs As Recordset

   sql = "SELECT * From 数据表"

   sql = sql + " WHERE (((数据表.日期)=#" + TextBox1.Text + "#))"

   Set db = OpenDatabase(Application.ThisWorkbook.Path + "gl.mdb")

   Set rs = db.OpenRecordset(sql, dbOpenDynaset)

   If rs.EOF Then

   MsgBox ("此日期无数据")

   Exit Sub

   End If

   daima1 = rs.Fields("代码")

   (以下为数据在表格中的定位及调用)

   Sheet1.Range("e5").Value = rs.Fields("日期")

   Sheet1.Range("f7").Value = rs.Fields("数据表记录")

   Sheet1.Range("d12").Value = rs.Fields("实数100")

   Sheet1.Range("d14").Value = rs.Fields("实数50")

   Sheet1.Range("d16").Value = rs.Fields("实数10")

   Sheet1.Range("d18").Value = rs.Fields("实数5")

   Sheet1.Range("d20").Value = rs.Fields("实数2")

   Sheet1.Range("d22").Value = rs.Fields("实数1")

   Sheet1.Range("h12").Value = rs.Fields("其他100")

   Sheet1.Range("h14").Value = rs.Fields("其他50")

   Sheet1.Range("h16").Value = rs.Fields("其他10")

   Sheet1.Range("h18").Value = rs.Fields("其他5")

   Sheet1.Range("h20").Value = rs.Fields("其他2")

   Sheet1.Range("h22").Value = rs.Fields("其他1")

   Sheet1.Range("d38").Value = Sheet1.Range("d12").Value * 100 + Sheet1.Range("d14").Value * 50 + Sheet1.Range("d16").Value * 10 + Sheet1.Range("d18").Value * 5 + Sheet1.Range("d20").Value * 2 + Sheet1.Range("d22").Value

   Sheet1.Range("h38").Value = Sheet1.Range("h12").Value * 100 + Sheet1.Range("h14").Value * 50 + Sheet1.Range("h16").Value * 10 + Sheet1.Range("h18").Value * 5 + Sheet1.Range("h20").Value * 2 + Sheet1.Range("h22").Value

   Dim sql1 As String

   Dim db1 As Database

   Dim rs1 As Recordset

   sql1 = "SELECT * From 代码字典"

   sql1 = sql1 + " WHERE (((代码字典.代码)=" & daima1 & "))"

   Set db1 = OpenDatabase(Application.ThisWorkbook.Path + "gl.mdb")

   Set rs1 = db1.OpenRecordset(sql1, dbOpenDynaset)

   Sheet1.Range("h41").Value = rs1.Fields("代码字典名称")

   Exit Sub

   error:

   MsgBox ("日期输入错误")

   decide = False

   End Sub

   Private Sub TextBox1_Change()

   End Sub

   Private Sub UserForm_Activate()

   dyaaa.Top = 30

   dybbb.Left = 230

   End Sub

   VB是标准的面向对象编程语言可视编程,采用事件驱动的编程技术。所以可以直接调用VB编辑器所写的程序,简化以往较为繁琐的一些步骤。

   由于用户的需求较多,VB可以通过直接调用OFFICE组件EXCEL,进而直接调用VB编辑器实现表格处理,以简化程序的编写。

   VB程序中直接调用EXCEL 的格式如下:

   Private Sub menudy_Click(Index As Integer) 这是一个打印菜单

   Select Case Index

   Case 0

   On Error GoTo Last

   diaoyong = Shell("D:Program FilesMicrosoft OfficeOfficeEXCEL.EXE c:glgl.xls", 1)

   Case 1

   On Error GoTo Last1 作为空表处理

   diaoyong = Shell("D:Program FilesMicrosoft OfficeOfficeEXCEL.EXE c:glgly.xls", 1)

   Case 3

   EXIT

   End Select

   Exit Sub

   Last:

   diaoyong = Shell("EXCEL.EXE c:glgl.xls", 1)

   Exit Sub

   Last1:

   diaoyong = Shell("EXCEL.EXE c:glgly.xls", 1)

   End Sub

   具体的表格数据处理可以由EXCEL自动完成,因此就简化VB编程的步骤,并且节约调试程序和定位调用的时间。这样就可以把Visual Basic和 EXCEL有机的结合在一起,使编程更加实用。

高性价比:GlassUp宣布支持Windows Phone系统 未挖掘到足够信息:非收集数据少,是利用率只有1% 下一个帝国:谷歌收购初创公司DNNresearch 苹果更新Apple Store应用,可查看零售店库存 开源软硬件:福特汽车的OpenXC计划 Temple Run:Oz稳坐付费榜头把交椅,迪士尼名利双收 Facebook开放图谱示好开发者 新增书籍电影等九项操作 源代码管理的六大视觉模式 最新算法面世 可提高云数据库性能 分析称平板电脑应用将占全球应用经济的35% 三大运营商对微信等OTT业务摊牌 Runscope联合创始人John Sheehan:API已死,API永存! IBM在京发布大数据白皮书 提出五项关键建议 Twitter开源Parquet 将支持Impala加速实时查询 使用Go代替Ruby,将服务器数量从30降到2 初创公司SwiftStack:“放在盒子里的S3” 赫尔辛基:全球移动游戏开发者的“黄埔军校” 不只属于三星!uMoove将发布“眼球追踪”SDK Android掌门人Andy Rubin宣布辞职 Chrome主管接任 openSUSE 12.3发布 弃MySQL拥抱MariaDB Meteor:让实时Web App成为主流 别了,Google Reader!谷歌于7月1日关闭服务 “天网”降临 机器人或将崛起? 涅槃重生:Qt 5 for Android预览版发布 Google Play将逐步移除广告拦截应用 Shapeways公司开放API 3D打印时代来临 37signal设计师眼中的iOS与Android系统 VMware/Oracle向公有云拓展生态系统 AWS“山寨”技术伙伴创意与产品,是自我完善还是杀鸡取卵? 苹果发布OS X 10.8.3 新版Boot Camp可支持Windows 8 恭喜!麻省理工两密码学教授获2012图灵奖 为什么有些callback 函数前要加static 谁有销售管理系统的源代码呀!大虾们,帮帮忙呀! -=-=-=- (一定加到1000分)求IE浏览器 的访问机制!?-=-=-=- 关于ATL与ADO的问题,请指教!谢谢! 光驱坏了,我把光驱拆开了,看到一个东东不知道它是好还是坏. 待发送mail能否修改优先级? JDBC如何访问Oracle存储过程返回的结果集? 有关使用JAVA技术来操作ZIP文件的一个问题,很急的!!!!!! 了解足球网站的兄弟讨论一下 简单问题,急需一个链接SQL SERVER 2000的字符串!!! 求助 求一时间函数 用VC做一个IE的ActiveX,要求能通过Internet访问数据库,该怎么弄啊?有例程吗? JDBC如何访问Oracle存储过程返回的结果集? 虚心请教个简单问题!怎样根据数据库读出的的代码(DM),动态匹配出代码意义(DMYY)?急!!! 我有简体的程序代码,也装了繁体98,想转换为繁体版,请帮我提供解决方案把 请问有哪位高人配置过JBuilder编译javabean 怎么读出上传的文件内容,(根据文件路径)? 在Win2003里用属于Administrator用户组但不是Administrator的用户建一个ADSL上网连接,为什么这个用户自己无权使用呢?怎么才能使它有使 设备文本重画的问题 求 <<ibm pc 匯編語言程序設計>>一書, 送400分. 下载文件时不提示我? JB中写代码时光标的问题 vbscript,如何在客户判断EMAIL正确格试! 西风到底怎么样啊? 众为高手好,小弟下载了个电影,打开时有声音,但是显示不了 ACCESS可以用中文作为表名,但不能读取表? 从0-22 抽出 5个数 这几个数不能相同。怎么版。啊。。 求救! 在窗体中如何对ACCESS数据库中的表格进行访问?--在线求助!! 怎么在程序中使用另一个目录下的class?在线等 如何在datagrid绑定后修改datagrid 的header.text的值? 谁知道在PB8下为什么树型控件无法正确显示汉字,急,马上就给分,在线等候! delphi的系统分析员请进来。 关于输入法的聚焦问题!! 病毒通过附件传播的问题 ORACLE不能自动启动的问题 关于提取字符串的问题 indy 9控件的安装,有没有发布版下载! 菜鸟问题,我这个触发器错在哪里? 郁闷!!!帮帮先!!! 急,表怎么添加不了数据??? 怎样实现MDI框架下,桌面窗体总在所有窗体的最后面? 关于html登录表单 想创业的进来看看! 郁闷!!帮忙先 “上网上了一半,突然间网页全部自动关闭?” 急死了,这是怎么回事? delphi的系统分析员请进来。 许多网页底部都有Disclaimer,请问这个词该怎么理解?谢谢! asp连接 orale进行分页时老出错? 请教:如何从XML文件中动态读出对应的信息?万分感谢 需要一般的解题思想.我总拿着倒数题没有下笔头绪,但别人给我讲我还能理解. 德国牧羊犬和狼犬有什么区别专家人事请帮帮忙了` 也是醉了是啥意思? 首先在这里先说明一下情况,因为我的错题是考试的历年真题来的.同时这次的考试对我来说很重要,希望各位前辈能够帮助我,谨慎作答,因为我会完全相信你们的答案的!(题目比较多,请不要只 狼犬和德国牧羊犬有什么区别拜托了各位 1.圆柱的体积一般比表面积大.()对或错2.一个圆柱与一个长方体等地等高,那么他们的体积相等()3.求圆柱.长方体和正方体圆锥的体积都能用底面积乘高来计算.()4当圆柱的高和底面直 已知AD为三角形ABC的中线,且BC=2AC,试问三角形ABC是什么三角形,为什么? 企鹅到底是白底黑边的鸟,还是黑底白肚子的鸟?我想了好几天了 我也真是醉了什么意思 超简单```已知:在三角形ABC中,AB=2AC,求证:AC 哪些英语单词的ing或者比较级最高级是双写末位字母的?比如说 wet wetter babysit babysitting 醉了啥意思 [英语]一道时间状语从句选择题,如何选择?We hadn’t met for 20years,but I recognized her _________ I saw herA for the momentB the moment whenC at the moment whenD the moment这道题选D,为什么C不可以? 黄狼犬是一种什么狗,希望得到比较详细的回答.回答详细悬赏10分之20分到底有没有一种狗叫黄狼?我怎么查不到? 真是醉了什么意思 第五题,怎么样画解集图求解了,有啥规律么? 《鸟的天堂》大的,小的,花的,黑的,这是写鸟的【?】.《鸟的天堂》昨天是我的眼睛骗了我,这句话的意思是:昨天不是【?】,而是【?】 英语翻译I would hurl words into this darkness and wait for an echo,and if an echo sounded,no matter how faintly,I would send other words to tell,to march,to fight,to create a sense of hunger for life that gnaws in us all.Richard Wright,American H 西门豹人物介绍 我都醉了什么意思 我也真是醉了 关于把握机会的作文,高悬赏,在线等!要自己的事例50分! 给了再加 求方程xy’=2y的解 《南极大冒险》中的雪橇犬是西伯利亚雪橇犬(哈士奇)还是阿拉斯加雪橇犬 自己把握机会450字作文 常微分方程题. 大家帮我看看这是那种雪橇犬? 求关于把握机遇的作文 头和翅膀是黑色,尾巴和腹部是白色的是什么鸟? 设a,b,c,是△ABC的三条边,方程(b+c)x2+√2(a-c)x-3/4(a-c)=0有两个相等的实数根,设a,b,c,是△ABC的三条边,方程(b+c)x2+√2(a-c)x-3/4(a-c)=0有两个相等的实数根,且满足a-5b+2c=0.(1)求证三角形是等腰三角 关于把握机会或放弃机会的作文丰富多彩的六年小学生活就要结束了.在你成长的过程中,你是否也有把握良机、获取成功的喜悦?你是否也有失去良机、伤心失落的遗憾?以"把握"或"遗憾''为题, 我捡到一只鸟头上长个黑色冠.一身灰色的毛.腹部是毛事白色的.请问是只什么鸟?它好可爱.我想养活它. 把下面词语补充完整:半( )三( ) 一( )两( ) 一( )百() 一()万() 我不会为生活的压力而垂头丧气,不会为成绩的下滑而丧失斗志.用英语怎么说急 改错题哦,有一个错的庇漏 哪个字是错的 “儿孙自有儿孙福,莫把儿孙当马牛”的意思是什么? ∫(x+cosx)^2dx 的不定积分 一些初三政治改错题(以下题目全是错的)选举权和被选举权作为我国公民的基本政治权利,其主体是公民享受权利才是人民当家作主的体现公民应先履行义务,后享受权利政府要依法行政,提 如何理解"妈妈"的妈字一个女旁,加一个马字,一辈子为儿女做牛做马.可另有儿孙自有儿孙福,莫为儿孙作马牛. 在如图所示的夫琅禾费衍射装置中,将单缝宽度a稍稍变窄,同时使会聚透镜L沿y轴正方向作微小平移(单缝与屏幕位置不动),则屏幕C上的中央衍射条纹将 (A) 变宽,同时向上移动. (B) 变宽,同时向 目不()()把词语补充完整 雪橇犬怎么养才健康? 成语接龙帮忙.给好评!~\(≧皿≦)/~ 关于 是否存在这样的函数( 个人觉得是 常微分方程问题)Is there such a function?suppose g is a function satisfying the following two preperties:(a).g(x)=xg(1/x),for all real numbers x( x is not zero),and(b).g(x)+g(y)=1+g(x+y) f 请问四川适合养雪橇犬么?比较纯的价格大概在多少? 第二题~\(≧皿≦)/~ 把词语补充完整:不( )一( ) 怎么养雪橇犬?我无意中捡到了一条雪獒犬可我不知道要怎么养 现在只吃香肠 单缝衍射为什么放凸透镜 请帮我解决数学集合题.1.若A={x|-2小于等于x小于等于a},B={y|y=2x+3,x属于A},C={Z|Z=X的平方,x属于A},且C是B的子集,试求实数a 的取值范围.2.设A={(x,y)|y的平方-x-1=0},B={(x,y)|4乘以x的平方+2x-2y+5=0},C={ 雪橇犬 再东北好养吗 雪橇犬有几种? “完璧归赵”的典故与下列哪个人物有关?选B 补充词语( )重其事 天宇雪橇犬基地的狗是纯种的吗? 把握机遇是什么 英语中有什么形容词或动词加th变名词,越多越好啊 已知两个数的和为6,积为7,则这两个数为多少? 异功能?火星上一共发现了多少地球上有的建筑,火星上的人长什么样子? 现在有好多人说 什么什么的要醉了 用一个字形容黄河 并指出为什么? 加拿大女子相亲网站“钓男人”吃免费餐新加坡两名少年不满被人抱怨挥棍打人被新加坡公共交通“有人味儿”国际新闻早报:美国总统与伊拉克总理谈韩国将重组国军网络司令部 以提高工作克里急赴中东安抚沙特 美沙关系因叙问土耳其4名女议员戴头巾出席会议 打破梅德韦杰夫谈监听丑闻:美国不能这样厚俄“彼得大帝”号核动力巡洋舰进入地中英国检方称《世界新闻报》曾窃听哈里王泰国机长驾照过期在南京被停飞 乘客机黄坤明辞去杭州市人大常委会主任职务 浪漫升级 新加坡7大蜜月旅行地39岁杨采妮今新加坡出嫁 明星闺蜜到朴槿惠首谈“网军干涉选举”梅德韦杰夫:美国窃听外国领导人的行为普京登顶权势榜 只怪奥巴马不争气韩国三四流整形医生赴中国淘金 自称顶韩国三四流整形医生赴中国淘金 自称顶杭州启动最高规格专项督查 严惩公款请今年以来浙江平均雾霾日数历史同期最多湖南省发改委原总经济杨世芳被开除党籍多彩贵州影像惊艳悉尼情人港权健官宣孙可与球队汇合 再添强援备战断无止境 福特的这个解释你认可么?承德县高寺台镇新年贯彻《准则》和《条印度把亚投行当“钱罐子”金融市场或将一加3视频曝光:配置强悍却没指纹识别vivo Xplay5来袭 全新智能承德县甲山镇重拳出击切实转变工作作风不看车托的文章!皇冠和金牛座之间,该梦幻般的奔驰S级内饰 将搭载全新CO今日大盘向下震荡,短期内大盘还将持续有一个国家以买日本车为耻!然而并不是晚饭决定体重和寿命,这6种晚餐我再也为什么中医总爱说病人”湿气重“?中国“车模八艳”,看到想舔屏~手机丢了,第一时间该做什么?这些开车臭毛病,真让国人脸上无光老司机揭秘:这么用车,30天可能就报大加嫂联手考神?曝国王已提出交易 那Appley Pay初体验 早餐就这
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘