kapalı dosyadan veri aldırmak

[cemşir79]

Siteye baktım istediğimi karşılayacak bir çözüm bulmadım bu konuda yardımcı olacak varsa şimdiden teşekkür ederim
2-4-6-8-10 excel dosyalarının içinde Takım Listelerinin içindeki renkli alanları Genel isim listesine çektirmek istiyorum

 

[cemşir79]

Sorum hakkında yardımcı olacak kimse yok galiba günceldir

 

[Korhan Ayhan]

Merhaba,

Forumda örnekler var...

Linkteki konu işinize yarayacaktır..

ADO ile aynı anda bir çok sayfadan toplatarak veri alma

Merhaba, Ekli dosyada, her biri ayrı birer sayfada olmak üzere 3 adet Firmanın (A, B, C ) Hesap bakiye bilgileri mevcut, "İcmal" sayfasında ise 3 firmayı ve Toplam bakiyeyi anda anda gösteren tablo mevcut, Aşağıdaki 1. kod ile Hesap bilgilerini "Rapor" sayfasına alt-alta alabiliyoruz, Benim...

www.excel.web.tr

 

[burakalsancak]

Dim s2 As Worksheet
Dim dosya As Variant

Set w1 = ThisWorkbook
Set s1 = w1.Worksheets("Çalışma sayfası adını yazın")


With Application.FileDialog(msoFileDialogOpen)
  .InitialFileName = "veri alınacak dosya yolunu yazın"
  .Title = "Dosya Seç"
  .ButtonName = "Seç"
  .Filters.Clear
  .Filters.Add "Excel Files", "*.xlsx, *.csv, *.xls, *.*xls*"
  .FilterIndex = 1
 
  If .Show = 0 Then
    Exit Sub
    Else
    dosya = .SelectedItems(1)
    End If


End With
Application.ScreenUpdating = False
Set w2 = Workbooks.Open(dosya)
Set s2 = w2.Worksheets(1)



s2.Range("A1:T300").Copy s1.Range("A1:T300")


Application.ScreenUpdating = True
w2.Close

End Sub

s2.range ("bu kısma dosyadaki veri alacağınız aralığı yazın") s1.Range("bu kısma alınan verilerin yapıştırılacağı aralığı yazın")