kapalı csv dosyasını excele çevirme

[torik52]

herkese saygılar.Aşşağıdaki kod csv dosyalarını excele çevirmektedir.
sorum şudur.çevirme işlemi excel sayfasının ilk satırına geliyor bunu ikinci satırdan başlatmam için kodu nasıl yazmalıyız teşekkürler.


Sub dene()
fname = "C:\Documents and Settings\Administrator\Desktop\H001.csv"
If Dir(fname) <> "" Then
Cells.ClearContents
Open fname For Input As #1
Do While Not EOF(1)
Line Input #1, textline
textline = Trim(textline)
If textline <> "" Then
sat = sat + 1
a = Split(textline, ",")
sut = 1
For Each s In a
If (sut = 3 Or sut = 4) And IsNumeric(s) Then
Cells(sat, sut) = Val(s) / 10
Else
Cells(sat, sut) = s
End If
sut = sut + 1
Next s
End If
Loop
Close #1
End If
End Sub

 

[Asri]

Sub dene() bundan sonra, sat=1 ekleyin.

 

[torik52]

Sub dene() bundan sonra, sat=1 ekleyin.

sn asri ilginize teşekkür ederim ancak başarılı değil.
ben cvs nin sayfasından bahsetmiyorum cvs den aldığım veriyi excel sayfasına alırken excel sayfasının 2 nci satırındandan başlamasını istiyorum
bu kodla veri alınan excel sayfasının ilk satırından başlıyor doldurmaya.

 

[Asri]

sn asri ilginize teşekkür ederim ancak başarılı değil.
ben cvs nin sayfasından bahsetmiyorum cvs den aldığım veriyi excel sayfasına alırken excel sayfasının 2 nci satırındandan başlamasını istiyorum
bu kodla veri alınan excel sayfasının ilk satırından başlıyor doldurmaya.

Neyi nereye hangi satırdan karıştı

örnek excel ve txt dosyanızı dosya.co dan yükleyip link verir misiniz?

Olan ve olması gerekeni belirterek.

 

[NBATMAN]

sn asri ilginize teşekkür ederim ancak başarılı değil.
ben cvs nin sayfasından bahsetmiyorum cvs den aldığım veriyi excel sayfasına alırken excel sayfasının 2 nci satırındandan başlamasını istiyorum
bu kodla veri alınan excel sayfasının ilk satırından başlıyor doldurmaya.

Merhaba torik52,

sayının asri'nin önerisi çalışıyor.
Csv dosyasındaki verileri, Excel dosyasında ilgili sayfanın 2.satırından başlayarak alıyor(yazıyor). Sizin istediğinizde bu değil mi?

Sub dene()
sat = 1
fname = "C:\Users\NBATMAN\Documents\Kitap2.csv"
If Dir(fname) <> "" Then
Cells.ClearContents
Open fname For Input As #1
Do While Not EOF(1)
Line Input #1, textline
textline = Trim(textline)
If textline <> "" Then
sat = sat + 1
a = Split(textline, ",")
sut = 1
For Each s In a
If (sut = 3 Or sut = 4) And IsNumeric(s) Then
Cells(sat, sut) = Val(s) / 10
Else
Cells(sat, sut) = s
End If
sut = sut + 1
Next s
End If
Loop
Close #1
End If
End Sub