【ACCESS精品源码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。
网学会员整理了ACCESS精品源码-VB打开EXCEL的方法 - 其它资料的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
VB 打开 EXCEL 的方法一楼的没有指明Dim xlBook As Excel.WorkBookSet xlBook App.Workbooks.Openquot文件名quot这种语法同样要求 excel 已经存在才能操作。
Public xlApp As Excel.ApplicationPublic xlBook As Excel.WorkbookPublic xlChar As New Excel.ChartPublic xlSheet As New Excel.WorksheetSet xlApp New Excel.ApplicationSet xlApp CreateObjectquotExcel.ApplicationquotSet xlBook xlApp.Workbooks.AddSet xlSheet xlBook.Worksheets.AddxlSheet.Cells1 1 quot测试quot 写入内容xlBook.SaveAs quotFILENAMEquot 保存文件xlApp.QuitSet xlApp Nothing本方法采用 add 添加 excel 文件和 datasheet,然后用 save 保存。
如果用 xlApp.VisibleFalse,则自动生成文件。
但是如果文件已经存在,则会弹出是否覆盖的提示。
因此,最好先在程序中检查文件是否已经存在,如果存在,则用普通方法打开。
如果不存在,则用 add 添加,并保存。
★打开相对路径下的文件Private Sub Command1_ClickShell App.Path amp quotaaa.batquotEnd Sub还有更简单的:Private Sub Command1_ClickShell quotaaa.batquotEnd Subaaa.bat 就是那个 BAT 的名字.那就不一定......因为 SHELL 只对可执行文件有效.你可用 WINDOWS 外壳程序 explorer.exe 打开任何文件包括文件夹代码:Private Sub Command1_ClickShell quotexplore.exe aaa.jpgquotEnd Sub★VB 调用 EXCEL 自带的查询功能在表格中查找内容Private Sub ComCx_ClickOn Error GoTo 50i xlBook.Worksheetsquot代码quot.RangequotA:Aquot.FindTrimTexDm.Text.Row★将程序中所有这一类的对象的某一属性全部更改为需要的属性Dim Item As Object 定义对象For Each Item In MeIf TypeOf Item Is TextBox Then Item.Text quotquot 将所有 TextBox 的 Text 属性值变为空If TypeOf Item Is ComboBox Then Item.ListIndex -1 将所有的 ComboBox 的 ListIndex 属性值变为“-1”NextIf Not i 0 ThenDm TrimTexDm.TextSm TrimxlBook.Worksheetsquot代码quot.Cellsi quotBquot.ValueDw TrimxlBook.Worksheetsquot代码quot.Cellsi quotDquot.ValueTexSm.Text Sm amp quot quot amp quotquot amp Dw amp quotquotComQd.Visible TrueGoTo 100End If50TexSm.Text quot没有找到相匹配的信息!quot100End Sub★如何使编的程序可以调用 excel首先要引用再定义对象及其类型Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetSet xlApp CreateObjectquotExcel.Applicationquot 创建 EXCEL 对象Set xlBook xlApp.Workbooks.OpenquotD:检包组合金厂代码查询xls合金 JDE 代码.xlsquotxlApp.Visible FalseSet xlSheet xlBook.Worksheetsquot确认信息quot★另存为ChDir quotD:quot ActiveWorkbook.SaveAs Filename:quotD:合金厂产品质检明细表.xlsquot FileFormat:xlExcel8 _ Password:quotquot WriteResPassword:quotquot ReadOnlyRecommended:False _ CreateBackup:FalseVB 是常用的应用软件开发工具之一,由于 VB 的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便。
因此有很多程序员现在已经充分利用 EXECL 的强大报表功来实现报表功能。
但由于 VB 与 EXCEL 由于分别属于不同的应用系统,如何把它们有机地结合在一起,是一个值得我们研究的课题。
一、 VB 读写 EXCEL 表: VB 本身提自动化功能可以读写 EXCEL 表,其方法如下: 1、在工程中引用 Microsoft Excel 类型库: 从quot工程quot菜单中选择quot引用quot栏; (E 选择 Microsoft Excel 9.0 Object LibraryXCEL2000),然后选择quot确定quot。
表示在工程中要引用EXCEL 类型库。
2、在通用对象的声明过程中定义 EXCEL 对象:Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.Worksheet 3、在程序中操作 EXCEL 表常用命令:Set xlApp CreateObjectquotExcel.Applicationquot 创建 EXCEL 对象Set xlBook xlApp.Workbooks.Openquot文件名quot 打开已经存在的 EXCEL 工件簿文件xlApp.Visible True 设置 EXCEL 对象可见(或不可见)Set xlSheet xlBook.Worksheetsquot表名quot 设置活动工作表xlSheet.Cellsrow col 值 给单元格(rowcol)赋值xlSheet.PrintOut 打印工作表xlBook.Close True 关闭工作簿xlApp.Quit 结束 EXCEL 对象Set xlApp Nothing 释放 xlApp 对象xlBook.RunAutoMacros xlAutoOpen 运行 EXCEL 启动宏xlBook.RunAutoMacros xlAutoClose 运行 EXCEL 关闭宏 4、在运用以上 VB 命令操作 EXCEL 表时,除非设置 EXCEL 对象不可见,否则 VB 程序可继续执行其它操作,也能够关闭 EXCEL,同时也可对EXCEL 进行操作。
但在 EXCEL 操作过程中关闭 EXCEL 对象时,VB 程序无法知道,如果此时使用 EXCEL 对象,则 VB 程序会产生自动化错误。
形成VB 程序无法完全控制 EXCEL 的状况,使得 VB 与 EXCEL 脱节。
二、 EXCEL 的宏功能: EXCEL 提供一个 Visual Basic 编辑器,打开 Visual Basic 编辑器,其中有一工程属性窗口,点击右键菜单的quot插入模块quot,则增加一个quot模块 1quot,在此模块中可以运用 Visual Basic 语言编写函数和过程并称之为宏。
其中,EXCEL 有两个自动宏:一个是启动宏(Sub Auto_Open),另一个是关闭宏(Sub Auto_Close)。
它们的特性是:当用 EXCEL 打含有启动宏的工簿时,就会自动运行启动宏,同理,当关闭含有关闭宏的工作簿时就会自动运行关闭宏。
但是通过 VB 的自动化功能来调用 EXCEL工作表时,启动宏和关闭宏不会自动运行,而需要在 VB 中通过命令xlBook.RunAutoMacros xlAutoOpen和 xlBook.RunAutoMacros xlAutoClose 来运行启动宏和关闭宏。
三、 VB 与 EXCEL 的相互勾通: 充分利用 EXCEL 的启动宏和关闭宏,可以实现 VB 与 EXCEL 的相互勾通,其方法如下: 在 EXCEL 的启动宏中加入一段程序,其功能是在磁盘中写入一个标志文件,同时在关闭宏中加入一段删除此标志文件的程序。
VB 程序在执行时通过判断此标志文件存在与否来判断 EXCEL 是否打开,如果此标志文件存在,表明 EXCEL 对象正在运行,应该禁止其它程序的运行。
如果此标志文件不存在,表明 EXCEL 对象已被用户关闭,此时如果要使用 EXCEL 对象运行,必须重新创建 EXCEL 对象。
四、举例: 1、在 VB 中,建立一个 FORM,在其上放置两个命令按钮,将Command1 的 Caption 属性改为 EXCEL,Command2 的 Caption 属性改为 End。
然后在其中输入如下程序:Dim xlApp As Excel.Application 定义 EXCEL 类Dim xlBook As Excel.Workbook 定义工件簿类Dim xlsheet As Excel.Worksheet 定义工作表类Private Sub Command1_Click 打开 EXCEL 过程 If DirquotD:tempexcel.bzquot quotquot Then 判断 EXCEL 是否打开 Set xlApp CreateObjectquotExcel.Applicationquot 创建 EXCEL 应用类 xlApp.Visible True 设置 EXCEL 可见 Set xlBook xlApp.Workbooks.OpenquotD:tempbb.xlsquot 打开 EXCEL 工作簿 Set xl
上一篇:
反汇编教程
下一篇:
bc80e7a0-d1f2-4595-b21d-01a76798e87a