[Çözüldü] Aktarma İşlemi

[Erhan Köseoğlu]

Kitap.csv ye aktarınca 1. satır boş kalıyor. ilk satırın boş kalmaması için ne yapmalıyım?
şifre: ilyas

[Orion1]

Çünkü csv dosyanızda 1nci satır boş.

[Erhan Köseoğlu]

Çünkü csv dosyanızda 1nci satır boş.

.csv dosyası excelden aktarılarak oluşturuluyor, aktarınca 1. satır boş kalıyor.

[Orion1]

Aktarma kodlarınızı buraya verin bakayım.
Eğer devamlı ilk satır boş geliyorsa kod ile bunu hallederiz ama ilk satır dolu olrakta geldiği zamanlar olursa bu durumda yanlış iş yapmış oluruz.Bunu bilesiniz.

[Erhan Köseoğlu]

Aktarma kodlarınızı buraya verin bakayım.
Eğer devamlı ilk satır boş geliyorsa kod ile bunu hallederiz ama ilk satır dolu olrakta geldiği zamanlar olursa bu durumda yanlış iş yapmış oluruz.Bunu bilesiniz.

sürekli ilk satır boş geliyor.

Private Sub CommandButton8_Click()
'Sub Csv_Aktar()
Open "C:\Documents and Settings\All Users\Belgeler\iMacros\datasources\KitapV2.csv" For Output As #1
For a = 1 To Range("k13")
    Print #1, Cells(a, 9)
Next a
    Close


End Sub

[Orion1]

Bu kod okuma değil yazma yapıyor.
Muhtemelen yazarken 9ncü sütunda ilk satır boş olduğundan dolayı ilk satırı boş geçiyor.
Okuma yaptığınız kodu demiştim.
Onu yollarsanız bir bakayım.
Not:Okuma input ile yapılıyor.

[Erhan Köseoğlu]

A9 hücresini doldurunca ilk satır doldu. 2. satırdan itibaren aktarma başlatmak için kod nasıl olmalı. İnput ile başlayan kod yok. Dosyalar 1. mesajda ekli.

[Orion1]

Aşağıdaki kodla I sütunundan 1nci satırdan başlayrak veriler csv dosyasına veri aktarılıyor.
Oysa I sütununda 1nci satırda veri yok.
Eğer sürekli 1nci satırda veri olmayacaksa o zaman döngüye 2nci satırdan başlamak doğrudur.O zaman csv dosyasında ilk satır boş olmaz.
kodu aşağıdaki ile değiştiriniz.

Kod: [Seç]

For a = 2 To Range("k13")
    Print #1, Cells(a, 9)
Next a

[Erhan Köseoğlu]

Yardımlarınız için çok teşekkürler.

[Orion1]

Yardımlarınız için çok teşekkürler.

Rica ederim.