schlecht
Altın Üye
- Katılım
- 13 Kasım 2009
- Mesajlar
- 337
- Excel Vers. ve Dili
- Ofis 2016 TR 64 Bit
- Altın Üyelik Bitiş Tarihi
- 23-02-2025
Merhaba xls dosyasından aşağıdaki kod ile cvs dosyasına veri kopyalıyorum.
Dosya_Adi = Yol & "\hedef.csv"
Set K1 = Excel_Uygulama.Workbooks.Open(Dosya_Adi)
Dosya_Adi = Yol & "\kaynak.xls"
Set K2 = Excel_Uygulama.Workbooks.Open(Dosya_Adi)
Set S1 = K2.Sheets("Sayfa1")
Son = S1.Cells(S1.Rows.Count, 2).End(3).Row
S1.Range("C2:C" & Son).SpecialCells(xlCellTypeVisible).Cells.Copy K1.Sheets("Sayfa1").Range("A4")
kaynak xls dosyası sayfa1 deki c2 den son dolu satırı kopyalayarak hedef.csv dosyasındaki sayfa1 deki a4 hücresine kopyaması gerekiyor fakat
sonuç olarak; hedef.csv dosyasındaki sayfa1 e a4 te kaynak dosyaski verileri aralarına "," koyarak sıralıyor. hedef dosya csv değilde xls formatında olursa normal şekilde kopyalıyor.
yardımlarınızı rica ederim.
Dosya_Adi = Yol & "\hedef.csv"
Set K1 = Excel_Uygulama.Workbooks.Open(Dosya_Adi)
Dosya_Adi = Yol & "\kaynak.xls"
Set K2 = Excel_Uygulama.Workbooks.Open(Dosya_Adi)
Set S1 = K2.Sheets("Sayfa1")
Son = S1.Cells(S1.Rows.Count, 2).End(3).Row
S1.Range("C2:C" & Son).SpecialCells(xlCellTypeVisible).Cells.Copy K1.Sheets("Sayfa1").Range("A4")
kaynak xls dosyası sayfa1 deki c2 den son dolu satırı kopyalayarak hedef.csv dosyasındaki sayfa1 deki a4 hücresine kopyaması gerekiyor fakat
sonuç olarak; hedef.csv dosyasındaki sayfa1 e a4 te kaynak dosyaski verileri aralarına "," koyarak sıralıyor. hedef dosya csv değilde xls formatında olursa normal şekilde kopyalıyor.
yardımlarınızı rica ederim.