從零開始學習VBA（日記）

最近項目中經常遇到批量修改文檔的情況，故嘗試開始學習VBA

Sub documentsSet()
'    On Error GoTo Error
    Dim MyFile As String
    Dim Arr(1000) As String
    Dim count As Integer
    ERRORCOUNT = 0
    MyFile = Dir("C:\Users\liuhl\Desktop\新しいフォルダー\" & "*.xls")    '批量修改文件所存在的文件夾地址
    count = count + 1
    Arr(count) = MyFile

    Do While MyFile <> ""
        MyFile = Dir
        If MyFile = "" Then
            Exit Do
        End If
        count = count + 1
        Arr(count) = MyFile         '將文件的名字存在數組中
    Loop
    For I = 99 To 150
        Workbooks.Open Filename:="C:\Users\liuhl\Desktop\新しいフォルダー\" & Arr(I)  '循環打開Excel文件
        Sheets("畫面項目").Select
        For J = 12 To Sheets("畫面項目").Range("A170").End(xlUp).Row
           If Trim(Sheets("畫面項目").Cells(J, 1)) = "特記" Then  '將特定值以上的所有行目選中
              lineCount = J - 1
              Range("AD12:BG" & lineCount).Select
              With Selection.Font                       '更改字體
                .Name = "MS UI Gothic"
                .Size = 10
                .Strikethrough = False
                .Superscript = False
                .Subscript = False
                .OutlineFont = False
                .Shadow = False
                .Underline = xlUnderlineStyleNone
                .ThemeColor = xlThemeColorLight1
                .TintAndShade = 0
                .ThemeFont = xlThemeFontNone
              End With
              Range("A1:D1").Select
              Sheets("レビュー指摘一覧").Select
              ActiveWindow.Zoom = 70
              Range("A1").Select
           End If
        Next J
        ActiveWorkbook.Close savechanges:=True        '保存打開的文件

    Next
'Error:
'    Windows("新規 Microsoft Office Excel ワークシート.xlsx").Activate
'    Sheets("Sheet2").Select
'    Sheets("Sheet2").Cells(1 + 1, 1) = "誤りフェーイル：" & ERRORCOUNT
End Sub