Изменение пути к внешнему источнику данных сводной таблицы с помощью макроса Excel

Я работаю над проектом в MS Excel, где у меня есть несколько сводных таблиц, которые считывают данные из текстового файла с разделителями табуляции с именами столбцов в первой строке (в том же каталоге, что и файл Excel) с помощью текстового драйвера Microsoft. Я столкнулся с проблемой, когда, когда я копирую текстовые файлы и файлы Excel в новый каталог и пытаюсь обновить данные, он говорит, что не может найти текстовые файлы. К сожалению, похоже, нет способа сообщить Excel, что я хочу, чтобы пути к текстовым файлам были относительными, а не абсолютными. Все сводные таблицы используют одно и то же подключение к данным, поэтому я решил, что не должно быть слишком сложно написать макрос, который будет обновлять подключение к данным, чтобы ссылаться на правильный текстовый файл, и иметь кнопку, связанную с макросом, который будет обновлять пути к файлам и обновить данные для меня.

Я не слишком хорошо знаком с VBA, и онлайн-документация кажется довольно плохой, поэтому я не смог заставить это работать - я могу создать правильный путь к файлу и могу обновить данные, но я не был смог выяснить, как обновить соединение, чтобы использовать новый путь к файлу, но сохранить все свои старые настройки импорта/анализа файлов. Я также пытался записать макрос при ручном обновлении источника данных, но по какой-то причине это всегда дает мне ошибки, которые прерывают запись, так что это не помогло.

Ниже приведена строка подключения и текст команды, используемые в настоящее время подключением, но нет ничего о том, как анализировать/импортировать данные (файл с разделителями табуляции или с заголовками в первом столбце и т. д.), поэтому я не уверен как убедиться, что соединение сохраняет эти данные.

Строка подключения:

DefaultDir=C:/directoryPath;Driver={Microsoft Text Driver (*.txt; *.csv)};
  DriverId=27;FIL=text;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;
  SafeTransactions=0;Threads=3;UserCommitSync=Yes;

Текст команды:

SELECT *
FROM tableName.txt tableName

Если кто-нибудь знает, как написать макрос, который будет обновлять путь в соединении с текстовым файлом, поделитесь кодом, или если вы знаете, как просто сделать путь относительным, это тоже было бы здорово. Любая помощь будет принята с благодарностью!

ИЗМЕНИТЬ:

Я немного повозился с этим, и мне удалось изменить строки подключения, чтобы использовать новый путь. Однако, когда я обновляю сводную таблицу, она импортирует все данные в виде текста вместо того, чтобы угадывать, должны ли они быть числовыми и т. д. (хотя, по крайней мере, она получает заголовки столбцов из первой строки текстового файла). Любые идеи о том, как сказать ему угадывать типы данных (или просто сохранить старые типы данных)? Код, который я использую прямо сейчас:

Public Sub Test()
    Dim wb As Excel.Workbook
    Dim pc As PivotCache
    Dim path As String

    Set wb = ActiveWorkbook
    path = wb.path

    For Each pc In wb.PivotCaches
        'Debug.Print pc.Connection
        pc.Connection = "ODBC;DBQ=" & path & ";DefaultDir=" & path & ";Driver={Microsoft Text Driver (*.txt; *.csv)};DriverId=27;FIL=text;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes"

    Next
End Sub