VSTO: acquisizione delle proprietà della cella di Excel in "bulk"

Question

Quando si recuperano valori da un intervallo in Excel, è molto più efficiente ottenere i valori in "bulk" (come array 2D) rispetto al ciclo di ogni riga e colonna. Ad esempio:

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

Con 25 celle non fa molta differenza, ma con 10.000 righe per 20 colonne si fa certamente. Fin qui tutto bene.

La mia domanda è: qualcuno ha trovato un modo per fare lo stesso tipo di recupero "alla rinfusa" per altre proprietà? Ad esempio, voglio trovare quali celle sono colorate in un certo modo. Mi piacerebbe fare qualcosa come "range.Interior.Color", ma che restituisce solo un valore, non una matrice di valori. E così finisco il ciclo, che è probabilmente 100 o anche 1000 volte più lento. Per i tavoli di grandi dimensioni, questo è davvero un killer.

PS: Sembra che Moltula si comporti proprio come. Valore: posso recuperarne più uno alla volta. Ma devo ancora convincere i colori a giocare bene.

Apprezzo il vostro aiuto!

Answer 1

Non penso che sia possibile ottenere tali proprietà come matrice a causa del modo in cui Excel memorizza tali informazioni. Excel non memorizza singolarmente la formattazione per ogni cella ma memorizza una particolare miscela di formati insieme a un "elenco" interno degli intervalli che utilizzano tale formato.

È possibile avere un'idea di come viene archiviata la formattazione creando un piccolo file di prova con vari formati e salvandolo come formato XML (almeno nel 2010, è necessario utilizzare "XML Spreadsheet 2003").

Questo article può anche aiutare.

Answer 2

"Voglio trovare quale le cellule sono colorate in un certo modo"

in VBA è possibile eseguire una routine rapido utilizzando il metodo Find che cerca per formato. Ad esempio, per trovare tutte le celle con lo stesso colore del carattere della cella e il colore interno della cella in A1. Presumo che si può usare qualcosa di simile in 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