Geçen hafta hatırlayacağınız gibi DDE bağlantılarına değinmiş ve Program Yöneticisine ile DDE kurarak ona program grubu yarattırmıştık. Bu ay bağlantımızı Excel ile kuracağız. Yapacağımız şey Excel’de bulunan "Kitap1"den bir dizi hücrenin okunması ve bu hücrelerin sırayla VB ile yaptığımız bir "alıcıdaki" ızgara kontrolüne yerleştirilmesi.
İşlemi gerçekleştirmek için önce Excel’i açın ve şekilde görüldüğü gibi 5 satır ve 5 sütunu istediğiniz bilgilerle donatın. Sonra Exceli kapatmadan VB’ye geçin ve programı yazın. Yalnız ingilizce Excel kullananlar "Excel|Kitap1" ifadesi yerine "Excel|Sheet11"
ifadesini kullanmalıdırlar. Programı yazdıktan sonra bağlantı için "Verileri Al" tuşuna basın.
Private Sub Command1_Click()
Dim CurRow As String
Static Row ' Hesap tablosu satır numarası
Static Col ' Hesap tablosu sütun numarası
' Açık olan tüm bağlantıları kapat
Text1.LinkMode = 0
' Bağlantı kurulacak uygulama ve bölümü
Text1.LinkTopic = "Excel|Kitap1"
Text1.LinkItem = "R1C1" ' Bağlantı öğesini belirle
Text1.LinkMode = 1 ' Bağlantı tipini otomatik yap
For Row = 1 To 5 ' Satır ve sutunu değiştirmek
' için döngü
For Col = 1 To 5
'Okunacak hücreyi belirle
CurRow = "R" & Row & "C" & Col
Grid1.Row = Row 'satır ve sütunu belirle
Grid1.Col = Col
Text1.LinkItem = CurRow
Grid1.Text = Text1.Text
Next Col
Next Row
End Sub