CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede KenneyD71 Nybegynder
22. juni 2015 - 21:01 Der er 4 kommentarer og
1 løsning

VBA, åbn fil, desktop, flere usere

Jeg har en kodestreng, der skal åbne en fil på brugens skrivebord.

Koden hedder:

Sub Macro1()
   
    Workbooks.Open Filename:="C:\Users\KenneyD71\Desktop\KRAXBLA.xlsx"
   
End Sub

Problemet er så, at koden skal distribueres til flere usere, hvor usernavnet så naturligvis varierer.

Hvordan klarer man sådan een?
Avatar billede kim1a Ekspert
22. juni 2015 - 21:24 #1
Er det ikke blot application.username?

hvis du laver en variabel som tager den og så sætter den ind i din sætning.
Avatar billede kgkg Nybegynder
22. juni 2015 - 22:13 #2
Prøv med:

Workbooks.Open Filename:=CStr(Environ("USERPROFILE")) & "\Desktop\KRAXBLA.xlsx"
Avatar billede KenneyD71 Nybegynder
23. juni 2015 - 05:32 #3
Application.Username er ikke muligt, da netværk bruger andre profiler end application.

Det ser ud til at virke, kgkg. Jeg tester lige på en håndfuld maskiner på forskellige netværk.

Tak skal du have. Jeg vender tilbage.
Avatar billede KenneyD71 Nybegynder
23. juni 2015 - 19:15 #4
kgkg, det du'r.

Tak for hjælpen.

Husk at hente dine point!
Avatar billede KenneyD71 Nybegynder
22. juli 2015 - 06:57 #5
Kgkg hjalp med svaret:

Workbooks.Open Filename:=CStr(Environ("USERPROFILE")) & "\Desktop\KRAXBLA.xlsx".

Sagen lukkes.
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

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Markere dubletter ud fra reference felt. Af jthyge i Excel 3 I dag 08:46 I dag 13:48
Flytte indhold fra en celle til en anden Af torben lind i Excel 8 I går 14:34 I dag 10:46
Splitte tal og tekst Af HHA i Excel 11 30/04/202411:52 30/04/202415:14
Skrive tekst fra celle i formel Af SFrede i Excel 8 25/04/202414:54 26/04/202412:51
slette rækker automatisk Af torben lind i Excel 12 24/04/202418:52 26/04/202407:07
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 08:46 Markere dubletter ud fra reference felt. Af jthyge i Excel
I dag 08:46 MailChimp Survey Af Anita i Fri debat
I dag 08:28 Hvorfor kan jeg ikke udskrive i farver fra MacBook til Brother-printer Af LLB i Printere
I dag 01:19 Edge Af MOAN i Browsere
I går 19:52 Lille katalog til mine videoer. Af valby i Fri debat
White papers
Flere white papers »


Premium
Teaser billede
Forlanger svar på vigtige spørgsmål: Datatilsynet overvejer at åbne GDPR-sag om Rejsekort
Læs mere »
Sådan gik det til, da Vestas blev ramt af ødelæggende Lockbit-angreb - 500 servere kunne slet ikke patches
Statens It-råd: Nyt statsligt løn-system er højrisiko-projekt - her er bekymringerne
Itm8 rykker ind i Tyskland med opkøb af it-firma med 125 ansatte: Flere opkøb i Tyskland i kikkerten
Se alle »
Computerworld
Teaser billede
Her er Danmarks fem bedste CIO’er lige nu: Se de fem nominerede til prisen som Årets CIO 2024
Læs mere »
Prøvekørt: Sydkoreansk familie-kolos har plads til alle og sætter alle på plads
Apotekskæde lukker alle butikker efter "cybersikkerhedshændelse"
Test: Disse små højttalere til 44.000 kroner per sæt vil blæse dig bagover - både visuelt og lydmæssigt
Se alle »
CIO
Teaser billede
Her er Danmarks fem bedste CIO’er lige nu: Se de fem nominerede til prisen som Årets CIO 2024
Læs mere »
Top-CIO Anne Nørklit færdig hos Tryg: “Jeg vil bruge sommeren på at overveje, hvad fremtiden skal bringe”
Køber 25.000 Copilot-licenser af Microsoft i kæmpe-aftale - vil investere milliarder i AI
Microsoft skruer op for CPU-krav til den næste version af Windows 11: Færre brugere kan nu opdatere
Se alle »
Job & Karriere
Teaser billede
Her er Danmarks fem bedste CIO’er lige nu: Se de fem nominerede til prisen som Årets CIO 2024
Læs mere »
Knap 40 procent af disse it-folk tjener tjener mindst 57.000 kroner om måneden
Medarbejderne fik udleveret badetøfler ved indflytningen: Kom med inden for i IBM Danmarks nye topmoderne hovedkontor
Så meget tjener dine kollegaer: Her er alle data fra Computerworlds store it-lønstatistik for 2024
Se alle »
White paper
Teaser billede
Cybersikkerhed: Skær antallet af alarmer ned fra tusindvis til blot en håndfuld
Læs mere »
Nemmere overblik, styring og omkostningskontrol i dit multicloud-miljø
Guide: Sådan udvikler du en moderne netværksstrategi
SASE: Træf det rette valg – første gang
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »