vb中遍歷當前已打開Excel作業簿名稱

這段代碼在架設有打開3個Excel作業薄的情況下。運行沒有回傳作業薄名稱。。 也就是wbs.workbooks.count = 0  正常應該是= 3 的

uj5u.com熱心網友回復：

你對office物件模型的理解有點偏差。
Excel.Application管不了已經打開的作業簿，只能控制由這個ExcelApplication打開或者創建的作業簿。
在代碼運行之前打開的excel和wbs物件沒有半點關系。

uj5u.com熱心網友回復：

參考 4 樓 Runnerchin 的回復:

你對office物件模型的理解有點偏差。
Excel.Application管不了已經打開的作業簿，只能控制由這個ExcelApplication打開或者創建的作業簿。
在代碼運行之前打開的excel和wbs物件沒有半點關系。

但實際程序用這段代碼有時候還是能正常檢測到不是由 ExcelApplication打開或者創建作業簿 的名稱..所以這才是我奇怪的地方

uj5u.com熱心網友回復：

Dim wbk As Excel.Workbook

Private Sub Command1_Click()

For Each wbk In Excel.Application.Workbooks

    MsgBox wbk.Name

Next

End Sub

uj5u.com熱心網友回復：

參考 6 樓 zhao4zhong1 的回復:

Dim wbk As Excel.Workbook

Private Sub Command1_Click()

For Each wbk In Excel.Application.Workbooks

    MsgBox wbk.Name

Next

End Sub

這樣測驗了也不行,沒有回傳名稱

uj5u.com熱心網友回復：

這個不是通過Excel.application打開的   但是運行卻能回傳作業薄名稱

uj5u.com熱心網友回復：

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

uj5u.com熱心網友回復：

趙老師今天居然沒有復制粘貼，可喜可賀。雖然你給的代碼一段壓根跑不了，另一段也是答非所問。
如果一定要獲取打開的excel物件，那就只能用GetObject來獲取。GetObject(檔案名)來獲取Excel物件，進一步通過obj.Application來獲取Application物件，然后回傳過來再用app.workbooks("檔案名")來確認是不是已經打開（報錯就是沒打開）。
http://club.excelhome.net/thread-1217906-1-1.html

uj5u.com熱心網友回復：

誰說我給的代碼就一定能跑來著？！

uj5u.com熱心網友回復：

 
GetObject 函式

      

回傳檔案中的 ActiveX 物件的參考。

語法

GetObject([pathname] [, class])

GetObject 函式的語法包含下面幾個命名引數：

部分 描述 
pathname 可選的；Variant (String)。包含待檢索物件的檔案的全路徑和名稱。如果省略 pathname，則 class 是必需的。 
class 可選的；Variant (String)。代表該物件的類的字串。 


其中，class 引數的語法格式為 appname.objecttype，且語法的各個部分如下：

部分 描述 
appname 必需的；Variant (String)。提供該物件的應用程式名稱。 
objecttype 必需的；Variant (String)。待創建物件的型別或類。 


說明

使用 GetObject 函式可以訪問檔案中的 ActiveX 物件，而且可以將該物件賦給物件變數。可以使用 Set 陳述句將 GetObject 回傳的物件賦給物件變數。例如：

Dim CADObject As Object
Set CADObject = GetObject("C:\CAD\SCHEMA.CAD")

當執行上述代碼時，就會啟動與指定的 pathname 相關聯的應用程式，同時激活指定檔案中的物件。

如果 pathname 是一個零長度的字串 ("")，則 GetObject 回傳指定型別的新的物件實體。如果省略了 pathname 引數，則 GetObject 回傳指定型別的當前活動的物件。如果當前沒有指定型別的物件，就會出錯。

有些應用程式允許只激活檔案的一部分，其方法是在檔案名后加上一個驚嘆號 (!) 以及用于標識想要激活的檔案部分的字串。關于如何創建這種字串的資訊，請參閱有關應用程式創建物件的檔案。

例如，在繪圖應用程式中，一個存放在檔案中的圖可能有多層。可以使用下述代碼來激活圖中被稱為 SCHEMA.CAD 的層：

Set LayerObject = GetObject("C:\CAD\SCHEMA.CAD!Layer3")

如果不指定物件的 class，則自動化會根據所提供的檔案名，來確定被啟動的應用程式以及被激活的物件。不過，有些檔案可能不止支持一種物件類。例如，圖片可能支持三種不同型別的物件：Application 物件，Drawing 物件，以及 Toolbar 物件，所有這些都是同一個檔案中的一部分。為了說明要具體激活檔案中的哪種物件，就應使用這個可選的 class 引數。例如：

Dim MyObject As Object
Set MyObject = GetObject("C:\DRAWINGS\SAMPLE.DRW", "FIGMENT.DRAWING")

在上述例子中，FIGMENT 是一個繪圖應用程式的名稱，而 DRAWING 則是它支持的一種物件型別。

物件被激活之后，就可以在代碼中使用所定義的物件變數來參考它。在前面的例子中，可以使用物件變數 MyObject 來訪問這個新物件的屬性和方法。例如：

MyObject.Line 9, 90
MyObject.InsertText 9, 100, "Hello, world."
MyObject.SaveAs "C:\DRAWINGS\SAMPLE.DRW"

注意 當物件當前已有實體，或要創建已加載的檔案的物件時，就使用 GetObject 函式。如果物件當前還沒有實體，或不想啟動已加載檔案的物件，則應使用 CreateObject 函式。

如果物件已注冊為單個實體的物件，則不管執行多少次 CreateObject，都只能創建該物件的一個實體。若使用單個實體物件，當使用零長度字串 ("") 語法呼叫時，GetObject 總是回傳同一個實體，而若省略 pathname 引數，就會出錯。不能使用 GetObject 來獲取 Visual Basic 創建的類的參考。

將物件參考賦予變數 


在宣告物件變數之后，必須給變數賦值物件參考，才能使用物件的屬性、方法及事件。可以用幾種方法賦值一個新的物件參考： 

如果用 New 關鍵字宣告了變數，在第一次使用該變數時，Visual Basic 會自動地賦值一個新的物件參考。


可以用 New 關鍵字或 CreateObject 函式，在 Set 陳述句中賦值對一個新的物件的參考。


可以用 GetObject 函式，在 Set 陳述句中賦值對新的或已有的物件的參考。 
用 New 關鍵字賦值物件參考
如果 ActiveX 部件提供一個型別庫，就可以在變數宣告或 Set 陳述句中，用 New 關鍵字創建一個新物件并將物件參考賦予物件變數。

如果用 New 關鍵字宣告一個物件變數，在第一次使用該變數時，Visual Basic 會自動地創建一個新物件。關于更詳細的資訊，請參閱“宣告物件變數”。

也可以在 Set 陳述句中，使用 New 關鍵字賦值對特定類的新物件的參考。例如，下列陳述句將對于新的 DAO 表物件的參考賦予變數 tdfOrders，將表的 Name 屬性設定為 "Orders"：

Dim tdfOrders As DAO.TableDef
Set tdfOrders = New DAO.TableDef
tdfOrders.Name = "Orders"

詳細資訊 請參閱“Dim 陳述句”或“Set 陳述句”。

用 CreateObject 賦值物件參考
不管 ActiveX 是否提供一個型別庫，可以在 Set 陳述句中使用 CreateObject 函式創建一個新物件，并將物件參考賦予一個物件變數。必須規定物件的編程識別符號作為函式的引數，而且想要訪問的物件必須是外部可創建的。

要用 CreateObject 賦值物件參考，請 

對 CreateObject 使用下列語法。 
Set objectvariable = CreateObject ("progID") 

