日: 2017年12月14日

Visual Basic for Application

テスト作業を効率化しようということで，テスト結果の評価に使うExcelシートを改良しました．特定の列の表示／非表示を切り替えたり，指定したフォルダ内の複数のテキストファイルの内容をシートへ貼り付けたりするのはExcelだけでは実現できないので，VBAを組みました．最近はC，Java，Action Scriptばかり触っているので，Visual Basicは久しぶりです．しかも，.NET化する前の文法，18年ほど前の学生時代に趣味でよく書いていたものです．

Private Function Load(ByVal fileName As String) As String
On Error GoTo ErrTrap
    Dim file As Integer
    Dim s As String

    file = FreeFile()
    Open fileName for Input #file
    Line Input #file, s
    Close #file
    Load = s
    Exit Function

ErrTrap:
    Load = ""
End Function

全てが懐かしいです．そして意外と全てをスラスラ書くことができました．すっかり沁み込んでいたようです．