Włąściwości aktywnego arkusza (ActiveSheet)

Question

Czy ktoś może ma pomysł jak odczytać właściwości (properties) ActiverSheet - jaki kod VBA może te właściwości odczytać

Answer 1

Teraz dopiero rozumiem (mam nadzieje) do czego dążysz. Chcesz pobrać parametry obiektu workbook (nie jakieś włąsności arkusza)

Skoro jednak arkusz ci przyszedł do głowy, to pewnie chodzi o otwarty skoroszyt.

Uruchom sobie zatem taki kod:

Sub Metadane_pliku()

Dim prop As Object, x%: x = 1

Dim wks As Worksheet: Set wks = ThisWorkbook.Sheets.Add

For Each prop In ActiveWorkbook.BuiltinDocumentProperties

    On Error Resume Next

        wks.Cells(x, 1) = prop.Name

        wks.Cells(x, 2) = prop.Value

        x = x + 1

Next

End Sub

Answer 2

Chyba już wiem co znaczy x%; potwierdź proszę, że x% to x as Integer

Answer 3

Dzięki za podpowiedź - jeszcze jedna prośba odnośnie wyrażenia:

Dim prop As Object, x% 

rozumiem: Dim prop As Object, ale co oznacza x% po przecinku

Answer 4

W developerze VBA [Alt+F11] klikasz [F2] i masz przeglądarkę obiektów gdzie możesz odszukać wszelkie parametry obiektów.

Już to przećwiczyłem - w każdym razie dziękuję za podpowiedź

Mam jednak dylemat: tak jak dla Obiektu Workbook istnieje właściwość  BuiltinDocumentProperties

co pozwala wyciągnąć właściwości ww. obiektu bez problemu (w szczególności chodzi o ich wartości) - np. poniższym makrem

Sub wbp1()

' Właściwości skoroszytu z wykorzystaniem pętli For..... Next

    Dim rw As Integer, i As Integer       ' deklaracja zmiennych

'   licznik ilości właściwości obiektu Workbook

    rw = ActiveWorkbook.BuiltinDocumentProperties.Count

        For i = 1 To rw

'   Nazwa właściwości

            Sheet1.Cells(i, 4) = ActiveWorkbook.BuiltinDocumentProperties(i).Name

'   Liczba podządkowa włąściwości (Index)

            Sheet1.Cells(i, 5) = "Index " & i

'   sprawdzenie czy kolejna właściwość ma wartość (istnieje),

'   czyli wchodzi w zbiór właściwości dla obiektu Workbook

            On Error Resume Next

'   Wartość właściwości

            Sheet1.Cells(i, 6) = ActiveWorkbook.BuiltinDocumentProperties(i).Value

            If Err <> 0 Then Sheet1.Cells(i, 6) = "Not required by Excel"

            On Error Resume Next

        Next i

End Sub

tak dla obiektu Worksheet takiej (podobnej) właściwości nie ma - więc na tę chwilę nie wiem jak podobne makro napisać.

Answer 5

W developerze VBA [Alt+F11] klikasz [F2] i masz przeglądarkę obiektów gdzie możesz odszukać wszelkie parametry obiektów.