在word通过VBA打开excel数据文件

Sub op()
 
     Dim xlObj As Excel.Application, WK As Excel.Workbook, C As Excel.Range

    On Error Resume Next

   
     If Tasks.Exists("Microsoft Excel") = True Then

        Set xlObj = GetObject(, "Excel.Application")

    Else

        Set xlObj = CreateObject("Excel.Application") '´´½¨Excel

    End If

    Set WK = xlObj.Workbooks.Open("c:\tt.xls")

       
    Dim doc As Word.Document
    Dim tbl As Word.Table
    Dim Str As String

    
    Set doc = Application.ActiveDocument
    
    
    Set tbl = doc.Tables(1)