I en Excel fil skal der gemmes en PDF fil som skal navngives med teksten i celle D1 op den skal placer sig på skriveboret på den PC som den aktiveres fra, der kan være flere bruger, men skal altid placeres på brugers skrivebord.. Hvad er galt med nedestående??
*************** 'Fil sti Dim fil_sti As String fil_sti = C:\Users\%username%\Desktop
'Load navn fra celle D1 Range("D1").Select Dim filnavn As String filnavn = ActiveCell.Value
'--------------------------
'Opret PDF dokument og gem på angivet sti placering ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ fil_sti & "\" & filnavn, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=True
som kabbak skriver mangler du "" når du opretter din variabel - men du skal have den delt op i 3, således at du kan få selve brugernavnet "puttet ind" - så den linie bør vel se således ud:
fil_sti = "C:\Users\" & Application.UserName & "\Desktop" mvh Kurt
i min lidt komprimerede udgave ser koden ud som her:
Sub saveaspdf()
'definerer variabler Dim fil_sti, filnavn As String
'Opret PDF dokument og gem på angivet sti placering ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fil_sti & "\" & filnavn, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub
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.
