4、运行VB程序，点击EXCEL按钮可以打开EXCEL系统，打开EXCEL系统后，VB程序和EXCEL分别属两个不同的应用系统，均可同时进行操作， 由于系统加了判断，因此在VB程序中重复点击EXCEL按钮时会提示EXCEL已打开。如果在EXCEL中关闭EXCEL后再点EXCEL按钮，则会重新打开 EXCEL。而无论EXCEL打开与否，通过VB程序均可关闭EXCEL。这样就实现了VB与EXCEL的无缝连接。 ★JDE代码查询程序源代码 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim Dm As String Dim Sm As String Dim Dw As String Dim i As Integer
Dim SouS As Object
Private Sub ComCx_Click() 'i = 2
'Do While i <= 10000
'Dm = Trim(xlBook.Worksheets(\代码\\ 'If Dm = Trim(TexDm.Text) Then
'Sm = Trim(xlBook.Worksheets(\代码\\ 'Dw = Trim(xlBook.Worksheets(\代码\\ 'TexSm.Text = Sm & \\& \& Dw & \ 'GoTo 100 ' End If
'i = i + 1 'Loop
'TexSm.Text = \没有找到相匹配的信息！\
On Error GoTo 50
i = xlBook.Worksheets(\代码\If Not i = 0 Then
Dm = Trim(TexDm.Text)
Sm = Trim(xlBook.Worksheets(\代码\\Dw = Trim(xlBook.Worksheets(\代码\\TexSm.Text = Sm & \\& \& Dw & \ComQd.Visible = True
GoTo 100 End If
50
TexSm.Text = \没有找到相匹配的信息！\100
End Sub
Private Sub ComQc_Click()
TexDm.Text = \请在此输入10位数的代码\TexSm.Text = \Dm = \Sm = \Dw = \
ComQd.Visible = False End Sub
Private Sub ComQd_Click()
xlSheet.Cells(2, \= Dm xlSheet.Cells(2, \= Sm xlSheet.Cells(2, \= Dw xlBook.Save End Sub
Private Sub ComTc_Click() xlBook.Close (False) xlApp.Quit
Set xlApp = Nothing Set xlBook = Nothing Set xlSheet = Nothing End
End Sub
Private Sub Form_Load()
Set xlApp = CreateObject(\'创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(App.Path & \合金JDE代码.xls\xlApp.Visible = False
Set xlSheet = xlBook.Worksheets(\确认信息\
End Sub
Private Sub TexDm_DblClick() TexDm.Text = \End Sub
★ select case.... case ... end select 用法： Select Case ComFgYy1.Text
Case \缺边掉角\
xlsheet.Cells(i, \= Trim(TexFg1P.Text) xlsheet.Cells(i, \= Trim(TexFg1Kg.Text) xlsheet.Cells(i, \= Trim(TexFgQk1.Text)
Case \变形\
xlsheet.Cells(i, \= Trim(TexFg1P.Text) xlsheet.Cells(i, \= Trim(TexFg1Kg.Text) xlsheet.Cells(i, \= Trim(TexFgQk1.Text)
Case \表面鼓泡\
xlsheet.Cells(i, \= Trim(TexFg1P.Text) xlsheet.Cells(i, \= Trim(TexFg1Kg.Text) xlsheet.Cells(i, \= Trim(TexFgQk1.Text)
Case \尺寸超差\
xlsheet.Cells(i, \= Trim(TexFg1P.Text) xlsheet.Cells(i, \= Trim(TexFg1Kg.Text) xlsheet.Cells(i, \= Trim(TexFgQk1.Text) end select
★ 添加子程序的时候，要在括号里面声明要从主程序引用的变量和对象 Public Sub FangGuo(ByVal i As Integer, ByVal xlapp As Excel.Application, ByVal xlbook As Excel.Workbook, ByVal xlsheet As Excel.Worksheet) '——————————向下为放过区域——————————————————————
Debug.Print i '即显信息
'————放过1—————— Select Case ComFgYy1.Text
Case \缺边掉角\
xlsheet.Cells(i, \= Trim(TexFg1P.Text) xlsheet.Cells(i, \= Trim(TexFg1Kg.Text) xlsheet.Cells(i, \= Trim(TexFgQk1.Text)
Case \变形\
xlsheet.Cells(i, \= Trim(TexFg1P.Text) xlsheet.Cells(i, \= Trim(TexFg1Kg.Text) xlsheet.Cells(i, \= Trim(TexFgQk1.Text) end select End Sub
★点击窗口右上角的关闭 是 “unload” 或 “QueryUnload”事件
★子程序改变来自主程序的变量的值： Private Sub Com1_Click() dim CfZ as integer QrCf CfZ
If CfZ = 1 Then
MsgBox (\放过原因或报废原因有重复！\& vbCrLf & \请查看红色标识......\
End If end sub
Public Sub QrCf(Cf As Integer) Select Case ComFgYy1.Text Case ComFgYy2.Text
If ComFgYy1.Text <> \Then ComFgYy1.BackColor = &HFF& ComFgYy2.BackColor = &HFF& Cf = 1 End If end select end sub
运行效果：如果case中Cf=1执行，则CfZ的值变为1，并弹出消息框
★如何判断字符串为是否为数字
判断表达式的运算结果是否为数字，返回 Boolean 值（True or False）。 描述
返回 Boolean 值指明表达式的值是否为数字。 语法
IsNumeric(expression)
expression 参数可以是任意表达式。
说明
如果整个 expression 被识别为数字，IsNumeric 函数返回 True；否则函数返回 False。 如果 expression 是日期表达式
，IsNumeric 函数返回 False。下面的示例利用 IsNumeric 函数决定变量是否可以作为数值:
Dim MyVar, MyCheck
MyVar = 53 '赋值。
MyCheck = IsNumeric(MyVar) ' 返回 True。 MyVar = \' 赋值。
MyCheck = IsNumeric(MyVar) ' 返回True。 MyVar = \Help\' 赋值。
MyCheck = IsNumeric(MyVar) ' 返回 False。
★在frmlogin中设置用户及密码检查功能 Dim LogIn As Boolean
Select Case ComUserName.Text Case \测试\
If txtPassword.Text = \Then txtUserName.Text = \测试\ LogIn = True Else
LogIn = False End If
Case \魏敏\
If txtPassword.Text = \Then txtUserName.Text = \魏敏\ LogIn = True Else
LogIn = False End If
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB打开EXCEL的方法解析(2)在线全文阅读。
相关推荐：