当前位置:编程学习 > VB >>

有几个excel文档打开了 VB如何得到它们的路径?

有几个excel文档打开了   VB如何得到它们的路径?  --------------------编程问答--------------------

    Dim objExcel As Object
    Dim i As Long

    Set objExcel = GetObject(, "Excel.Application")
    If Not (objExcel Is Nothing) Then
        For i = 1 To objExcel.Workbooks.Count
            Debug.Print objExcel.Workbooks(i).FullName 'FullName 为完整路径,Path为目录的路径,Name为工作簿名称
        Next i
    End If
--------------------编程问答-------------------- WorkBook的属性里有 --------------------编程问答-------------------- #1下解~~~~飘过~~~~ --------------------编程问答-------------------- #1正解~~~~飘过~~~~
补充:VB ,  基础类
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,