Dim R3Table As Object
    Dim wordTbi As Object

Public Sub DOI_EXCEL_MACRO()

    Dim lv_count As Long
    Dim i As Integer
   

     Set R3Table = ThisWorkbook.Container.LINKSERVER.ITEMS("GT_SFLIGHT").Table
   
   
      Worksheets("1").Select
      Set wordTbi = ThisWorkbook.Worksheets(1)
 
   
    lv_count = R3Table.RowCount
    For i = 1 To lv_count
            wordTbi.Cells(i + 1, 1) = CVar(R3Table.Value(i, 1))
            wordTbi.Cells(i + 1, 2) = CVar(R3Table.Value(i, 2))
   
    Next i

   
End Sub