%A_UserName% Is Killing Me! I Need Help. Topic is solved

[Haan]

Hi everyone. Please, I need help. This my code:

Code: Select all

#SingleInstance force	;{
#Persistent
#WinActivateForce
#NoEnv					;}


IfExist C:\Users\%A_UserName%\Desktop\File3.xlsx
	{
		Excel := ComObjCreate("Excel.Application")
		Excel := ComObjActive("Excel.Application")
		Excel.Workbooks.Open("C:\Users\%A_UserName%\Desktop\File3.xlsx")
	}
IfNotExist C:\Users\%A_UserName%\Desktop\File3.xlsx
	{
		Excel := ComObjCreate("Excel.Application")
		Excel.Workbooks.Add
		Excel.ActiveWorkbook.SaveAs("C:\Users\%A_UserName%\Desktop\File3.xlsx")
	}

Excel.Visible := true
KeyWait RShift, D
Excel.Quit

Excel.Workbooks.Open("C:\Users\%A_UserName%\Desktop\File3.xlsx") and
Excel.ActiveWorkbook.SaveAs("C:\Users\%A_UserName%\Desktop\File3.xlsx")

Seems not to work. I am doing this script to give it to some friends. Thats the reason I wanna use " %A_UserName% ". I am stuck with this, and I appreciate any help

[Xtra]

Functions use expression syntax.

Code: Select all

Excel.Workbooks.Open("C:\Users\" . A_UserName . "\Desktop\File3.xlsx")

Excel.ActiveWorkbook.SaveAs("C:\Users\" . A_UserName . "\Desktop\File3.xlsx")

[Haan]

Functions use expression syntax.

Code: Select all

Excel.Workbooks.Open("C:\Users\" . A_UserName . "\Desktop\File3.xlsx")

Excel.ActiveWorkbook.SaveAs("C:\Users\" . A_UserName . "\Desktop\File3.xlsx")

Worked beautifuly

Thank You Xtra.
You give me back my peace of mind. I was very frustrated