如何在VBA中编码以Excel用户形式在表中显示SQL查询

时间:2019-04-17 20:55:41

标签: sql excel vba

我正在建立一个excel用户窗体,该窗体可以访问SQL数据库,并使用来自SQL查询的摘要数据填充用户窗体上的表。

我已经在Excel中创建了用户表单。该用户窗体由两个组合框和一个命令按钮组成。我需要能够从一个组合框和单位中选择年份,即从另一个组合框中选择年份(13A),然后单击命令按钮(“处理结果”),让它查询SQL数据库并用总数,成功百分比等填充表格。

“命令按钮”

Private Sub ProcessResults_Click()

Dim Year = 
Dim Unit =

“组合框

Private Sub Userform_Initialize()

Dim N AS Long, i AS Long
 With Sheets("LookUpLists")
     N = .Cells(Rows.Count, 1) .End(x1Up).Row
     O = .Cells(Rows.Count, 1) .End(x1Up).Row
 End With

 With Year
      .Clear
      For i = 1 to N
             .Additem Sheets("LookUpLists").Cells(i+1, 1).Value
      Next i
 End With

 With Unit
      .Clear
      For i = 1 to O
             .Additem Sheets("LookUpLists").Cells(i+1, 2).Value
      Next i
 End With

我的预期结果如下

从组合框中进行选择=>单击处理结果=>执行SQL查询=>在excel中创建标签以保存查询数据=>将数据存入标签=>分析数据=>将变量分配给我要在用户窗体中显示的指标= >以用户形式在表中显示结果=>删除创建的标签

0 个答案:

没有答案