Excel vba

[bonden007]

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?

[Venoms]

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

 

Redigerad April 12, 2014 av Venoms

[bonden007]

Nej tyvärr. Jag får testa lite till men det verkar som om det inte går

[si3rra]

Ä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? Redigerad April 13, 2014 av si3rra

[Venoms]

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

[bonden007]

Tack!

Ni experter gjorde min dag. :)

[Venoms]

Kul att kunna hjälpa till