18. august 2004 - 10:38Der 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?
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"
Synes godt om
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).
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.
Og så synes jeg, at det er noget rod, at du afviser et svar, før du ved, om det kan bruges.
Synes godt om
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
Synes godt om
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. !~)
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
Synes godt om
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...
Synes godt om
Ny brugerNybegynder
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.