通常，progID 引數是正在創建物件的完全限定類名，例如 Word.Document。但是，progID 也可以與類名不同。例如，Microsoft Excel 物件的 progID 是 "Sheet" 而不是 "Worksheet"。可以指定可選的 servername 引數來創建一個在跨網路的遠程機器上的物件。它占用共享名稱的 Machine Name 部分。例如，帶有網路共享名稱的 \\MyServer\Public，servername 引數將會是 "MyServer"。

下列代碼例子啟動 Microsort Excel （如果Microsft Excel 尚未運行）并創建變數 xlApp 來參考一個 Application 類的物件。引數 "Excel. Application" 充分限定 Application 為 Microsoft Excel 定義的類：

Dim xlChart As Excel.Chart
Set xlChart = CreateObject("Excel.Chart")

下列代碼啟動 Microsoft Excel 并創建變數 xlSheet 來參考 Worksheet 類的物件：

Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")

詳細資訊 請參閱“CreateObject 函式”。

用 GetObject 賦值物件參考
雖然 GetObject 函式也能用于賦值對一個新物件的參考，但是它一般還是用于賦值對已經存在的物件的參考。

使用下列語法，賦值對現存的物件的參考。

Set objectvariable = GetObject([pathname] [, progID])

pathname 引數可能是一個現存檔案的路徑、一個空字串，也可以完全省略。如果被省略，則要求 progID。指定一個現存檔案的路徑，將引起 GetObject 使用存于檔案中的資訊創建一個物件。如第一個引數為空字串，則 GetObject 的作用與 CreateObject 一樣，將創建編程識別符號是 progID 的類的一個新物件。下串列格描述了使用 GetObject 的結果。

如果 ActiveX 部件正在運行 結果 
Set X = GetObject(, "MySrvr.Application")
 X 參考一個現存的 Application 物件。 
Set X = GetObject("", "MySrvr.Object") X 參考一個新的，外部可創建的物件。 
如果 ActiveX 部件沒在運行 結果 
Set X = GetObject(, "MySrvr.Object") 回傳一個錯誤 
Set X = GetObject("", "MySrvr.Object") ActiveX 部件 (MySrvr) 被啟動，X 參考一個新的物件。 


例如，變數 wrdApp 參考一個正在運行的 Microsoft Wor Applicatdion：

Dim wdApp As Word.Application
Set wdApp = GetObject("", "Word.Application")

同 CreateObject 一樣，引數 "Word.Application" 是一個由 Microsoft word 定義的 Application 類的編程標志符。如果有多個 Microsoft Word 實體在運行，不能預先指出 wdApp 將參考那個實體。

重點 可以用 GetObject 賦值對復合檔案檔案中的物件參考。一個復合檔案檔案含有對多個物件型別的參考。例如，一個復合檔案檔案可以含有電子資料表，文本與位圖。

如果電子資料表應用程式還沒有運行，下列例子就啟動該程式并打開檔案 Revenue.xls:

Dim xlBook As Excel.Workbook
Set xlBook = GetObject("C:\Accounts\Revenue.xls")

詳細資訊 請參閱“GetIObject 函式”。

uj5u.com熱心網友回復：

for each wbk in excel.workbooks
      msg(wbk.name)
next wbk

uj5u.com熱心網友回復：

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

試過了，沒問題，即使不是程式創建的也可以讀到。但是有前提，就是我用WPS打開的excel檔案就可以讀到，拿EXCEL2007打開的excel檔案讀不到。而且必須程式先運行起來，然后再打開excel檔案，才能讀到標題，如果是在程式運行之前就已經打開的excel檔案讀不到。

不知道是不是與安裝的office版本有關系。

uj5u.com熱心網友回復：

Dim wbk As Excel.Workbook
Dim wbs As New Excel.Application

Private Sub Command1_Click()
wbs.open ....打開你需要操作得xls檔案
    For Each wbk In wbs.Workbooks
        MsgBox wbk.Name
    Next
End Sub

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/40408.html

標籤：VB基礎類

上一篇：IE物件操作失效的問題。。。走過路過都來看下了，謝謝

下一篇：adodb.command.activeconnection報錯