摘要： The Workbooks CollectionSub ActivateWorkbook1() Dim sFullName As String Dim sFileName As String Dim wkb As Workbook sFullName = “C:\Data\SalesData1.xlsx” sFileName = sGetFileName(sFullName) If bIsWorkbookOpen(sFileName) Then Set wkb = Workbooks(sFileName) wkb.Activate Else Set wkb = Workbooks.Ope... 阅读全文