Avatar billede Henry Poulsen Mester
14. februar 2008 - 00:27 Der er 4 kommentarer og
1 løsning

Kan VBA kode læse drev-sti betegnelse for en åbnet Exel fil

Jeg har et regneark på min USB nøgle. Afhængig af forskellige omstændigheder skal jeg køre arket på forskellige maskiner, og USB nøglen får forskellige drevbetegnelser. Jeg finder filen på USB drevet (dermed har jeg defineret drevet) og åbner den. Når makro i arket er kørt skal filen gemmes i en undermappe på USB nøglen. Kan jeg i makro erklære destinationen med en variabel, så filen automatisk gemmes i destinationsdrev/undermappe??
Hilsen
Henry
Avatar billede perhol Seniormester
14. februar 2008 - 06:28 #1
Nedenstående kode vil åbne "Gem Som" dialogboksen Gem Som i den mappe filen blev åbnet fra, med navneboksen sat til "FilNavn.xls".
Skift "FilNavn" i koden ud med det navn du vil gemme din fil under.
Så mangler du bare at vælge undermappe.

Sub GemSom()
    Application.Dialogs(xlDialogSaveAs).Show "FilNavn" & ".xls"
End Sub
14. februar 2008 - 07:39 #2
Når du åbner en Excel fil, så har ThisWorkbook.Path altid fat i stien dertil (dog uden en \ til sidst, og ThisWorkbook.Name holder filnavnet.

Du kan altså nemt lave en lille makro, som gør et eller andet for dig..

Sub GemEtSted()
    Const sUnderMappeNavn As String = "\Navnet\"
    ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & sUnderMappeNavn & ThisWorkbook.Name
End Sub
Avatar billede Henry Poulsen Mester
14. februar 2008 - 13:38 #3
Det er en fornøjelse, så hurtig gode ideer kommer fra jer. Begge forslag går i den rigtige retning, men flemingdahls er den mest komplette, Den har jeg skrevet ind i min makro, og det virkede perfekt.
Får jeg et svar fra dig, så jeg kan sende point?
14. februar 2008 - 22:29 #4
:-)
Avatar billede Henry Poulsen Mester
15. februar 2008 - 01:17 #5
Tak for hjælpen
Henry
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