Save as not working
 

Please I really need some help... Yesterday I made a post but I must not
have explained the problem well enough.. no response.. let me try
again.

The code follows..(yesterdays did not include the beginning)

When I first get turn on my computer in the morning the following code
will fail at "save as".... If i create a manual dummy excel file and
manually save it to the ftp sight... that save will work... then I can
go back to the workbook that contains the macro and then it works just
fine....

I am running windows 2000 it had been run on a machine that is running
xp with the same result.. and one machine with xp that it worked fine
on..
(It was written using excel 2000)

I need any suggestion I can get... there is something here that I do
not understand...

ub SUBMIT()
'
' SUBMIT Macro
' Macro recorded 12/27/2005 by Randy
'

'
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Sheets("system order").Select
Cells.Select
Selection.Copy
Workbooks.Add
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Sheets(Array("Sheet2", "Sheet3")).Select
Sheets("Sheet2").Activate
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
Dim sStr As String
sStr = "ftp://(this has the ftp address signon and passwork/"
sStr = sStr & _
ActiveWorkbook.Worksheets(1) _
..Range("a2").Text
sStr = sStr & "_"
sStr = sStr & Format(Now, "mm-dd-yy_hh-mm")
sStr = sStr & ".csv"
ActiveWorkbook.SaveAs _
Filename:=sStr, FileFormat:=xlCSV
ActiveWorkbook.Close
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


--
RANDY IN NC
------------------------------------------------------------------------
RANDY IN NC's Profile: http://www.excelforum.com/member.php...o&userid=29778
View this thread: http://www.excelforum.com/showthread...hreadid=511041

Save as not working
 

Hi Randy

Never saved to ftp:// before, but I thought I would be polite and reply

Are you sure there is something in A2

You seem to be missing a point (period if your in NC I suppose) in front of
the Range("A2").Text line

All the best


"RANDY IN NC"
wrote in message
...

Please I really need some help... Yesterday I made a post but I must not
have explained the problem well enough.. no response.. let me try
again.

The code follows..(yesterdays did not include the beginning)

When I first get turn on my computer in the morning the following code
will fail at "save as".... If i create a manual dummy excel file and
manually save it to the ftp sight... that save will work... then I can
go back to the workbook that contains the macro and then it works just
fine....

I am running windows 2000 it had been run on a machine that is running
xp with the same result.. and one machine with xp that it worked fine
on..
(It was written using excel 2000)

I need any suggestion I can get... there is something here that I do
not understand...

ub SUBMIT()
'
' SUBMIT Macro
' Macro recorded 12/27/2005 by Randy
'

'
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Sheets("system order").Select
Cells.Select
Selection.Copy
Workbooks.Add
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Sheets(Array("Sheet2", "Sheet3")).Select
Sheets("Sheet2").Activate
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
Dim sStr As String
sStr = "ftp://(this has the ftp address signon and passwork/"
sStr = sStr & _
ActiveWorkbook.Worksheets(1) _
Range("a2").Text
sStr = sStr & "_"
sStr = sStr & Format(Now, "mm-dd-yy_hh-mm")
sStr = sStr & ".csv"
ActiveWorkbook.SaveAs _
Filename:=sStr, FileFormat:=xlCSV
ActiveWorkbook.Close
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


--
RANDY IN NC
------------------------------------------------------------------------
RANDY IN NC's Profile:
http://www.excelforum.com/member.php...o&userid=29778
View this thread: http://www.excelforum.com/showthread...hreadid=511041

Save as not working
 

Thank you for your reply I do appriciate it... And yes there is
something in "a2" and I guess it does not show up well in the copy I
made for this post... but there is a point (period) preceeding the word
"range" in that line.

Thank you so much, any help is appriciated..



Steve Wrote:
Hi Randy

Never saved to ftp:// before, but I thought I would be polite and
reply

Are you sure there is something in A2

You seem to be missing a point (period if your in NC I suppose) in
front of
the Range("A2").Text line

All the best


"RANDY IN NC"

wrote in message
...

Please I really need some help... Yesterday I made a post but I must
not
have explained the problem well enough.. no response.. let me try
again.

The code follows..(yesterdays did not include the beginning)

When I first get turn on my computer in the morning the following
code
will fail at "save as".... If i create a manual dummy excel file and
manually save it to the ftp sight... that save will work... then I
can
go back to the workbook that contains the macro and then it works
just
fine....

I am running windows 2000 it had been run on a machine that is
running
xp with the same result.. and one machine with xp that it worked
fine
on..
(It was written using excel 2000)

I need any suggestion I can get... there is something here that I do
not understand...

ub SUBMIT()
'
' SUBMIT Macro
' Macro recorded 12/27/2005 by Randy
'

'
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Sheets("system order").Select
Cells.Select
Selection.Copy
Workbooks.Add
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Sheets(Array("Sheet2", "Sheet3")).Select
Sheets("Sheet2").Activate
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
Dim sStr As String
sStr = "ftp://(this has the ftp address signon and passwork/"
sStr = sStr & _
ActiveWorkbook.Worksheets(1) _
Range("a2").Text
sStr = sStr & "_"
sStr = sStr & Format(Now, "mm-dd-yy_hh-mm")
sStr = sStr & ".csv"
ActiveWorkbook.SaveAs _
Filename:=sStr, FileFormat:=xlCSV
ActiveWorkbook.Close
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


--
RANDY IN NC

------------------------------------------------------------------------
RANDY IN NC's Profile:
http://www.excelforum.com/member.php...o&userid=29778
View this thread:
http://www.excelforum.com/showthread...hreadid=511041



--
RANDY IN NC
------------------------------------------------------------------------
RANDY IN NC's Profile: http://www.excelforum.com/member.php...o&userid=29778
View this thread: http://www.excelforum.com/showthread...hreadid=511041