Excel ve Txt ortakligi...

[chiefeng]

merhaba arkadaslar,

sizlerden excelde yapmak istedigim bir makroyu danismak istiyorum;
ben imkb verilerini inretnetten asagidaki fomatta excele aktarabiliyorum,

excel örnek;

CODE HIGH LOW CLOSE VOLUME TLVALUE
ABANA 1500.0 1480.0 1490.0 145 98
ACIBD 4640.0 4320.0 4580.0 363 80
ADANA 7650.0 7450.0 7500.0 367 48
ADBGR 4100.0 4060.0 4100.0 46 11
.... .......... ......... ......... ..... ...
v.s
v.s

fakat kullandigim borsa programinda (omega) bu datalari kullanmak icin her satiri (mesela ADANA nin bilgileri) ayri bir text dosyasi (ADANA.txt) olusturup, buraya yazdirmam lazim. ve daha sonra ertesi gun aldigim datalari tekrar ayni makroyu calistirarak, ADANA nin ertesi gun bilgilerini ADANA.txt dosyasinin altina yazmasi lazim yani ;

ADANA.txt ornek;

"Date","Open","High","Low","Close","Volume"
03/04/1992,0.000,168.000,168.000,168.000,3533846
03/05/1992,0.000,165.000,151.000,165.000,1512511
03/06/1992,0.000,165.000,162.000,165.000,597813
03/24/1992,0.000,148.000,145.000,148.000,1142923
03/25/1992,0.000,151.000,142.000,142.000,1248685
03/27/1992,0.000,151.000,139.000,151.000,1881558
03/30/1992,0.000,162.000,148.000,162.000,4887901
03/31/1992,0.000,173.000,162.000,162.000,5486839

bu makroyu bir yerde kullandiklarini gormustum ama zaman ve firsatim olmadigi icin inceleyemedim.

umarım anlatabilmisimdir, yardimlarinizi bekliyorum arkadaslar...

[xxrt]

Kodlar bunlar ama daha geniş istersen.Buraya

Sub txt()
MsgBox "HAZIRLANIYOR"
Dim LastRowA As Integer

Dim veri1 As String
Dim i As Integer
Open "C:\Adana.txt" For Output As #1
LastRowA = Cells(65536, 1).End(xlUp).Row
For i = 1 To LastRowA
veri1 = Cells(i, 1).Text
veri2 = Cells(i, 2).Text
veri3 = Cells(i, 3).Text
veri4 = Cells(i, 4).Text
veri5 = Cells(i, 5).Text
veri6 = Cells(i, 6).Text

Print #1, veri1; veri2; veri3; veri4; veri5; veri6
Next i
Close #1
End Sub