satırı Txt Dosyasında istenilen bölüme kaydetme.

[Huseyinkis]

Excelde A1:G1 arasındaki tum verileri C:\deneme.txt dosyasının içine H1 de yazan satıra ekleme yapabilecek bir formul varmı..



Örnek :

A1:G1 = 1 - 2 - 3 - 4 - 5 - 6 - 7 H1 = 15

Deneme.Txt dosyasının 15 satırına 1 2 3 4 5 6 7 ekleme yapıcak.

Şimdiden Teşekkürler.

 

[excel03]

Sub TextAktar()
A = [A1]
B = [B1]
C = [C1]
d = [D1]
E = [E1]
F = [F1]
G = [G1]
i = 0
Open "c:\deneme.txt" For Output As #1
10:
If i = Range("h1") - 1 Then
Write #1, A, B, C, d, E, F, G
Else
Write #1, Chr(13)
i = i + 1
GoTo 10
End If
Close #1
End Sub