Как редактировать некоторые переменные в формуле макроса

Question

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

Вопрос:

Я хочу автоматически поменять 191023 на другой номер, например 191024 и этот другой номер, который он получает из ячеек, пример листов A1, поэтому значение 191042 может меняться в зависимости от пользователя.

Answer 1

Попробуйте это:

    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