プログラミングツールがないパソコン

Excel VBAを始めよう

VBAを記述しよう

Sub 読み込み()



    Dim iFree, nRow As Integer

    Dim xFullPath As String

    Dim xSql As String



    Const CNST_Title As String = "読み込み"



    '' 読み込むファイル名の指定

    xFullPath = InputBox("読み込むファイルを入力してください。", CNST_Title)



    '' キャンセルなら終了

    If xFullPath = "" Then

        Exit Sub

    End If

    '' 引用符を取り除く

    If Left(xFullPath, 1) = """" Then

        xFullPath = Mid(xFullPath, 2)

    End If

    If Left(StrReverse(xFullPath), 1) = """" Then

        xFullPath = StrReverse(Mid(StrReverse(xFullPath), 2))

    End If



    '' 読み込むファイルを開く

    iFree = FreeFile

    Open xFullPath For Input As #iFree



    '' 書き出し行の初期化

    nRow = 0



    Do Until EOF(iFree)

        Line Input #iFree, xSql

        If Not Trim(xSql) = "" Then

            If InStr(xSql, "UPDATE") > 0 And InStr(xSql, "BIKO") Then

                '' 書き出し行のインクリメント

                nRow = nRow + 1

                '' 書き出す

                Range("A" & CStr(nRow)).Value = Left(xSql, Len("yyyy-MM-dd HH:mm:ss"))

                Range("B" & CStr(nRow)).Value = Mid(xSql, Len("yyyy-MM-dd HH:mm:ss") + 1)

            End If

        End If

    Loop



    '' 読み込みファイルを閉じる

    Close #iFree



    '' 処理完了メッセージ

    MsgBox "処理が終了しました。", vbOKOnly + vbInformation, CNST_Title



End Sub

ソースについて

最後に