text シートに入力されている设定値を连想配列に

Posted 2021-05-02

'configシートから設定値取得
    With ThisWorkbook.Worksheets("config")

        Set configDatas = CreateObject("Scripting.Dictionary")

        For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row

            If .Cells(i, 1) = "" Then

            ElseIf .Cells(i, 2) = "" Then

                'Call outputLog("CAUTION", "configデータに値が入力されていないセルがあります")

            Else

                configDatas(.Cells(i, 1).Value) = .Cells(i, 2).Value

            End If

        Next

    End With