CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

joergensenmartin Juniormester

01. september 2012 - 17:46 Der er 9 kommentarer og
1 løsning

sti til skrivebord i makro

Hej ...... igen ;-)

Jeg har lavet en lille makro der gemmer det aktive ark som PDF på skrivebordet. Mit spørgsmål er så; hvad sker der når jeg bruger arket på en anden pc? Der er stien til skrivebordet jo ikke den samme. Kan man skrive det så det altid havner på skrivebordet, uanset hvilken computer man sidder ved?? Eller er jeg nød til at lægge det i roden af C: for at det altid havner det samme sted??

Sub gemsompdf()
'
' gemsompdf Makro
' Gemmer aktive ark som PDF
'

'
ChDir "C:\Users\Martin\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Martin\Desktop\timeopgørelse.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub

Synes godt om

supertekst Ekspert

01. september 2012 - 18:09 #1

Stien skal tilpasses efter den enkelte bruger.
Prøv at se på: Application.UserName

Synes godt om

nyhuus Nybegynder

01. september 2012 - 18:16 #2

Hejsa

Jeg har lagt fra erfaring med emnet, men en google søgning gav mig dette resultat, som umilbart ser fornuftig ud

http://www.vbaexpress.com/kb/getarticle.php?kb_id=216

altså
---
Dim DTAddress As String
DTAddress = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
---

burde gemme stien til dit skrivebord i variablen DTAddress

Synes godt om

store-morten Ekspert

01. september 2012 - 18:54 #3

Alternativ:

Sub gemsompdfDialogBox()
ChDir "c:"
Application.Dialogs(xlDialogSaveAs).Show _
arg1:="timeopgørelse", arg2:=57
End Sub

Synes godt om

store-morten Ekspert

01. september 2012 - 19:30 #4

#3
Kalder DialogBox.
Foreslår at gemme sammen sted som Excel filen er gemt.
Spørger om filen skal overskrives hvis den findes i forvejen.

Bruges #2 kunne den måske se sådan ud:

Sub gemsompdf()
'
' gemsompdf Makro
' Gemmer aktive ark som PDF
' Advarer ikke om overskrivning...

Dim DTAddress As String
DTAddress = CreateObject("WScript.Shell").SpecialFolders("Desktop") _
& Application.PathSeparator

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DTAddress & "timeopgørelse", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

Advarer ikke om overskrivning hvis den findes i forvejen.

Synes godt om

joergensenmartin Juniormester

07. september 2012 - 13:33 #5

Virker efter hensigten..... gider Morten smide et svar :-)

Synes godt om

store-morten Ekspert

07. september 2012 - 13:43 #6

Ja da....:-)
Hvilken version bruger du?

Synes godt om

joergensenmartin Juniormester

07. september 2012 - 15:08 #7

Af office??? hjemme er det 2010 og på arbejde er det 2000 - lidt endnu. Vi bliver opgraderet inden nytår, men jeg ved ikke til hvad.
Det er ellers blevet godt det regneark du har hjulpet med :-) Det har givet meget bedre overblik over mine timer, ferie, ferie-fridag, afspadsering og syge dage. Jeg har lavet det for hele året + en samlet årsoversigt :-)

Synes godt om

store-morten Ekspert

07. september 2012 - 15:55 #8

Nej, jeg mente nu:

Sub gemsompdfDialogBox() eller
Sub gemsompdf()

Velbekomme

Synes godt om

joergensenmartin Juniormester

07. september 2012 - 16:26 #9

Selvfølgelig gjorde du det. Er sq ikke rigtig vågen i dag ;-)

Sub gemsompdf()

den virker tilsyneladende fint. Den virker så bare ikke i office 2000 så jeg har ikke haft mulighed for at teste den når vi logger på Novel, men det burde vel ikke gøre den store forskel??

Tænker lige om man kan få den til at navngive med "sheetname"+"date" "yyy" f.eks. november2012, så er det nemmere at finde styr på filerne

jeg bliver ved med at finde på noget nyt ;-)

Synes godt om

store-morten Ekspert

07. september 2012 - 17:58 #10

Sub gemsompdf()
'
' gemsompdf Makro
' Gemmer aktive ark som PDF
' Advarer ikke om overskrivning...

Dim DTAddress As String
DTAddress = CreateObject("WScript.Shell").SpecialFolders("Desktop") _
& Application.PathSeparator

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DTAddress _
& " " & "timeopgørelse" _
& " " & ActiveSheet.Name _
& " " & Date, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
En formel som kan regne minutter om til timer... Af Oswald1 i Excel	3	21/01/202512:02	21/01/202512:52
Fejl meddelelse i excel 365 Af boro23 i Excel	4	21/01/202508:57	I går 20:34
Meddelelse ved dubblering af indhold Af h_s i Excel	3	20/01/202511:53	20/01/202514:37
Kæder til områder Af jetpet88 i Excel	1	20/01/202509:11	20/01/202509:38
Find og indsæt et tal i en "database" Af 1Dorte i Excel	4	18/01/202512:14	18/01/202521:35

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS