Word programında excele nasıl bağlanılır

word programından excele bağlanmak için genellikle adres mektup birleştrme kullanılmaktadır. Halbuki bu işin daha esnek ve etkili yolları vardır. 

Şimdi Excele bağlanma yöntemlerini yazalım.

1. OLE.DB ile bağlanma

Set cn = CreateObject("ADODB.Connection")

With cn

 .Provider = "Microsoft.Jet.OLEDB.4.0"

  .ConnectionString = "Data Source=C:\adrestakip.xls " & _

  ";Extended Properties=""Excel 8.0;HDR=Yes;"""

.Open

End With

2. ConnectionString ile bağlanma

Set cn = New ADODB.Connection

With cn

    .Provider = "Microsoft.Jet.OLEDB.4.0"

    .ConnectionString = "Data Source=C:\adrestakip.xls;Extended Properties=Excel 8.0;"

    .CursorLocation = adUseClient

    .Open

End With

3. ADO.DB Driver İle bağlanma  

Set cn = New ADODB.Connection

With cn

    .Provider = "MSDASQL"

    .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _

"DBQ=C:\adrestakip.xls; "

    .CursorLocation = adUseClient

    .Open

End With

4. Excel dosyasını açarak bağlanma

Dim objExcel As New Excel.Application

Dim exWb As Excel.Workbook

Set exWb = objExcel.Workbooks.Open("c:\adrestakip.xls") 

 alıntıdır.