yazı içinde bir kelime grubunu txtden almak

[pokemal]

Merhabalar;

yapmak istediğim şu;

Elimde bir yazı şablonu var. ve bir txt dosyası mevcut isim-soyisim ve 2 tarihin bulunduğu ki bu dosya excel dosyası da olabilir.

mesela;


Sayın [isim-soyisim] borcunuzu [tarih1] [tarih2] aralağında ödeyiniz.


ve 100 kişilik bir liste.
ahmet 25-07-2010 26-07-2010
mehmet 01-08-2010 05-08-2010



Ben bu yazı şablonunu yazıcıdan çıktı almak istiyorum ancak 100 çıktım olucak ve her birinin [isim-soyisim] [tarih1] [tarih2] leri listeden çekecek.

Umarım derdimi anlatabilmişimdir.

Cevap verebilecek olanlara şimdiden çok teşekkür ederim.

 

[htsumer]

Bu kodu dene,

Daha sonra senet sayfanda parçaal yöntemi yada başka bir yola senedine aktar..

Sub ImportTxtFile()
    Dim strFilePath As String, strFilename As String, strFullPath As String
    Dim oConn As Object, oRS As Object, oFSObj As Object
        strFullPath = Application.GetOpenFilename _
        ("Text Dosyaları (*.txt),*.txt", , "Dosya seçin...")
        If strFullPath = "False" Then Exit Sub
    Application.ScreenUpdating = False
        Set oFSObj = CreateObject("Scripting.FileSystemObject")
            strFilePath = oFSObj.GetFile(strFullPath).ParentFolder.Path
            strFilename = oFSObj.GetFile(strFullPath).Name
        Set oConn = CreateObject("ADODB.CONNECTION")
            oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=" & strFilePath & ";" & _
                "Extended Properties=""text;HDR=Yes;FMT=Delimited"""
                    Set oRS = CreateObject("ADODB.RECORDSET")
                         oRS.Open "SELECT * FROM " & strFilename, oConn, 3, 1, 1
                               While Not oRS.EOF
                                   Sheets.Add
                                   ActiveSheet.Range("A1").CopyFromRecordset oRS, 65536
                               Wend
                         oRS.Close
            oConn.Close
    Application.ScreenUpdating = True
        Set oRS = Nothing
            Set oConn = Nothing
        Set oFSObj = Nothing
End Sub

 

[pokemal]

Sayın htsumer cevabınız için çok teşekkür ederim. Yalnız takdir edersiniz ki başlığım yeni başlayanlar bölümünde

size de zahmet veriyorum ama verdiğiniz kodları nasıl çalıştırabileceğim konusunda yardımınıza ihtiyacım var.

 

[htsumer]

:frown:................