Metin Belgesini otamatik

[5353]

Metin.txt belgesini otomatik excel.xls içine aktarımı nasıl sağlanır.
Örneğin Metin belgesi içeriği değişince...excel çalışma sayfasının da içeriği otomatik değişmiş olacak.

 

[hamitcan]

Aşağıdaki link, birinci sorunuzun yanıtı olabilir. İkinci sorunuzdaki isteğiniz, yapılamaz diye düşünüyorum.
http://www.excel.web.tr/f48/text-dosyasyndan-veri-alma-t79693.html

 

[5353]

Dosyalar

İlgili linki inceledim. forumda aramada yaptım isteğime uyanı tam bulamadım..
Dosyayı ekte gönderiyorum. iki .txt dosyası excel sayfalarına buttonl a da olabilir..aktarımı sağlanacak. sayfa düzeni bozulmadan..

 

[5353]

Ustaların imdadıma yetişeceğine inanıyorum.

 

[hamitcan]

Const yol = "C:\genel.TXT"
Sub DosyadanAl2()
  satir = 1
  Open yol For Input As 1
    Do While Not EOF(1)
      Line Input #1, kayit1
      If kayit1 <> Empty Then
        Cells(satir, 1) = kayit1
        satir = satir + 1
      End If
    Loop
  Close #1
 End Sub

Sütun başlıklarını bir satıra giriniz ve kodu çalıştırın.

Sub nn()
s = InputBox("Ayrım Hangi Satırdan Başlayacak")
s2 = InputBox("Ayrım Hangi Satırda Bitecek")
h = InputBox("Aktarım Hangi Satırdan Başlayacak")
For i = s To s2
h = h + 1
c = 0
For j = 1 To 6
    a = Split("  " & Cells(i, j), "  ")
For tt = 1 To UBound(a)
If a(tt) <> Empty Then c = c + 1: Cells(h, c) = Replace(a(tt), "-", "")
Next
Next
Next
End Sub

Not:Terminal.txt dosyası için bir çalışma yapmadım.

 

[5353]

Bu kodları mesela A2 den başlayacak şekilde "C:\Users\asus\Desktop\Dosya Aktar\Dosya Aktar\genel.txt ve diğer sayfada "C:\Users\asus\Desktop\Dosya Aktar\Dosya Aktar\terminal.txt tex dosyalarına göre" excel dosyası olarak yapabilecek varmıdır. Dosyayı burada ekleme imkanı olanlardan ricam.. Şimdiden çok teşekkürler.

 

[5353]

Hala yapamadım. Bir dost eli bekliyorum. konunun aciliyetine binaen..

 

[hamitcan]

Const yol = "C:\genel.TXT"

Sub DosyadanAl2()
Sheets("Genel2").Select
  satir = 1
  Open yol For Input As 1
    Do While Not EOF(1)
      Line Input #1, kayit1
      If kayit1 <> Empty Then
        Cells(satir, 1) = kayit1
        satir = satir + 1
      End If
    Loop
  Close #1
 End Sub

Sub nn()

Sheets("genelx").Select
s = InputBox("Ayrım Hangi Satırdan Başlayacak")
s2 = InputBox("Ayrım Hangi Satırda Bitecek")
If s = "" Or s2 = "" Then Exit Sub
h = InputBox("Aktarım Hangi Hücreden Başlayacak")
x = Range(h).Row - 1
y = Range(h).Column - 1
For i = s To s2
x = x + 1
c = y
For j = 1 To 6
    a = Split("  " & Sheets("genel2").Cells(i, j), "  ")
For tt = 1 To UBound(a)
If a(tt) <> Empty Then c = c + 1: Cells(x, c) = Replace(a(tt), "-", "")
Next
Next
Next
End Sub
Sub Temizle()
If ActiveCell = Empty Then MsgBox "Silmek İstediğiniz Bölgeyi Tarayınız": Exit Sub
Selection.Clear
End Sub

 

[Bagcivan]

dış veri almak işinizi görmedi mi? .txt de değiştirdiğinizi otomatik olarak excelde de değiştiriyor.

 

[5353]

genelx sayfasındaki normal çalışan, hafta tatili çalışan şeklinde sağ tarafta gözüken bölümün şöför yazısı altından devam etmesi için ne yapmalıyız. bu sonuçta tek sayfadır. Yazıcıdan çıktı öyle alacağız.

 

[5353]

dış veri almak işinizi görmedi mi? .txt de değiştirdiğinizi otomatik olarak excelde de değiştiriyor.

evet txt dosyalarını yazdırınca uygun karakterde ve düzende yazıcıdan çıktı alınmıyor. Amaç bu iki dosyayı excel ortamına gönderip düzenli olarak tek a4 sayfası şeklinde çıktısını almak. ilginiz için teşekkür ederim.

 

[5353]

Arkadaşlar çok teşekkür ederim. özellikle Hamit beye..sonunda bende biraz uğraştım ve istediğimi yapabildim. Hücrelerde iş bitiyormuş.. a1 yerine b1 den aktarıma başlayınca oldu..