摘要:
当前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 阅读全文