common code to save a file on the desktop in different systems

[RAJESH1960]

Hello Guys,
I want to share a workbook which has VBA protected codes with many people. It has a macro which converts the excel to XMLand saves it on the desktop. It works fine in my system.
When I share the file the other user is not able to save the file on his desktop. But gets an error. Is there a common code to save the macro on desktop in different systems.??
This is my code to save the file on my desktop.
strTempFile = "C:\Users\Admin\Desktop\importSales.xml"

 

[daverunt]

Try

Usr=Environ("username")

strTempFile = "C:\Users\" & Usr & "\Desktop\importSales.xml"

Also Windows Scripting

How to save Excel Worksheet to Desktop regardless of user?

I have an Excel Workbook that has an Export Button, on clicking it I want to save a copy of that worksheet to the user's Desktop in a text file format. Is their a way (coding-wise 'vba') to save that worksheet on user's Desktop without having to specify individual users? Thanks in advance!

www.mrexcel.com

 

[RAJESH1960]

Try

Usr=Environ("username")

strTempFile = "C:\Users\" & Usr & "\Desktop\importSales.xml"

Also Windows Scripting

How to save Excel Worksheet to Desktop regardless of user?

I have an Excel Workbook that has an Export Button, on clicking it I want to save a copy of that worksheet to the user's Desktop in a text file format. Is their a way (coding-wise 'vba') to save that worksheet on user's Desktop without having to specify individual users? Thanks in advance!

www.mrexcel.com

I am getting a compile error. variable not defined

 

[RAJESH1960]

Daverunt, I added an extra line at the top and got it working. Thanks

Dim usr As String

 

[daverunt]

I was just getting to that!
If you use Option Explicit you have to define the variable.

 

[RAJESH1960]

I was just getting to that!
If you use Option Explicit you have to define the variable.

Yes sir. I am using option explicit.