Wordpad Ten Excele Yazdirma

[atöz]

Herkese selamalar,

Wordpad teki metinden bilgileri excelde ilgili sütunlara almak istiyorum.Ancak, örneğin "Sip.Tarihi" ile başlayan satırları atlamasını istiyorum.Wordpad teki dosya aşağıdaki gibi düşünülebilir ;

Sip.Tarihi Marka Termin tarihi Kod Adet

01/09/2006 Nike 25/09/2006 ABC 15000
02/09/2006 Adidas 20/09/2006 ABZ 25000
01/09/2006 Puma 28/09/2006 ABX 20000

Sip.Tarihi Marka Termin tarihi Kod Adet

01/09/2006 Nike 25/09/2006 ABC 15000
02/09/2006 Adidas 20/09/2006 ABZ 25000

yani Sip.Tarihi ile başlayan başlık satırı sürekli tekrarlanıyor ve ben bu satırı atlatmak istiyorum.Başlık altındaki bilgileride excel de yine aynı başlığın altına yazdırmak istiyorum.Mümkün müdür ? Yardımcı olabilecek arkadaşlara şimdididen teşekkürler.
Not ; Wordpadteki dosya, sistemdem alınan raporun wordpadte açılıp kaydedilmesi ile oluşuyor.Yani işin özü sistemdeki raporu excele indirme operasyonudur diyebiliriz.

 

[Kemal Demir]

Küçük bir örnek dosya yollarsanız kucuk bir kod ile halledilir diye dusnuyorum.

 

[atöz]

Ekteki Ornek_Pad dosyası excele veri alacağımız dosya , bu dosyada product code ile başlayan satırda 05/003 şeklinde code ve marka bilgisi şeklinde başlık var altında o başlığa ait siparişler var.(PRODUCT CODE 05/002 - VESTEL şeklinde) .

Excele yazdırırken sadece 05 ile başlayan prodoct code başlıklarına ait siparişleri aldırmak istiyorum.Aynı şekilde markasıda yazdırılacak tabiki...

Sonuç olarak excel de oluşmasını beklediğim dosya Ek teki "SONUC" dosyasında olduğu gibi... Alta alta kritere uyan siparişleri (05 ile başlayan product code lara sahip olanlar) sayfa geçişlerini ve gereksiz başlıkları atlayarak yazıdırma....


Çok teşekkürler.

 

[Levent Menteşoğlu]

Bunun için excelin dış veri al özelliğini kullanabilirsiniz. (veri-dış veri al)

 

[atöz]

Dış veri al yöntemini kullanıyorum zaten ama benim öğrenmek istediğim, pad ten satır satır baktırıp , örneğin satırdaki 15. ve 25. karakterler arasını excelde şu sütuna yaz şeklinde bir makro yazılabilir mi ?

 

[Levent Menteşoğlu]

Yazılabilir muhtemelen üzerinde biraz düşünmek gerekir, ama verileri dış veri ile excele aldıktan sonra bu tablodan istenilen veride yazılacak bir kod ile alınabilir. Bu bana daha kolay olur gibi geldi.

 

[Kemal Demir]

Sn.Leventm Bey'e katılıyorum.

Küçük bir kod ile çözülebilir.Yanlıs anlamadıysam çözüm aşağıdaki gibi olabilir.

Sub duzenle()
With ActiveSheet.QueryTables.Add(Connection:= _
'Aşagıdaki adresi kendinize göre duzenleyiniz.
"TEXT;"C:\Documents and Settings\cati\Desktop\PAD_ORNEK.txt", Destination:= _
Range("A1"))
.Name = "PAD_ORNEK_3"
.RefreshStyle = xlInsertDeleteCells
.RefreshPeriod = 0
.TextFilePlatform = 932
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
For x = 500 To 2 Step -1
'500 lük satırı kendinize göre belirleyebilirsiniz.
If Cells(x, 1).Value = "" Or Cells(x, 1) Like "*ORDER*" Or Cells(x, 1).Value = "PRODUCT" Or Cells(x, 1).Value = "ORSELECTION" Or Cells(x, 1).Value = "SELECTION" Or Cells(x, 1) Like "*--*" Then
Rows(x).Delete
End If
Next
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select

End Sub


Umarım İşinizi görür.