R
RANDY IN NC
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
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