Excel 如何编辑宏公式中的某些变量

问题是：

我想用其他号码自动更改191023，例如191024 另外一个数字来自单元格，例如A1 因此，191042的值可以根据用户的不同进行更改。

尝试以下操作：

Sub Import_B1S()
Sheets("B1S").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;E:\DANDY\FBI\ATM\Prima\ATM\1.Transaksi\Data Mentah\**191023**RPT\191023B1S-RAW.txt", Destination:=Range("$A$1") _
        )
        .Name = "B1S"
        .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 = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Sub Import_Approved（）Dim sNumber作为字符串sNumber=CStr（Sheets（“EKSEKUSI”）.Range（“F2”）.Value）Sheets（“B1”）。使用ActiveSheet.QueryTables.Add进行选择（连接：=”TEXT；E:\DANDY\FBI\ATM\Prima\ATM\1.Transaksi\Data Mentah\&sNumber&RPT\&sNumber&B1-RAW.txt），目的地：=范围（$A$1）当我输入代码时，第行出现vba错误。刷新背景查询：=False

    Dim sNumber as String
        sNumber = CStr(Sheets(2).Range("A1").Value)  ' declare yourown address

    With ActiveSheet.QueryTables.Add(Connection:= _
            "TEXT;E:\DANDY\FBI\ATM\Prima\ATM\1.Transaksi\Data Mentah\**" & sNumber & "**RP\" & sNumber & "B1S-RAW.txt", Destination:=Range("$A$1") _
            )
            ' rest of code