VBA 到 Excel 条件格式

Question

如何使这项工作？ 我已经尝试通过从谷歌收集的方式引用工作表/范围/列来访问导出的 excel，但仍然没有任何效果。 我究竟做错了什么？

    Dim xl As Object
    Dim xlWB As Object
    Dim xlSheet As Object
    Dim baseLocation As String
    Const xlMaximized As Long = -4137

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Report_Query", baseLocation, True

    Set xl = CreateObject("Excel.Application")
    Set xlWB = xl.Workbooks.Open(baseLocation)
    Set xlSheet = xlWB.Worksheets(1)

    xlSheet.Name = tableName
    xlSheet.Columns("A:" & MyModule.outColLetterFromNumber(fSize + 2)).AutoFit


    With xl
        .Rows("2:2").Select
        .ActiveWindow.FreezePanes = True
        .Rows("1:1").Font.Bold = True
        .Rows("1:1").Interior.ColorIndex = 6
        .Rows("1:1").Select
    End With

    With xlSheet
        With .Columns("A:A")
             .FormatConditions.Add Type:=xlExpression, Formula1:="=LEN(TRIM(A1))=0" '//Runtime Error 5 - Invalid Call or Procedure
             .FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
                    With .FormatConditions(1).Interior
                        .PatternColorIndex = xlAutomatic
                        .ThemeColor = xlThemeColorAccent6
                        .TintAndShade = 0.399945066682943
                    End With
             .FormatConditions(1).StopIfTrue = False
        End With
    End With

    xl.DisplayAlerts = False
    xlWB.Save
    xl.DisplayAlerts = True
    xl.Visible = True
    xl.DisplayFullScreen = False
    xl.WindowState = xlMaximized

    Set xl = Nothing
    Set xlWB = Nothing
    Set xlSheet = Nothing