有几个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 , 基础类