7,759
社区成员
发帖
与我相关
我的任务
分享
Dim wbk As Excel.Workbook
Dim wbs As New Excel.Application
Private Sub Command1_Click()
For Each wbk In wbs.Workbooks
MsgBox wbk.Name
Next
End Sub
Dim wbk As Excel.Workbook
Private Sub Command1_Click()
For Each wbk In Excel.Application.Workbooks
MsgBox wbk.Name
Next
End Sub
Private Sub Command1_Click()
Dim wbk As Object
Dim app As Object
Set app = CreateObject("Excel.Application")
app.workbooks.open "c:\new\项目材料损耗率.xlsx"
If app.workbooks.Count > 0 Then
For Each wbk In app.workbooks
Debug.Print wbk.Name
Next
Else
Debug.Print "No WorkBook!"
End If
app.workbooks.Close
Set app = Nothing
End Sub