Avatar billede mira96ac Novice
11. oktober 2007 - 13:36 Der er 8 kommentarer og
1 løsning

Hjælp til vba

Simpelt spørgsmål

Hvad betyder disse linier:

Sub auto_open()

    If ActiveWorkbook.BuiltinDocumentProperties(2) = "" Then
   
        ActiveWorkbook.BuiltinDocumentProperties(6) = "Model2"
   
        Application.Run "funk.xla!model2"
   
    End If


End Sub
Avatar billede w13 Novice
11. oktober 2007 - 13:43 #1
Jeg er ikke så stærk i VBA og slet ikke til Excel, men jeg fandt denne her, der måske giver lidt mere mening: http://www.vba-programmer.com/Snippets/Code_Word/Word_Document_Statistics.html

Som jeg ser det, er Properties(2) filens sti på computeren, og Properties(6) er hvornår den sidst blev gemt. Så hvis den ikke har nogen sti, skal den gøre noget :P
Avatar billede mira96ac Novice
11. oktober 2007 - 14:20 #2
Jeg forstår godt det sidste...

For der skal den køre en makro i en global xla-fil

Men jeg kan stadig ikke helt præcist lure det andet
Avatar billede epimetheus Nybegynder
11. oktober 2007 - 15:23 #3
Her er en liste over BuiltinDocumentProperties.


1 - Title
2 - Subject
3 - Author
4 - Keywords
5 - Comments
6 - Template
7 - Last author
8 - Revision number
9 - Application name
10 - Last print date
11 - Creation date
12 - Last save time
13 - Total editing time
14 - Number of pages
15 - Number of words
16 - Number of characters
17 - Security
18 - Category
19 - Format
20 - Manager
21 - Company
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
30 - Number of characters (with spaces)


Som jeg ser det, så er properties 2 = subject og properties 6 = template.
Avatar billede mira96ac Novice
11. oktober 2007 - 15:46 #4
Og hvordan tolker man så det ?
Avatar billede epimetheus Nybegynder
11. oktober 2007 - 15:50 #5
Ja det er jo så det vi kan håbe der er en anden der træder til.
Jeg fandt bare listen og håbede at en af dem der kigger med kan tolke det.
11. oktober 2007 - 15:54 #6
Din kode betyder således:

Sub auto_open()
    'HVIS  Files/Properties feltet 2 (Subject) er tomt SÅ
    If ActiveWorkbook.BuiltinDocumentProperties(2) = "" Then
        'SÅ skriv "Modul2" i felt 6 (Tempalte)
        ActiveWorkbook.BuiltinDocumentProperties(6) = "Model2"
        'og kør makto model2 fra excel addin "funk.xla"
        Application.Run "funk.xla!model2"
    End If
End Sub
Avatar billede mira96ac Novice
11. oktober 2007 - 16:12 #7
Dvs. man bruger den "kun" til at udfylde felt 6... hvad det så end er.

Men jeg går ud fra at det måske har noget at gøre med informationer lagret i filen som man kan søge efter via stifinder e.l.
11. oktober 2007 - 16:17 #8
Document properties svarer jo til meta-data - info om filen (højreklik på en fil og du har den slags info), og så køres der en makro, som sikkert indstiller et eller andet i filen til passe til "modul2", hvad så end det kan være.
Avatar billede mira96ac Novice
11. oktober 2007 - 16:55 #9
OK

Tak for hjælpen
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester