Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() 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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Disable Save/Save As - not working? | Excel Discussion (Misc queries) | |||
Prompt to save changes not working | Excel Discussion (Misc queries) | |||
Save as isn't working | Excel Discussion (Misc queries) | |||
What do you do if you have auto save set, but it is not working? | Excel Discussion (Misc queries) | |||
Worksheet Buttons (Save, Save As, Cut, Paste, etc.) Not Working | Excel Worksheet Functions |