inputbox ile veri alıp dosya yolu olarak kullanmak.

[a_self_lion]

Selam arkadaşlar aşağıda yapmak istediğim inputbox ile stok programcımız tarafından c kök dizininde bulunan fatura dizininin içine fişnumaralarının isim olarak koyarak txt şeklinde atıyor. Benim yapmak istediğim ise inputbox ile bu fiş numarasını yazarak aşağıdaki kodların otomatik bir şekilde çalışmasını sağlamak.

hucre = ActiveCell.Address

deger = InputBox("Lütfen Fiş Numarasını Doğru bir Şekilde giriniz.")

With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\fatura\(deger)&.TXT", _
Destination:=Range(hucre))
.Name = "TESFAT"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 857
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(31, 4, 15, 31)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

 

[Recep İpek]

With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\fatura\(deger)&.TXT", _

satırını

With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\fatura\" & deger & ".TXT", _

olarak değiştirin.

 

[a_self_lion]

Çok teşekkür ederim

Bir sorum daha olucak kullanınca çıkıyor hatalar. Diyelim ki bu deger değişkenine atadığımız değer 70130 olsun ve excel fatura dizininde 70130.txt dosyası arıyor ve bulursa çalışıyor bulamazsa hata veriyor. Bu hatayı önlemek için nasıl bir kontrol koyabilirim.

 

[Recep İpek]

Kodlarınızı aşağıdaki şekilde değiştiriniz.

Sub TXTAktar()
hucre = ActiveCell.Address
deger = InputBox("Lütfen Fiş Numarasını Doğru bir Şekilde giriniz.", "UYARI", "70130")
kontrol = "C:\fatura\" & deger & ".TXT"
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(kontrol) = False Then
MsgBox "Aradığınız Dosya Bulunmadı."
Exit Sub
Else
dosya = "TEXT;" & kontrol
With ActiveSheet.QueryTables.Add(Connection:=dosya, Destination:=Range(hucre))
.Name = "TESFAT"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 857
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(31, 4, 15, 31)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End If
Set FSO = Nothing
End Sub

 

[a_self_lion]

Çok teşekkür ederim. Elinize sağlık çok işime yaradı.

 

[a_self_lion]

Sayın ripek bu işlemi ben Paylaştırılmış bir çalşıma kitabında kullanıcaktım Dış veri al iptal olduğu için kullanamadım. Acaba bu işlemi yani txt den veri alma işlemini dış veri al haricinde bir şekilde yapabilirmiyim.

 

[Recep İpek]

Aşağıdaki linkte buna benzer bir konu var.

Kendinize göre uyarlayabilirsiniz.

http://www.dailydoseofexcel.com/archives/2005/02/08/import-text-in-vba/

 

[a_self_lion]

Çok özür diliyorum sizden benim yeteri kadar ingilizcem yok ve onu kendi çalışmama uyarlamaya çalıştım baktım ama anlayamadım. Yardımcı olursanız çok sevineceğim.
Benim için Çok önemli bir çalışma çünkü.