Her CHANGE yaşandığında verileri TXT dosyasına atmak (otomatik)

[hakanyildiz3434]

Merhabalar,

-Benim bir excel dosyam var.
-İçerisinde 8 kolon ve başlıkla beraber 456 satır var.
-Benim excel sayfama her 1 saniyede bir farklı bir programdan bilgi girişi yapılıyor.Yani her 1 saniyede veriler güncelleniyor aralıksız.

Ben bir makro(kod) yapmam lazım, görevi her sayfa "CHANGE" olduğunda (yani sayfada bir veri değiştiğinde-yeni veri eklendiğinde) tüm verileri bir.TXT dosyasına yazdırmak istiyorum. Yani excel sayfasında herhangi bir değişiklik olur olmaz tüm verileri bir .TXT dosyasına yazdırmak istiyorum. İnternetten bol bol araştırdım ama bir türlü çözümü bulamadım. Makro sürekli çalışacak.

Ben burdaki veriyi c# programımdan OLEDB kullanarak verileri dinamik olarak çekiyorum fakat aklımda farklı bir yöntem var ve OLEDB'den daha performanslı olabileceğini düşünüyorum ve denemek istiyorum.

Lütfen yardımcı olursanız sevinirim.

 

[hakanyildiz3434]

Aşağıdaki kodu ilgili excel sayfasının CHANGE kısmına ekledim hata veriyor. Bunun öncesinde ilgili runtime referansını eklemiştim.

Sub FSOWriteToTextFile()
Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FileToWrite = FSO.OpenTextFile("C:\Test\TestFile.txt", ForWriting)

FileToWrite.Write "test line"
FileToWrite.Close

End Sub

 

[ÖmerBey]

Merhaba,
Şöyle bir şey işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dsy As String
dsy = "C:\Test\TestFile.txt"
Open dsy For Append As #1
    Print #1, Target.Address; ":  "; Target.Value
Close #1
End Sub

 

[hakanyildiz3434]

Dim dsy As String dsy = "C:\Test\TestFile.txt" Open dsy For Append As #1 Print #1, Target.Address; ": "; Target.Value Close #1

Run-time error '75'
Path/File access error

şeklinde bir hata aldım acaba dosyayı güvenli mi bulmuyor?

 

[hakanyildiz3434]

D diskine yazdım ve düzeldi.
Bana verdiğiniz kod güzel çalıştı.

En gelişmiş olanı bu mu acaba?

Run-time error '75'
Path/File access error

şeklinde bir hata aldım acaba dosyayı güvenli mi bulmuyor?

 

[ÖmerBey]

En gelişmiş olanı bu mu acaba?

Maalesef, gelişmişlik düzeyini bilebilecek bilgi birikimine sahip değilim.

 

[hakanyildiz3434]

Maalesef, gelişmişlik düzeyini bilebilecek bilgi birikimine sahip değilim.

Maalesef, gelişmişlik düzeyini bilebilecek bilgi birikimine sahip değilim.

Herşey için çok teşekkür ederim.

Geriye tek bir sıkıntım kaldı. Bana verdiğiniz kod'da veriyi ilgili TEXT dosyasına işliyor sorun yok.

Fakat ilgili TEXT dosyasına yazarken önceden içinde yazılı olan yazının üstüne ilave yazıyor.

Yani önceden "ABC" yazılı ise ve verdiğiniz kod ile ben "123" yazdırırken eskiyi silip "123"yazmak yerine "ABC 123" yazıyor.

Bu konuda da yardımcı olabilir misiniz?

 

[ÖmerBey]

Rica ederim,
Append ifadesini Output olarak değiştirirseniz eski veriyi siler.
İyi çalışmalar...