Çözüldü kapalı dosya da sayfayı açık excele kopyalama hk.

son dosyasının içinde yeni bir sayfa açarak oraya yapıştırmasını istiyorum bilgilerin. konu hakkında yardımlarınızı rica ediyorum

kapalı dosyada mı yeni sayfa açıp kopyalayacak?

hayır benım açık oldugum dosyada yenı sayfa açıp kapalı dosyadakı sayfayı yapştırmasını istiyorum

dosyanız xlsx formatında, dolayısıyla kodlar yok, kodların çalışabileceği formatta çalışmanızı yeniden yükler misiniz?

halily' Alıntı:

kapalı dosyada mı yeni sayfa açıp kopyalayacak?

Genişletmek için tıkla...

hocam dosya çekımını yaptım ben ama sacma bir şekilde f2 f3 f4 gibi yazılar yazıyor sayfamda olmamasına ragmen yanı su sekılde


soldaki çektiğim doya sağdaki ise çekmek ıstedıgım dosyadır.


KOD:

Set Con = CreateObject("AdoDB.Connection")

Set Rs = CreateObject("AdoDB.RecordSet")

Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\zsevkıyat.xlsx" & _
";Extended Properties=""Excel 12.0;Hdr=yes"""

Sorgu = "Select * From [zsevkıyat$]"


Rs.Open Sorgu, Con, 1, 1


Sheets.Add After:=Sheets(1)
ActiveSheet.Name = "ZSEVKIYAT"

For i = 0 To Rs.Fields.Count - 1
Sheets("ZSEVKIYAT").Cells(1, i + 1).Value = Rs.Fields(i).Name
Next

Range("A2").CopyFromRecordset Rs

Rs.Close: Con.Close

Sorgu = vbNullString: Set Rs = Nothing: Set Con = Nothing

siz aralığı yanlış tanımlamışsınız o nedenle tablo olarak tüm sayfayı görüyor
sütun başlıkları hangi satırdan başlıyorsa aralık o olmalı
"select * from [asd$C4:R]"

halily' Alıntı:

siz aralığı yanlış tanımlamışsınız o nedenle tablo olarak tüm sayfayı görüyor
sütun başlıkları hangi satırdan başlıyorsa aralık o olmalı
"select * from [asd$C4:R]"

Genişletmek için tıkla...

BU ŞEKLÜDE YAPICA BAŞLIKLARI EN USTE ALIYOR HOCAM BEN AYNI SEKILDE GELMESINI İSTİYORUM

kapalı dosyadaki sayfayı tamamen sağ tık taşı veya kopyalama yapmasını istiyorum yenı dosyada ek sayfa açarak

amacınızı anlamadım.
sayfa olduğu gibi gelsin istiyorsanız: hdr=no;IMEX=1 yaparsınız veriler olduğu gibi gelir
ama bu durumda Rs.Fields(i).Name satırı işe yaramaz çünkü başlık olmaz

halily' Alıntı:

amacınızı anlamadım.
sayfa olduğu gibi gelsin istiyorsanız: hdr=no;IMEX=1 yaparsınız veriler olduğu gibi gelir
ama bu durumda Rs.Fields(i).Name satırı işe yaramaz çünkü başlık olmaz

Genişletmek için tıkla...

yaramasın hocam aynı dedıgınız gibi oldugu gibi gelmesını istiyorum dedıgınız kodu nereye yazmam gereklidir ?

halily' Alıntı:

amacınızı anlamadım.
sayfa olduğu gibi gelsin istiyorsanız: hdr=no;IMEX=1 yaparsınız veriler olduğu gibi gelir
ama bu durumda Rs.Fields(i).Name satırı işe yaramaz çünkü başlık olmaz

Genişletmek için tıkla...

Set Con = CreateObject("AdoDB.Connection")

Set Rs = CreateObject("AdoDB.RecordSet")

Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\zsevkıyat.xlsx" & _
";Extended Properties=""Excel 12.0;Hdr=yes"""

Sorgu = "Select * From [zsevkıyat$C4:R]"


Rs.Open Sorgu, Con, 1, 1


Sheets.Add After:=Sheets(1)
ActiveSheet.Name = "ZSEVKIYAT"

hdr = no: IMEX = 1

For i = 0 To Rs.Fields.Count - 1
Sheets("ZSEVKIYAT").Cells(1, i + 1).Value = Rs.Fields(i).Name
Next

Range("C4").CopyFromRecordset Rs

Rs.Close: Con.Close

Sorgu = vbNullString: Set Rs = Nothing: Set Con = Nothing


bu şekilde deneme yaptım ayama aynı şekil gelmekte

TAMDA istediğimi verdınız hocam saolun alllah razı olsun

rica ederim
iyi çalışmalar
Not: hata kontrolleri yapılmadı yani zaten rapor adında sayfanız varsa ilgili kitap yada sayfa yoksa hata verebilir