1、VB打开EXCEL的方法VB 打开 EXCEL 的方法 一楼的没有指明Dim xlBook As Excel.WorkBookSet xlBook = App.Workbooks.Open（ 文件名 ） 这种语法同样要求 excel 已经存在才能操作。xlApp As Excel.Application xlBook As Excel.Workbook xlChar As New Excel.Chart xlSheet As New Excel.WorksheetSetSetSetSetxlSheet.Cells(1, 1) = 测试 写入内容 xlBook.SaveAs (FILENAME)
2、 保存文件 xlApp.QuitSet xlApp = Nothing本方法采用 add 添加 excel 文件和 datasheet ，然后用 save 保存。如果用 xlAp p.Visible=False ，则自动生成文件。但是如果文件已经存在，则会弹出是否覆盖 的提示。因此，最好先在程序中检查文件是否已经存在，如果存在，则用普通方 法打开。如果不存在，则用 add 添加，并保存。打开相对路径下的文件Private Sub Command1_Click()Shell App.Path & aaa.bat End Sub还有更简单的 :Private Sub Command1_Click(
3、)Shell aaa.batEnd Sub aaa.bat 就是那个 BAT 的名字 .那就不一定 因为 SHELL 只对可执行文件有效 .你可用 WINDOWS 外壳程序 explorer.exe 打 开任何文件 （包括文件夹 ）代码:Private Sub Command1_Click()Shell explore.exe aaa.jpgEnd Sub VB 调用 EXCEL 自带的查询功能在表格中查找内容 Private Sub ComCx_Click()On Error GoTo 50i = xlBook.Worksheets( 代码 ).Range(A:A).Find(Trim(Te
4、xDm.Text).RowIf Not i = 0 ThenDm = Trim(TexDm.Text)Sm = Trim(xlBook.Worksheets( 代码 ).Cells(i, B).Value) Dw = Trim(xlBook.Worksheets( 代码 ).Cells(i, D).Value) TexSm.Text = Sm & & ( & Dw & ) ComQd.Visible = TrueGoTo 100End If 50TexSm.Text = 没有找到相匹配的信息！ 100End Sub如何使编的程序可以调用 excel 首先要引用 再定义对象及其类型Dim xlA
5、pp As Excel.Application Dim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetSet xlApp = CreateObject（Excel.Application） 创建 EXCEL 对象Set xlBook = 检包组 合金厂代码查询 合金 JD E 代码 .xls）xlApp.Visible = FalseSet xlSheet = xlBook.Worksheets（ 确认信息 ）另存为ChDir D:合金厂产品质检明细表 .xls, FileFActiveWorkbook.SaveAs ormat:=
6、xlExcel8, _Password:=, WriteResPassword:=, ReadOnlyRecommended:=False,CreateBackup:=FalseVB 是常用的应用软件开发工具之一，由于 VB 的报表功能有限，而且一但报表 格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。 因此有很多程序员现在已经充分利用 EXECL 的强大报表功来 实现报表功能。但由于 VB 与 EXCEL 由于分别属于不同的应用系统， 如何把它们有机地结合在一起，是一个值得我们研究的课题。VB 读写 EXCEL 表：VB 本身提自动化功能可以读写 EXCEL 表，其方法如
7、下：1、在工程中引用 Microsoft Excel 类型库：从工程 菜单中选择 引用 栏；选择 Microsoft Excel 9.0 Object Library( E XCEL2000 )，然后选择 确定 。表示在工程中要引用 EXCEL 类型库。2、在通用对象的声明过程中定义 EXCEL 对象：DimDimDimxlApp As Excel.Application xlBook As Excel.WorkBook xlSheet As Excel.Worksheet3、在程序中操作 EXCEL 表常用命令： 创建 EXCEL 对象Set xlApp = CreateObject（Exc
8、el.Application）Set xlBook = xlApp.Workbooks.Open（ 文件名 ） 打开已经存在的 EXCEL 工 件簿文件xlApp.Visible = True 设置 EXCEL 对象可见（或不可见）Set xlSheet = xlBook.Worksheets( 表名) 设置活动工作表 xlSheet.Cells(row, col) =值 给单元格( row,col )赋值 xlSheet.PrintOut 打印工作表 xlBook.Close (True) 关闭工作簿 xlApp.Quit 结束 EXCEL 对象Set xlApp = Nothing 释放
9、xlApp 对象 xlBook.RunAutoMacros (xlAutoOpen) 运行 EXCEL 启动宏 xlBook.RunAutoMacros (xlAutoClose) 运行 EXCEL 关闭宏4、在运用以上 VB 命令操作 EXCEL 表时，除非设置 EXCEL 对象不可见， 否则 VB 程序可继续执行其它操作，也能够关闭 EXCEL ，同时也可对 EXCEL 进行操作。但在 EXCEL 操作过程中关闭 EXCEL 对象时， VB 程序无法 知道，如果此时使用 EXCEL 对象，则 VB 程序会产生自动化错误。形成 VB 程序无法完全控制 EXCEL 的状况，使得 VB 与 EX
10、CEL 脱节。EXCEL 的宏功能：EXCEL 提供一个 Visual Basic 编辑器， 打开 Visual Basic 编辑器， 其中有 一工程属性窗口，点击右键菜单的 插入模块 ，则增加一个 模块 1，在此模块中可以运用 Visual Basic 语言编写函数和过程并称之为宏。 其中， EXCEL 有两个自动宏：一个是启动宏( Sub Auto_Open() ) ，另一个是关闭宏( Sub Auto_Close() )。它们的特性是：当用 EXCEL 打含有 启动宏的工簿时，就会自动运行启动宏，同理，当关闭含有关闭 宏的工作簿时就会自动运行关闭宏。但是通过 VB 的自动化功能来调用 E
11、XCEL 工作表时，启动宏和关闭宏不会自动运行，而需要在 VB 中通过命令 xlBook.RunAutoMacros (xlAutoOpen) 和 xlBook.RunAutoMacros (xlAutoClose) 来运行启动宏和关闭宏。三、 VB 与 EXCEL 的相互勾通：充分利用 EXCEL 的启动宏和关闭宏， 可以实现 VB 与 EXCEL 的相互勾通， 其方法如下：在EXCEL的启动宏中加入一段程序，其功能是在磁盘中写入一个标志文件， 同时在关闭宏中加入一段删除此标志文件的程序。 VB 程序在 执行时通过判断此标志文件存在与否来判断 EXCEL 是否打开， 如果此标志文件 存在，表
12、明 EXCEL 对象正在运行，应该禁止其它程序的运行。 如果此标志文件不存在，表明 EXCEL 对象已被用户关闭，此时如果要使用 EX CEL 对象运行，必须重新创建 EXCEL 对象。四、举例：1、在VB中，建立一个FORM，在其上放置两个命令按钮，将C ommand1的Caption属性改为EXCEL , Command2的Caption属性改为End。然后 在其中输入如下程序：Dim xlApp As Excel.Application 定义 EXCEL 类Dim xlBook As Excel.Workbook 定义工件簿类Dim xlsheet As Excel.Worksheet
13、定义工作表类Private Sub Command1_Click() 打开 EXCEL 过程If Dir(D:tempexcel.bz) = Then 判断 EXCEL 是否打开Set xlApp = CreateObject(Excel.Application) 创建 EXCEL 应用类 xlApp.Visible = True 设置 EXCEL 可见打开 EXCEL 工Set xlBook = xlApp.Workbooks.Open(D:tempbb.xls) 作簿Set xlsheet = xlBook.Worksheets(1) 打开 EXCEL 工作表 xlsheet.Activa
14、te 激活工作表 xlsheet.Cells(1, 1) = abc 给单元格 1 行驶列赋值 xlBook.RunAutoMacros (xlAutoOpen) 运行 EXCEL 中的启动宏ElseMsgBox (EXCEL 已打开 )End IfEnd SubPrivate Sub Command2_Click()If Dir(D:tempexcel.bz) Then 由 VB 关闭 EXCEL xlBook.RunAutoMacros (xlAutoClose) 执行 EXCEL 关闭宏 xlBook.Close (True) 关闭 EXCEL 工作簿 xlApp.Quit 关闭 EXC
15、ELEnd IfSet xlApp = Nothing 释放 EXCEL 对象EndEnd Sub2、在D盘根目录上建立一个名为 Temp的子目录，在Temp目录下建立一 个名为bb.xls的EXCEL文件。3、在bb.xis中打开Visual Basic编辑器，在工程窗口中点鼠标键选择插入 模块，在模块中输入入下程序存盘：Sub auto_open()Open d:tempexcel.bz For Output As #1 写标志文件Close #1End SubSub auto_close()Kill d:tempexcel.bz 删除标志文件End Sub4、运行 VB 程序，点击 EX
16、CEL 按钮可以打开 EXCEL 系统，打开 EXCEL 系统后， VB 程序和 EXCEL 分别属两个不同的应用系统，均可同时进行操作， 由于系统加了判断，因此在 VB 程序中重复点击 EXCEL 按钮时会提示 EXCEL 已打开。如果在 EXCEL 中关闭 EXCEL 后再点 EXCEL 按钮，则会重新打开 EXCEL。而无论EXCEL打开与否，通过VB程序均可关闭EXCEL。这样就实 现了 VB 与 EXCEL 的无缝连接。 JDE 代码查询程序源代码xlApp As Excel.Application xlBook As Excel.Workbook xlSheetDm AsSm As
17、Dw As i As Integer SouS As ObjectPrivate Sub ComCx_Click()i = 2Do While i = 10000Dm = Trim(xlBook.Worksheets(代码).Cells(i, A).Value)If Dm = Trim(TexDm.Text) ThenSm = Trim(xlBook.Worksheets(代码).Cells(i, B).Value) Dw = Trim(xlBook.Worksheets(代码).Cells(i, D).Value) TexSm.Text = Sm & & ( & Dw & )GoTo 100
18、 End If i = i + 1LoopTexSm.Text = 没有找到相匹配的信息！ On Error GoTo 50 i = xlBook.Worksheets(代码).Range(A:A).Find(Tnm(TexDm.Text).RowIf Not i = 0 ThenDm = Trim(TexDm.Text)Sm = Trim(xlBook.Worksheets(代码).Cells(i, B).Value) Dw = Trim(xlBook.Worksheets(代码).Cells(i, D).Value) TexSm.Text = Sm & & ( & Dw & ) ComQd
19、.Visible = TrueGoTo 100End If100End SubComQc_Click()= 请在此输入 10 位数的代码 IlliPrivate Sub TexDm.Text TexSm.Text Dm = Sm = Dw = ComQd.Visible = FalseEnd SubPrivate Sub ComQd_Click() xlSheet.Cells(2, A).Value = Dm xlSheet.Cells(2, B).Value = Sm xlSheet.Cells(2, C).Value = Dw xlBook.SaveEnd SubPrivate Sub C
20、omTc_Click() xlBook.Close (False) xlApp.QuitSet xlApp = NothingSet xlBook = NothingSet xlSheet = NothingEndEnd SubPrivate Sub Form_Load()Set xlApp = CreateObject(Excel.Application) 创建 EXCEL 对象Set xlBook = xlApp.Workbooks.Open(App.Path & 合金 JDE 代码 .xls) xlApp.Visible = FalseSet xlSheet = xlBook.Works
21、heets( 确认信息 )End SubPrivate Sub TexDm_DblClick()TexDm.Text = End SubCase 缺边掉角 xlsheet.Cells(i,xlsheet.Cells(i,xlsheet.Cells(i,P).ValueQ).ValueR).ValueCase 变形 xlsheet.Cells(i,S).Valuexlsheet.Cells(i,T).Valuexlsheet.Cells(i,U).ValueCase 表面鼓泡xlsheet.Cells(i,V).Valuexlsheet.Cells(i,W).Valuexlsheet.Cells
22、(i,X).ValueCase 尺寸超差IIxlsheet.Cells(i,Y).Valuexlsheet.Cells(i,Z).Valuexlsheet.Cells(i,AA).ValueSelect Case ComFgYy1.Textend select= Trim(TexFg1P.Text)= Trim(TexFg1Kg.Text)= Trim(TexFgQk1.Text)= Trim(TexFg1P.Text)= Trim(TexFg1Kg.Text)= Trim(TexFgQk1.Text)= Trim(TexFg1P.Text)= Trim(TexFg1Kg.Text)= Tri
23、m(TexFgQk1.Text)= Trim(TexFg1P.Text)= Trim(TexFg1Kg.Text)= Trim(TexFgQk1.Text) 添加子程序的时候，要在括号里面声明要从主程序引用的变量和对象Public Sub FangGuo(ByVal i As Integer, ByVal xlapp As Excel.Applicatio n, ByVal xlbook As Excel.Workbook, ByVal xlsheet As Excel.Worksheet)向下为放过区域Debug.Print i 即显信息放过 1Seiect Case ComFgYy1.Te
24、xtCase 缺边掉角 xisheet.Ceiis(i, xisheet.Ceiis(i, xisheet.Ceiis(i,P).VaiueQ).VaiueR).Vaiue= Trim(TexFg1P.Text)= Trim(TexFg1Kg.Text)= Trim(TexFgQk1.Text)Case 变形 xisheet.Ceiis(i, xisheet.Ceiis(i, xisheet.Ceiis(i, end seiectS).VaiueT).VaiueU).Vaiue= Trim(TexFg1P.Text)= Trim(TexFg1Kg.Text)= Trim(TexFgQk1.Te
25、xt)End Sub点击窗口右上角的关闭 是 一unioad或 一QueryUnioad事件子程序改变来自主程序的变量的值：Private Sub Com1_Ciick()dim CfZ as integerQrCf CfZIf CfZ = 1 ThenMsgBox (放过原因或报废原因有重复！ & vbCrLf & 请查看红色标识)End If end subPubiic Sub QrCf(Cf As Integer) Seiect Case ComFgYy1.Text Case ComFgYy2.Text If ComFgYy1.Text ComFgYy1.BackCoior ComFgY
26、y2.BackCoior Cf = 1 End If end seiectend sub Then= &HFF& = &HFF&运行效果：如果 case 中 Cf=1 执行，则 CfZ 的值变为 1，并弹出消息框如何判断字符串为是否为数字判断表达式的运算结果是否为数字，返回 Boolean 值( True or False )。描述返回 Boolean 值指明表达式的值是否为数字。 语法IsNumeric(expression)expression 参数可以是任意表达式。说明如果整个 expression 被识别为数字， IsNumeric 函数返回 True ；否则函数返 回 False 。
27、 如果 expression 是日期表达式，IsNumeric 函数返回 False 。下面的示例利用 IsNumeric 函数决定变量是否 可以作为数值 :Dim MyVar, MyCheckMyVar = 53 赋值。MyCheck = IsNumeric(MyVar) 返回 True 。MyVar = 459.95 赋值。MyCheck = IsNumeric(MyVar) 返回 True 。MyVar = 45 Help 赋值。MyCheck = IsNumeric(MyVar) 返回 False 。在 frmlogin 中设置用户及密码检查功能Dim LogIn As Boolean
28、Select Case ComUserName.TextCase 测试 If txtPassword.Text = ThentxtUserName.Text = 测试 LogIn = TrueElseLogIn = FalseEnd IfCase 魏敏 If txtPassword.Text = wm Then txtUserName.Text = 魏敏 LogIn = TrueElseLogIn = FalseEnd IfCase 黄选华 If txtPassword.Text txtUserName.Text LogIn = True ElseLogIn = FalseEnd If= hx
29、h Then= 黄选华 Case 胡丽萍 If txtPassword.Text txtUserName.Text LogIn = True ElseLogIn = FalseEnd If= hlp Then= 胡丽萍 Case 张岚 If txtPassword.Text txtUserName.Text LogIn = TrueElseLogIn = FalseEnd If= zl Then= 张岚 Case 冯现萍 If txtPassword.Text txtUserName.Text LogIn = True ElseLogIn = FalseEnd If= fxp Then= 冯现
30、萍 Case 陶学群 If txtPassword.Text txtUserName.Text LogIn = TrueElseLogIn = FalseEnd If= txq Then= 陶学群 Case 陶明艳 If txtPassword.Text txtUserName.Text= tmy Then= 陶明艳 LogIn = TrueElseLogIn = FalseEnd IfEnd Select将一个文件复制到另外一个目录，并改变名字Dim xlFile, xlFileCopy As StringxlFile = App.Path & 合金厂产品质检明细表 .xlsxlFileCop
