Microsoft Excel'de kapalı bir çalışma kitabından bilgi almak, VBA kodunu kullanarak doğru verileri elde etmenin en zaman kazandıran yollarından biridir. Bu yazıda, Microsoft Excel'de VBA kullanarak kapalı bir çalışma kitabından bilgi okumayı öğreneceğiz.
E-posta veya başka bir kaynak yoluyla birden fazla dosya alıyorsanız ve belirli bir hücrede depolanan bilgileri almak istiyorsanız, bu öğreticiyi okumalısınız.
Bu örneği anlamak için, VBA kodunda kullanacağımız bir path içinde bazı örnek dosyalar oluşturmamız gerekiyor; burada birkaç dosyayı (North & West dosyaları) “D:\testing” yoluna kaydettik.
Bir klasördeki tüm excel dosyalarından veri çıkarmak için VB düzenleyiciyi başlatmak için aşağıdaki adımları izlememiz gerekiyor:
- Geliştirici sekmesine tıklayın
- Kod grubundan Visual Basic'i seçin
- Aşağıdaki kodu standart modüle kopyalayın
Sub ReadDataFromAllWorkbooksInFolder() KlasörAdı As String, wbName As String, r As Long, cValue As Variant Dim wbList() As String, wbCount As Integer, i As Integer FolderName = "D:\testing" ' klasör adındaki çalışma kitaplarının listesini oluştur' --- Yorum wbCount = 0 wbName = Dir(FolderName & "\" & "*.xls") while wbName "" wbCount = wbCount + 1 ReDim Koru wbList(1 To wbCount) wbList(wbCount) = wbName wbName = Dir Wend wbCount = 0 ise Exit Sub ' her çalışma kitabından değerler al' --- Yorum r = 0 Workbooks.Add For i = 1 To wbCount r = r + 1 cValue = GetInfoFromClosedFile(FolderName, wbList(i), "Sheet1", "A1") Cells(r, 1).Formula = wbList(i) Cells(r, 2).Formula = cValue Next i End Sub Private Function GetInfoFromClosedFile(ByVal wbPath As String, _ wbName As String, wsName As String, cellRef As String) As Varyant Dim arg As String GetInfoFromClosedFile = "" If Right(wbPath, 1) "\" Sonra wbPath = wbPath & "\" If Dir(wbPath & "\" & wbName) = "" Sonra Çıkış Fonksiyonu arg = "'" & wbPath & "[" & wb Ad & "]" & _ wsName & "'!" & Range(cellRef).Address(True, True, xlR1C1) Hatada Devam Sonraki GetInfoFromClosedFile = ExecuteExcel4Macro(arg) Bitiş Fonksiyonu
Makroyu çalıştırmamız gerekiyor ve aşağıdaki sonucun anlık görüntüsü olacak:
Çözüm: Yukarıdaki kodu kullanarak, belirli bir hücreden kapalı çalışma kitabından veri alabiliriz.
Not: Hücre A1 örnek olarak kullanılmıştır; Başka bir hücreden veri almak istiyorsanız, o hücreden bahsetmeniz yeterlidir.
Bloglarımızı beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl iyileştirebileceğimizi, tamamlayabileceğimizi veya yenileyebileceğimizi ve sizin için daha iyi hale getirebileceğimizi bize bildirin. Bize e-posta sitesinde yazın