Prev: MSGBOX Run-time Error '13': Type mismatch
Next: Counting rows and inserting blank lines
From: JOSEPH WEBER on 27 Apr 2010 10:04
The following is code that I am using for a project. I want it to save as
based on a value that is in the source spreadsheet. It is supposed to open up
another spreadsheet and then save it as that value in the source spreadsheet.
the macro is stopping at the line where it needs to name the file, then save
it. can someone help?


Sub Upload()
Application.EnableCancelKey = xlDisabled
Sheets("Upload").Select

lastRow = Range("M10000").End(xlUp).Row

Range("M" & lastRow).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "END"


Call Copy_GL


Q = Range("n1")


Call VoucherNum





Range("a1:n1000").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste

'Application.Goto referenece:="gl_acct"
'ActiveCell.Offset(0, 1).Range("a1").Select
'ActiveCell.ClearContents
Rows("1:1").Select
Selection.Delete Shift:=xlUp

spath = "P:\Platinum\A_P IMPORT\Contractor Invoices\" & Q

ActiveWorkbook.SaveAs Filename:=[spath], _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False


ActiveWindow.Close
'windows("xxxxxxx").activate
Range("a3:m1000").ClearContents
Call name_fields









End Sub
From: joel on 27 Apr 2010 12:33

remove the brackets from spath

from
ActiveWorkbook.SaveAs Filename:=[spath], _
to
ActiveWorkbook.SaveAs Filename:=spath, _


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?u=229
View this thread: http://www.thecodecage.com/forumz/showthread.php?t=198807

http://www.thecodecage.com/forumz

 | 
Pages: 1
Prev: MSGBOX Run-time Error '13': Type mismatch
Next: Counting rows and inserting blank lines