Avatar billede Slettet bruger
18. august 2004 - 10:38 Der er 7 kommentarer og
1 løsning

Åben excel-fil via VBA

Jeg har en tabel indeholdende filnavn og placering. Eksempel: filnavn = oppetid og placering = F:\oppetid\prikrum oppetid, dvs. den samlede adresse er F:\oppetid\prikrum oppetid\oppetid

Er det muligt at lave en vba, som kan åbne "(placering+filnavn)"? og hvordan?
Avatar billede hekla Nybegynder
18. august 2004 - 11:08 #1
Lav reference til Excell i Tools/References. Herefter kan filen åbnes med:

Dim xls As New Excel.Application
xls.Visible = True
xls.Workbooks.Open Filename:="F:\oppetid\prikrum oppetid\oppetid.xls"
Avatar billede Slettet bruger
18. august 2004 - 11:18 #2
Hvordan samler jeg adressen, den ligger jo i 2 kolonner: filnavn og placering (af den mappe, som den ligger i). Grunden til at hele stien ikke ligger i placering er at det er muligt for brugeren at tilføje nye filnavne (uden at skulle skrive andet end filnavnet, det er jo de samme mapper, som der bliver gemt i).
Avatar billede hekla Nybegynder
18. august 2004 - 11:54 #3
Hvis du har stien og filnavnet i felt1 og felt2 i en formular, kan du gøre det vha:

Dim xls As New Excel.Application
dim strNavnOgSti as string
strNavnOgSti = me.felt1 & "\" & me.felt2 & ".xls"
xls.Visible = True
xls.Workbooks.Open Filename= NavnOgSti

De indskudte tegn '& "\"' og  '& ".xls"' kan udelades, hvis de står i felterne i forvejen.
Avatar billede hekla Nybegynder
18. august 2004 - 11:55 #4
Og så synes jeg, at det er noget rod, at du afviser et svar, før du ved, om det kan bruges.
Avatar billede Slettet bruger
18. august 2004 - 12:34 #5
!~)

Der er en runtime error "True.xls" blev ikke fundet. Debug standser ved xls.Workbooks.Open Filename= NavnOgSti
Avatar billede Slettet bruger
18. august 2004 - 14:27 #6
Det er som om at spørgsmålet går dødt, hvis det står som besvaret, selvom det ikke er accepteret. Derfor afviser jeg nogle gange hvis det ikke lige nøjagtig er løsningen. !~)
Avatar billede hekla Nybegynder
18. august 2004 - 17:50 #7
Sorry, der manglede et kolon efter FileName og så skulle den hedde strNavnOgSti

Dim xls As New Excel.Application
dim strNavnOgSti as string
strNavnOgSti = me.felt1 & "\" & me.felt2 & ".xls"
xls.Visible = True
xls.Workbooks.Open Filename:=strNavnOgSti
Avatar billede Slettet bruger
19. august 2004 - 08:50 #8
OK nu virker det, nu er der bare opstået andre småproblemer i formularen, men jeg skal nok knække det.
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
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

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