Динамический поиск пути в импорте Excel

Question

У меня есть фрагмент кода VB, который динамически находит мой текущий путь к файлу в Excel. Теперь я хочу использовать его при импорте текста из текстового файла, но не могу понять, как его кодировать.

Вот мой код для получения текущего пути:

Function GetCurDir()
Dim str As String
Dim pos As Integer
str = ActiveWorkbook.FullName
pos = InStrRev(str, "\")
str = Mid(str, 1, pos)
GetCurDir = str
End Function

Вот как я использую его при записи в файл:

MyFile = GetCurDir & "\Data\MaterialBalance\Ngasdata.dat"

Здесь я также хотел бы использовать его:

With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;C:\NGasSim\Data\MaterialBalance\NGASPROD.DAT", Destination:=Range( _
    "$G$4"))

Как видите, это статический путь .. Может ли кто-нибудь помочь мне с правильным синтаксисом?

Answer 1

Просто создайте другую переменную для построения строки подключения:

MyFile = GetCurDir & "\Data\MaterialBalance\Ngasdata.dat"

MyConnection = "TEXT;" & MyFile 

With ActiveSheet.QueryTables.Add(Connection:= _
    MyConnection, Destination:=Range( _
    "$G$4"))