Excel-Makro ile textten data çekmek

[HalilCan_]

Herkese merhaba,

Şöyle bir sorum olacak. Makro kayıt tuşuna bastıktan sonra ust kısımdan Data \ From text dıyıp browse kısmından bir data seçiyorum.sonra bu datayı sectkten sonrası sorumla pek ılgılı degıl.O yuzden gecıyorm o kısmı.
Sorum şu: browse dıyıp bulduğum,yani dolaylı olarak uzantısını sectıgm belgeyi browse dan degl de bir textbox tan almak istiyorum. Netıcede bır makro halıne getrmek ıstıyorm.
Özetle: ben makroyu calıştırdığımda, textboxa girdiğim hedefi kopyalasın.sonra data\from text e bassın ve kopyaladıgı hedefi yapıstırıp datayı o hedeften ceksin.
*Ektra: hatta ve hatta bunu bir butona atasam , butona tıkladığımda browse penceresı acsa bana ben de oradan konumunu secsem.oradan verıyı cekse tadından yenmez..

Not: amacım sadece verıyı cekmek degıl.Sadece takıldığım nokta burasıydı.O yüzden her detayı yazmadım.

Herkese iyi forumlar dilerim.
Selamlarımla,
Can

 

[Mehmet Şahin]

Merhaba,
bu gibi taleplerde örnek xls ve txt dosyası olmalı ve tam olarak hangi datanın, hangi biçimde alınması gerektiği belirtilmeli ki yardım edilebilsin. İyi çalışmalar.

 

[HalilCan_]

Merhaba,

Teşekkür ederim uyarınız için.

Mesaj ekine dosyaları ekledim.

Çok kısaca bir daha özetleyeyim. Excel'de bir makro kaydettim. Excel içerisinden de görebilirsiniz ortaya çıkan kodu ancak ben buraya da yazayım.

Sub Veri_alma()
'
' Veri_alma Makro
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\Halil Can\Desktop\frekans.txt", Destination:=Range("$A$1"))
.Name = "frekans"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1251
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Columns("A:B").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Sayfa1'!$A:$B")
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.Location Where:=xlLocationAsNewSheet
End Sub


Bu veriyi yukarıda kırmızıya boyadığım hedeften almasın da, TextBox1 'den alsın istiyorum. Ya da bir buton çizeyim Sayfa1'e. Ben bu butona bastığımda Browse penceresi açılsın. Ve ben oradan istediğim veriyi seçeyim. Tamam dedikten sonra veriyi seçmiş olduğum hedeften alsın.

Şimdiden teşekkür ederim herkese.
Selamlarımla,
Can

 

[halit3]

Bu kod işinizi görürmü ?

Sub textverial()
Columns("A:B").ClearContents
With ActiveSheet.QueryTables.Add(Connection:="TEXT;", Destination:=Cells(1, 1))
.TextFileParseType = xlDelimited
.TextFilePromptOnRefresh = True
.TextFileTabDelimiter = True
.Refresh
End With
Dim qt As QueryTable
For Each qt In ActiveSheet.QueryTables
qt.Delete
Next qt
MsgBox "işlem tamam"
End Sub