Soru Kapalı excel sayfasından veri alma sorunu

[by_erman]

Merhaba

Kapalı bir excel sayfasından aşağıdaki kod ile verileri alıyorum. Fakat aldıktan sonra her seferinde mevcutta yeni sayfa açarak kopyalıyor mevcut sayfama yeni sayfa açmadan belirlediğim sayfaya ekleme nasıl yapabilirim?

Sub CopySheetFromClosedWB()
Application.ScreenUpdating = False

    Set closedBook = Workbooks.Open("C:\Users\tescilort.ito\Desktop\1\1.xlsx")
    closedBook.Sheets("34").Copy Before:=ThisWorkbook.Sheets(1)
    closedBook.Close SaveChanges:=False

Application.ScreenUpdating = True
End Sub

 

[Korhan Ayhan]

Merhaba,

Kullandığınız kod içindeki aşağıdaki satır sayfa taşıma işlemi yapıyor. Bundan dolayı yeni sayfa açıyor.

closedBook.Sheets("34").Copy Before:=ThisWorkbook.Sheets(1)

Bunun yerine aşağıdaki gibi deneyebilirsiniz.

closedBook.Sheets("34").Range("A1:K50").Copy ThisWorkbook.Sheets("Sayfanızın_Adı").Range("A1")

 

[by_erman]

Merhaba,

Kullandığınız kod içindeki aşağıdaki satır sayfa taşıma işlemi yapıyor. Bundan dolayı yeni sayfa açıyor.

closedBook.Sheets("34").Copy Before:=ThisWorkbook.Sheets(1)

Bunun yerine aşağıdaki gibi deneyebilirsiniz.

closedBook.Sheets("34").Range("A1:K50").Copy ThisWorkbook.Sheets("Sayfanızın_Adı").Range("A1")

Öncelikle hızlı dönüş için teşekkür ederim.

Range("A1:K50") anladığım kadarıyla a1 ve k50 arasındaki sütunların 50 satırını alıyor. Komple sayfayı nasıl alırım?

 

[Korhan Ayhan]

Deneyiniz.

closedBook.Sheets("34").Cells.Copy ThisWorkbook.Sheets("Sayfanızın_Adı").Range("A1")

 

[by_erman]

Deneyiniz.

closedBook.Sheets("34").Cells.Copy ThisWorkbook.Sheets("Sayfanızın_Adı").Range("A1")

Teşekkür ederim ilginiz için. Sorunum çözüme ulaştı.