VB宏基本案例(5)

Sub openFile()
    Dim codeStr, strT As String
   
    Sheets("tempcode").Select
    Open "C:\CG02B_CHINA\source\RB-v0101-China\application\src\app\UIManager\GUIData\NormalCodeTable.h" For Input As #1
    i = 2
    Do While Not EOF(1)
        Line Input #1, strT
        Sheets("tempcode").Range("A" & i).Value = strT
        strT = ""
        i = i + 1
    Loop
    Close #1
        Sheets("ﾋｵﾃ・).Select
End Sub