Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » Kodlama ve Komutlar » Excelde Sayfa Kopyalama Ve Formatı
Excelde sayfa1 içeriğini .selection.copy ile kopyalayıp sayfa2 ye .ActiveSheet.paste ile yapıştırıyorum. Sayfa2 deki satır ve sütün ayarları ile sayfa yapısı ayarları sayfa1 den farklı oluyor. Sayfa1 deki satır sütun ve sayfa yapısını aynen nasıl sayfa2 ye aktarabilirim?
.ActiveSheet.Range("A1").PasteSpecial
Çetin Hocam Maalesef olmadı
kopyalanan sayfaların satır,sütun, font ve diğer özellikleri kopyalanmıyor.
Sheet kopyalasan olurmu
m.loexcel.Sheets("Sayfa1").Select
m.loexcel.Sheets("Sayfa1").Copy (m.loexcel.Sheets(1))
Cemal bey yazdığınız gibi yaptım.
For lnax=2 to 10
With m.loExcel As "Excel.Application"
.Sheets("Sayfa1").Select
.Sheets("Sayfa1").Copy (.Sheets(1))
EndWith
EndFor
ile sayfa1, sayfa1 (2), sayfa1 (3), .. şeklinde kopyalar oluşturdum.
aşağıdaki uygulama ile sayfa adlarını değiştirdim.
For lnax=2 to m.loexcel.Sheets.Count
With m.loExcel As "Excel.Application"
.sheets("sayfa1 ("+Alltrim(Str(ax))+")").name="sayfa"+Alltrim(Str(ax))
EndWith
EndFor
2 farklı excel dosyası arasında birindeki sheet diğer bir excel dosyasına kopyalanabiliyor mu ?
Hocam
x.Sheets("Sayfa1").Copy (y.Sheets(1))
benzeri şekliyle hata veriyor. Bir örnek satır alabilir miyim.
lcXLSFrom = "C:\temp\customerData.xls"
lcXLSTo = "C:\temp\orderData.xls"
USE (_samples + 'data\Customer')
COPY TO (m.lcXLSFrom) TYPE xls
USE
USE (_samples + 'data\Orders')
COPY TO (m.lcXLSTo) TYPE xls
USE
LOCAL loExcel
loExcel = CreateObject("Excel.Application")
with loExcel
.Workbooks.Open(m.lcXLSFrom)
oSourceRange = .ActiveWorkbook.WorkSheets(1).UsedRange
.Workbooks.Open(m.lcXLSTo)
oTargetRange = .ActiveWorkbook.ActiveSheet.Cells(1, ;
.ActiveWorkbook.ActiveSheet.UsedRange.Columns.Count + 2) && arada bir kolon bos
oSourceRange.Copy( oTargetRange )
.Workbooks(1).Close
.Visible = .T.
ENDWITH
Hocam elinize sağlık, çok makbule geçti.
fox4um » Kodlama ve Komutlar » Excelde Sayfa Kopyalama Ve Formatı