Çözüldü Excel Kapalı Dosyadan Veri Alma

[ridvanucok]

Merhaba,

Makro ile mevcut excel'e ortak alanda yer alan Adet Kalıp.xlsx dosyasının, Adet Kalıp isimli sayfasını otomatik olarak yeni bir sayfa oluşturup içeri almasını istiyorum. Denedim fakat yapamadım. Konu hakkında değerli yardımlarınızı rica ederim.

Not: Bu işlemi mevcut bir makroya entegre edeceğim.

Saygılarımla,
İyi çalışmalar.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz...

Sub Kod()
Dim w1 As Workbook
Set w1 = Workbooks.Open(ThisWorkbook.Path & "/" & "Adet Kalıp.xlsx")
w1.Sheets("ADET KALIP").Copy After:=ThisWorkbook.Sheets(1)
w1.Close 0
End Sub

 

[ridvanucok]

Merhaba,

Aşağıdaki hatayı veriyor.

 

[askm]

Kodlar ile dosyanız aynı konumda olması gerekli.

Sub Kod()
Dim w1 As Workbook
Application.DisplayAlerts = False
Adet = 0
On Error GoTo son
For Each C In Sheets
    If C.Name = "ADET KALIP" Then Adet = 1: Exit For
Next
If Adet = 0 Then
    Set w1 = Workbooks.Open(ThisWorkbook.Path & "/" & "Adet Kalıp.xlsx")
    w1.Sheets("ADET KALIP").Copy After:=ThisWorkbook.Sheets(1)
son:
    w1.Close 0
End If
End Sub

 

[ridvanucok]

Kodlar ile dosyanız aynı konumda olması gerekli.

Sub Kod()
Dim w1 As Workbook
Application.DisplayAlerts = False
Adet = 0
On Error GoTo son
For Each C In Sheets
    If C.Name = "ADET KALIP" Then Adet = 1: Exit For
Next
If Adet = 0 Then
    Set w1 = Workbooks.Open(ThisWorkbook.Path & "/" & "Adet Kalıp.xlsx")
    w1.Sheets("ADET KALIP").Copy After:=ThisWorkbook.Sheets(1)
son:
    w1.Close 0
End If
End Sub

Asri üstadım merhaba,

İlginiz için teşekkür ederim.

İyi çalışmalar.