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

页面导航:首页 > 软件编程 > vb.net > 用EXCEL组件简化VB编程的一种方法

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

来源: 作者: 时间:2016-02-05 12:32 【

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

 

 

   具体使用编辑器步骤如下:进入EXCEL后,用鼠标点击菜单栏中的工具按钮,选择,再选择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").Val

Tags:

相关文章

    文章评论

    
    <