|
vba worksheeteigenschaften |
 |
 |
 |
|
Geschrieben von: Marcus Rose
|
|
Samstag, 26. April 2008 um 07:52 Uhr |
Worksheeteigenschaften (BuiltinDocumentProperties) auslesen Dieses Makro habe ich hier als einen Array hinterlegt, obwohl man die Dokumenteigenschaften auch ohne diesen auslesen kann. Den Array habe ich nur verwendet, damit Ihr vielleicht erkennen könnt, wie dieser angewendet wird. Euch werden hier alle Eigenschaften, eines Tabellenblattes, angezeigt. | Variable | Name | Anzeige | | 1 | Title | Beispiel | | 2 | Subject | Array | | 3 | Author | Marcus Rose | | 4 | Keywords | Excel,Array,BuiltinDocumentProperties,Worksheeteigenschaften | | 5 | Comments | Den kann ich immer geben | | 6 | Template | | | 7 | Last author | Marcus Rose | | 8 | Revision number | | | 9 | Application name | Microsoft Excel | | 10 | Last print date | 02.09.2006 07:22 | | 11 | Creation date | 01.09.2006 16:41 | | 12 | Last save time | 03.09.2006 07:56 | | 13 | Total editing time | 0 | | 14 | Number of pages | | | 15 | Number of words | | | 16 | Number of characters | | | 17 | Security | 0 | | 18 | Category | Excel Beispiele | | 19 | Format | | | 20 | Manager | gibbet net | | 21 | Company | privat | | 22 | Number of bytes | | | 23 | Number of lines | | | 24 | Number of paragraphs | | | 25 | Number of slides | | | 26 | Number of notes | | | 27 | Number of hidden Slides | | | 28 | Number of multimedia clips | | | 29 | Hyperlink base | 12345 | | 30 | Number of characters (with spaces) | |
Option Explicit
Sub arrai()
Dim bprop(30, 2) As Variant
Dim i As Integer
On Error Resume Next
ActiveSheet.Range("A1:C1").Value = Array("Variable", "Name", "Anzeige")
For i = 1 To 30
Cells(i + 1, 1) = i
bprop(i, 1) = ActiveWorkbook.BuiltinDocumentProperties(i).Name
Cells(i + 1, 2) = bprop(i, 1)
bprop(i, 2) = ActiveWorkbook.BuiltinDocumentProperties(i).Value
Cells(i + 1, 3) = bprop(i, 2)
Next
ActiveSheet.Columns("A:D").AutoFit
End Sub
Einige Einstellungen werden aus Datei - Eigenschaften ausgelesen. Somit könnt Ihr da natürlich auch diese Einstellungen setzen.
Das man hier aber auch ohne einen Array arbeiten könnte zeigt Euch folgendes Makro:
option explicit
Sub arrai2()
Dim i As Integer
On Error Resume Next
ActiveSheet.Range("A1") = "Variable"
ActiveSheet.Range("B1") = "Name"
ActiveSheet.Range("C1") = "Anzeige"
For i = 1 To 30
Cells(i + 1, 1) = i
Cells(i + 1, 2) = ActiveWorkbook.BuiltinDocumentProperties(i).Name
Cells(i + 1, 3) = ActiveWorkbook.BuiltinDocumentProperties(i).Value
Next
ActiveSheet.Columns("A:D").AutoFit
End Sub
|
|
Zuletzt aktualisiert am Samstag, 26. April 2008 um 08:08 Uhr |
VBA Makro Beispiele 