Jump to content

Excel vba


Go to solution Solved by Venoms,

Recommended Posts

Jag har gjort ett macro som hämtar en excelfil som är hämtad med chrome och lägger in det i ett befintligt dokument. Frågan är nu hur får jag detta att fungera i olika datorer med samma excelark? Chrome laddar  ju ner programmet i mappen "downloads" som grundinställning. Men i macrot har jag skrivit C:\Users\"namn på användare"\downloads. Använder jag programmet i en annan dator är det inte samma namn o då fungerar ju inte macrot. Finns det nåt enklare sätt att skriva sökvägen på så det passar i olika datorer utan att ändra inställningar?

Link to comment
Share on other sites

Om jag skriver i cmd.. kommer jag till rätt plats med: %userprofile%\downloads värt att prova kanske.. det borde fungera i vba också

 

det är lika som: %SystemDrive%\Users\{username}\downloads

 

Edited by Venoms
Link to comment
Share on other sites

Är tyvärr ingen expert på VBA men om du vill spara en fil till skrivbordet så kan man tydligen skriva så här:

Public Sub SaveToDesktop()

ThisWorkbook.SaveAs Filename:="C:\Users\" & Environ$("Username") & _

"\Desktop\" & ThisWorkbook.Name & "_copy", _

FileFormat:=xlOpenXMLWorkbookMacroEnabled

End Sub

Borde du inte i ditt projekt kunna använda "C:\Users\" & Environ$("Username") & _ "\downloads\ för att peka till "hämtade filer" i användarprofilen? Edited by si3rra
Link to comment
Share on other sites

  • Solution

Jag får väl säga som Si3rra,, jag är ingen expert på vba... men efter lite sökande så hittade jag denna kodsnutt..

Public Function MyDownloadsPath() As String

     MyDownloadsPath = Environ$("USERPROFILE") & "\\" & "Downloads"

 End Function

Dubbla backslash..

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
 Share

×
×
  • Create New...