VSTO：在「批量」中獲取Excel單元格屬性

Question

從Excel中的範圍中獲取值時，以「批量」（作爲二維數組）的值比循環遍歷每行和每列更有效。例如：

Dim range = Globals.Table.Range("A1:E5") 
Dim values(,) As Object = range.Value 

擁有25個細胞中，這並沒有太大的差別，但有10,000行20列它當然不會。到現在爲止還挺好。

我的問題是：有沒有人找到一種方法來爲其他屬性做同樣的「批量」獲取？例如，我想查找哪些單元格以某種方式着色。我很想做一些類似「range.Interior.Color」的東西，但是這隻會返回一個的值，而不是數組的值。所以我最終循環，這可能是100甚至1000倍慢。對於大型桌子來說，這真是一個殺手。

PS：它看起來像.Formula的行爲就像.Value：我可以一次獲取多個。但我還沒有哄騙顏色變得好玩。

我感謝您的幫助！

Answer 1

我不認爲你可以將這些屬性作爲一個數組，因爲Excel存儲該信息的方式。 Excel不會爲每個單元單獨存儲格式，而是存儲特定的格式混合以及使用該格式的範圍的內部「列表」。

通過創建各種格式的小型測試文件並將其保存爲XML格式（至少在2010年，您需要使用「XML Spreadsheet 2003」），您可以瞭解格式存儲的方式。

This article may also help。

Answer 2

「我想找到哪些細胞着色以特定方式」

在VBA可以運行使用Find方法，通過格式搜索的快速程序。例如，查找與A1中的單元格具有相同單元格字體顏色和內部顏色的所有單元格。我相信你可以使用類似的東西在VSTO

Sub FindFormat() 
    Dim rng1 As Range 
    Dim rng2 As Range 
    Dim strAddress As String 
    With Application.FindFormat 
     .Interior.ColorIndex = [a1].Interior.ColorIndex 
     .Font.Color = [a1].Font.Color 
    End With 
    Set rng1 = Cells.Find("", [a1], xlFormulas, , , , , , True) 
    If Not rng1 Is Nothing Then 
     strAddress = rng1.Address 
     Set rng2 = rng1 
     Do 
      Set rng1 = Cells.Find("", rng1, xlFormulas, , , , , , True) 
      Set rng2 = Union(rng1, rng2) 
     Loop While rng1.Address <> strAddress 
     MsgBox "Range similar format to A1 is " & rng2.Address 
    End If 
End Sub