txt dosyası açma

[zulfuernek]

Dim fd As FileDialog, ret As Long, sFile

Set fd = Application.FileDialog(msoFileDialogFilePicker)

' Açılışta geçerli dizin.
fd.InitialFileName = CreateObject("wscript.shell").specialfolders("desktop")

' Çoklu seçim geçerli
fd.AllowMultiSelect = False

' Pencere başlığına verilecek isim.
fd.Title = "::.. Zülfü Ernek ..::"

' Sonraki çağırım için filitreyi temizle
fd.Filters.Clear

' Filitreleri ekle
fd.Filters.Add "Excel dosyaları(*.xls; *.xlsx; *.xlsm)", "*.xls; *.xlsx; *.xlsm", 1
fd.Filters.Add "Tüm dosyalar(*.*)", "*.*", 2

' Varsayılan filitre
fd.FilterIndex = 1

' Diyaloğu aç.
ret = fd.Show

' İptal tuşuna basılırsa.
If Not ret = -1 Then Exit Sub

If fd.SelectedItems.Count > 1 Then
For Each vFile In fd.SelectedItems
Workbooks.Open vFile
Next
Else
Workbooks.Open fd.SelectedItems(1)
End If




yukarıdaki kodla butona tıklayınca seçmeli dosya açabiliyorum ancak şöyle bir sorun var. txt dosyasını açtığımda düz metin olarak açıyor

aşağıdaki kolar ise txt yi istediğim sütunlara ayırıyor ancak sabit masaüstü yolu ve sabit bir txt için geçerli.

Workbooks.OpenText Filename:="C:\Users\Elazığ\Desktop\BCH.TXT", Origin:= _
1254, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(6, 9), Array(8, 1), Array(22, 1), Array(30, 9), Array(37, 1), Array(41, 9), Array(86, _
1), Array(96, 1), Array(117, 9)), TrailingMinusNumbers:=True

ilk verdiğim kodda bu koddaki sütunları ayırmada kullanılan array döngüsünü nasıl ekleyebilirim. amacım istediğim bir txt yi seçebilmek gerekli sütun ölçülerine ayırmak