Excel Addin problem

[whgordon44]

Using Excel 2021 In Windows 11 the following subroutine does not work when any of the three Addin lines are uncommented. (It worked using Excel 2019 in Windows 10).

Private Sub workbook_open()

    'AddIns("Analysis ToolPak").Installed = True
    'AddIns("Analysis TbutoolPak - VBA").Installed = True
    'AddIns("Solver Add-in").Installed = True

    GetData
   
End Sub

Sub GetData()

    Mypath = ActiveWorkbook.Path
   
    With ActiveSheet.QueryTables.Add(Connection:= _
       "TEXT;" & Mypath & "\daps4out.txt" _
        , Destination:=Range("A1"))
        .Name = "daps4out_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 8
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
   
End Sub

 

[Peter_SSs]

When posting vba code in the forum, please use the available code tags. It makes your code much easier to read/debug. My signature block below has more details. I have added the tags for you this time.

 

[whgordon44]

Thank you.

 

[whgordon44]

I have fixed my problem. I don't understand how but Excel was attempting to install one of my input files as an addin. I removed it from the addin list. Apparently, this extraneous was corrupting my VBA code.