该文被密码保护。

摘要：当前sheet中定义一个数组：Dim DataSource() As String判断动态数组是否初始化：Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long使用：If SafeArrayGetDim(SelectedItems) 0 ThenExcel初始化时执行函数：Private Sub Workbook_Open()链接数据库读取数据：Dim conn As New ADODB.Connection Dim rs As New ADOD 阅读全文

摘要：需求：A1中放一个Dropdownlist，B1放一个button，点击button后从数据库读取数据绑定到Dropdownlist，选择任一item后，再去数据库读取对应内容展示出来Sub btnList_Click() ActiveSheet.Range("5:65536").ClearContents Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim cmd As New ADODB.Command Dim sqlText As String Dim Row A... 阅读全文