Excel 怎么用VBA向列表框中添加一行数据源

加法如下：

With DinnerComboBox

.AddItem "意大利"

.AddItem "发过"

.AddItem "克罗地亚"

End With

Private Sub CommandButton1_Click()

Dim x

For x = 1 To 2

ListBox1.AddItem x

Next x

End Sub

Private Sub CommandButton2_Click()

Dim Y

For Y = 0 To 1

If ListBox1.Selected(Y) = True Then ' '判断是否选中

'ListBox1.RemoveItem (Y) '判断是否选中，如果是就移出它

'ListBox1.List(Y) = "" '这句相当于在删出的地方增加了一行；

ListBox1.AddItem "123", Y  '选中的地方加一行，输入值为123.

End If

Next Y

End Sub

1、删除选中记录可以用Selected语句判断；

2、选中处插入一行可以用  ListBox1.AddItem "123", Y

Access是微软Office组件的数据库软件，使用它可以进行简单的数据库软件的开发。但Access的图表功能和数据分析功能不如Excel强大，常用的做法可以将Access中的数据导入Excel中再进行处理。

代码利用ADO组件可以方便地对各种数据进行连接和访问。ADO组件中的Connection对象可以实现对数据库的连接，并可以快速实现SQL语句的执行，然后再用VBA将SQL查询的结果输出到Excel表格中。

打开VBE窗口，选择菜单“工具”一“引用”，勾选MicrosoftActiveXDataObjects2.8Library，并单击“确定”按钮。

利用ADO连接数据库ADO的全称是ActiveXDataObject，是一个用于存取数据源的COM组件，用以快速实现各种数据库的连接、读取、写入。在ADO组件中有一个Connection对象，利用Connection对象的Open方法可以实现数据库的连接。

---