Read dialog

[cow18]

hoe kan je een dialog uitlezen, stel ik wil alle customformats lezen die in het huidige bestand aanwezig zijn
met onderstaande zit ik al in de omgeving, maar ik kan blijkbaar alleen met "show" spelen

   Application.Dialogs(xlDialogFormatNumber).Show "dummy"

dan kan je er daar 1 uitpikken en verder doen, maar ik wil ze allemaal in een array krijgen.

 

[snb]

Ik vermoed dat je die kunt vinden in het ingepakte personal.xlsb bestand.
Ik zie in VBA geen verzameling van numberformats.

 

[jkpieterse]

Die zijn inderdaad terug te vinden in het styles.xml bestand in het xlsx/xlsm bestand zelf:

en dan in de numFmts sectie:


Bestanden uit de zip container van een xlsx/xlsm bestand halen middels VBA kan, zie: https://jkp-ads.com/articles/excel2007fileformat02.aspx

 

[AHulpje]

Of misschien zo:

Sub CustomFormats()
    With CreateObject("Scripting.Dictionary")
        For Each c In ActiveSheet.UsedRange()
            If Not .exists(c.NumberFormat) Then
                .Add c.NumberFormat, c.NumberFormat
                Debug.Print c.NumberFormat
            End If
        Next
    End With
End Sub

 

[jkpieterse]

Een bestand kan vele malen meer numberFormats bevatten dan er in de cellen zijn gebruikt