DavisPing

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