vb6调用excel实例.txt

Sub 复合调用excel()

    Dim ElApp As Object '创建一个excelapp应用的对象
    Set ElApp = GetObject(, "Excel.Application") '注意括号中有“，”
    ElApp.Visible = True '设置应用显示
    
    Dim targetBook As Object '创建一个工作簿对象
    Set targetBook = ElApp.ActiveWorkbook '获取一个已经打开的工作簿（注意要事先打开，是要被编辑的）
        
    Dim SourceBook As Object '创建一个工作簿对象
    For Each w In ElApp.Workbooks '判断要用的源数据工作簿是否已经打开
        If w.Name = "源数据.xlsx" Then
            sTmpName = w.Name
        End If
    Next
    
    If sTmpName <> "" Then
        Set SourceBook = ElApp.Workbooks(sTmpName) '如果源数据工作簿是否已经打开，则获取源数据工作簿
    Else
        Set SourceBook = ElApp.Workbooks.Open("c:\源数据.xlsx", 0, True) '（路径，不更新外部链接，只读模式）  '如果源数据工作簿未打开，则打开源数据工作簿
    End If

    targetBook.Activate '激活被编辑的工作簿
    targetBook.ActiveSheet.Cells(5, 5).Value = SourceBook.ActiveSheet.Cells(5, 5).Value '编辑
    targetBook.ActiveSheet.Cells(5, 5).Select '选择单元格
    MsgBox ElApp.Selection.address(0, 0) '获取已经选择的单元格地址
    
    With targetBook.ActiveSheet '获取值（应用with语句）
        MsgBox .Cells(5, 5).Value
    End With