AccessTr.neT

Bul · 23/06/2022, 07:42

Hocam merhaba,

001,00001,1 2022/06/21 09:59:43 000
cihazno, sicilno, gc, gtarih, gsaat, nedeni

Saygılarımla,

Bul · 23/06/2022, 10:48

eklediğiniz dosyada nedeni alanı yada ona benzer metin alanı olmadığı için sadece nedeni alanı dışındakileri ekledim

Sub OpenTextFileTest()
    Dim result As Integer
    On Error GoTo Err

    yol = getFileName
   
        Response = MsgBox("Dosya bulundu verileri yüklemek ister misiniz?", vbYesNo, "UYARI")
        If Response = 7 Then Exit Sub
                
        Dim strTextLine As String
        Dim iFile As Integer: iFile = FreeFile
        Open yol For Input As #iFile
        Do Until EOF(1)
            Line Input #1, strTextLine
            tmpdz = Split(strTextLine)
            sonuc = tmpdz(0) & ",#" & tmpdz(1) & "#,#" & tmpdz(2) & "#"   'cihazno,sicilno,gc,gtarih,gsaati,ctarihi,csaati
            CurrentDb.Execute ("insert into tblAlınanVeriler (cihazno,sicilno,gc,gtarih,gsaati) values (" & sonuc & ") ")
        Loop
        Close #iFile
 msgbox "bitti"
Err:
If Err.Number = 62 Then
    MsgBox "Belirttiğiniz dosya boş", vbOKOnly, "UYARI"
Else
    End If
Exit Sub

Çıkış:
End Sub

Bul · 23/06/2022, 11:07

Hocam çok teşekkür ederim. Sağolun,

Saygılarımla,

Bul · 23/06/2022, 11:09

rica ederim
iyi çalışmalar

Bul · 14/07/2023, 17:32

Berduş Hocam merhaba,

aynı txt dosyasından Excel e nasıl verileri alabilirim.

Saygılarımla,

Bul · 14/07/2023, 23:26

Kod:

Sub OpenTextFileTest()

    On Error GoTo ErrHandler



    Dim yol As String

    Dim Response As Variant

    Dim strTextLine As String

    Dim tmpdz As Variant

    Dim sonuc As String

    Dim iFile As Integer

    

    yol = getFileName

    

    Response = MsgBox("Dosya bulundu verileri yüklemek ister misiniz?", vbYesNo, "UYARI")

    If Response = vbNo Then Exit Sub

    

    iFile = FreeFile

    Open yol For Input As #iFile

    

    Do Until EOF(iFile)

        Line Input #iFile, strTextLine

        tmpdz = Split(strTextLine)

        sonuc = tmpdz(0) & ",#" & tmpdz(1) & "#,#" & tmpdz(2) & "#"

        ThisWorkbook.Sheets("Sheet1").Range("A1").CurrentRegion.ListObject.ListRows.Add AlwaysInsert:=True

        ThisWorkbook.Sheets("Sheet1").Range("A1:C1").Value = Split(sonuc, ",")

    Loop

    

    Close #iFile

    MsgBox "bitti"

    

ErrHandler:

    If Err.Number = 62 Then

        MsgBox "Belirttiğiniz dosya boş", vbOKOnly, "UYARI"

    End If

End Sub

şeklinde excele uyarlayabilirsiniz.

AccessTr.neT

Txt Dosyasından Bilgi Alma

Txt Dosyasından Bilgi Alma

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri