Some skilled used in Excel Handling~

Private Sub LoadDataTypeField()

    'Set DB connection to MGISDBSRV

    Dim DBcfg As DBconfig

    Dim strSQL As String

    Dim iRowscount, iTableRowCount, iTotalCount, iArrayCount As Integer

    Dim i, j As Integer

    Dim cm, cf, cB, cI As String 'cm is Cell Datatype "G" , cf is Cell FieldName "E", cb is the Cell Table Name "B"

                                ' cI is cell isNull type "I"

    

    With DBcfg

        .strPassword = txtPwd.Text

        .strServerName = txtServerName.Text

        .strUserName = txtPwd.Text

        .strSDEInstance = "sde_gisdbw"

        .strSIDName = txtSID.Text

        .strSDEOwner = txtSDEOwner.Text

    End With

    Set mobjConn = New ADODB.Connection

    mstrConn = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;Data Source=" & DBcfg.strSIDName & ";User ID =" & DBcfg.strUserName & ";Password=" & DBcfg.strPassword

    mobjConn.Open mstrConn

    'iRowsCount = Sheet1.Cells(Sheet1.Rows.Count, "G").End(xlUp).Row

    iRowscount = ActiveSheet.UsedRange.Rows.Count

    iTotalCount = 1

    ProgressBar1.Visible = True

    ProgressBar1.Max = TB_COUNT

    

    Set objRs = New ADODB.Recordset

    For i = 1 To TB_COUNT

        strSQL = "select * from user_tab_columns where table_name='" & Trim(TBNameList(i)) & "'"

        objRs.Open strSQL, mobjConn, adOpenStatic, adLockOptimistic

        iTableRowCount = objRs.RecordCount

        If iTableRowCount <> 0 Then

            'if the Table has field , then record them

            

'            cB = "B" & Trim(Str(iTotalCount))   'Table Name

'            Range(cB).Select

'            ActiveCell.FormulaR1C1 = TBNameList(i)

            

            objRs.MoveFirst

            Debug.Print "Field counts of " & TBNameList(i) & "are: " & Str(iTableRowCount)

            ReDim DataTypeList(1 To TB_COUNT, 1 To iTableRowCount)

            

            For j = 1 To iTableRowCount 'Start Inner Loop

                cm = "G" & Trim(Str(iTotalCount))   'Data Type and data length

                cf = "E" & Trim(Str(iTotalCount))   'Field Name

                cB = "B" & Trim(Str(iTotalCount))   'Table Name

                cI = "I" & Trim(Str(iTotalCount))   'Table Name

                

                DataTypeList(i, j).TableName = TBNameList(i)

                If objRs.Fields("DATA_TYPE").Value = "NUMBER" Then ' Only number type has data scale

                    'if the data Precision is null,then replace it with zero

                    If IsNull(objRs.Fields("DATA_PRECISION").Value) = True Then

                        DataTypeList(i, j).XLSDataTypeColumn = objRs.Fields("DATA_TYPE").Value _

                        & "(" & objRs.Fields("DATA_LENGTH").Value & "," & "0" & ")"

                        DataTypeList(i, j).FieldName = objRs.Fields("COLUMN_NAME").Value

                        DataTypeList(i, j).IsNullField = objRs.Fields("NULLABLE").Value

                    'if the data precision is not null, then replace it with DATA_TYPE+DATA_PRECISION

                    Else

                        DataTypeList(i, j).XLSDataTypeColumn = objRs.Fields("DATA_TYPE").Value _

                        & "(" & objRs.Fields("DATA_LENGTH").Value & "," & objRs.Fields("DATA_PRECISION").Value & ")"

                        DataTypeList(i, j).FieldName = objRs.Fields("COLUMN_NAME").Value

                        DataTypeList(i, j).IsNullField = objRs.Fields("NULLABLE").Value

                    End If

                Else ' if the data type is not number, no data precision needed

                    DataTypeList(i, j).XLSDataTypeColumn = objRs.Fields("DATA_TYPE").Value _

                        & "(" & objRs.Fields("DATA_LENGTH").Value & ")"

                    DataTypeList(i, j).FieldName = objRs.Fields("COLUMN_NAME").Value

                    DataTypeList(i, j).IsNullField = objRs.Fields("NULLABLE").Value

                End If

                Range(cB).Select

                ActiveCell.FormulaR1C1 = DataTypeList(i, j).TableName

                Range(cm).Select

                ActiveCell.FormulaR1C1 = DataTypeList(i, j).XLSDataTypeColumn

                Range(cf).Select

                ActiveCell.FormulaR1C1 = DataTypeList(i, j).FieldName

                Range(cI).Select

                ActiveCell.FormulaR1C1 = DataTypeList(i, j).IsNullField

                objRs.MoveNext

                iTotalCount = iTotalCount + 1

                Debug.Print DataTypeList(i, j).TableName & "*" & DataTypeList(i, j).FieldName & "*" & DataTypeList(i, j).XLSDataTypeColumn

            Next    'End Inner Loop

            objRs.Close

        Else

            'if the Table has no fields, then redim the Array to DataTypeList(1 to 440,1 to 1)

            'and set the XLSDataTypeColumn to empty

            ReDim DataTypeList(1 To TB_COUNT, 1 To 1)

            DataTypeList(i, 1).XLSDataTypeColumn = ""

            objRs.Close

        End If

        ProgressBar1.Value = i

    Next

    ProgressBar1.Visible = False

    Set objRs = Nothing

    Set mobjConn = Nothing

End Sub