N
news
hello,
I've inherited a few excel files used at work. One of these has a few
macros.
I need to change the location the file is saved (the csv file). how can I
do this?
Thanks,
Dave
*****module3****************************
Sub DataSaver()
'
' DataSaver Macro
' Macro recorded 7/29/2003 by a user
'
'
ActiveSheet.Next.Select
Range("A1").Select
ActiveWorkbook.SaveAs Filename:= _
"\\ML370\tmp\icasdata.csv", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveSheet.Previous.Select
ActiveWorkbook.SaveAs Filename:= _
"..\My Documents\IcasDataEntrySystem.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Range("F20").Select
End Sub
' "\\SERVER\network data\Purchasing\Prices\Icas Data Creation System" _
*****************************************************
***********module4********************************
Sub Clear()
'
' Clear Macro
' Macro recorded 7/29/2003 by user
'
'
Application.Goto Reference:="DataEntry"
Selection.ClearContents
Application.Goto Reference:="R1C1"
Application.Goto Reference:="R13C1"
End Sub
***************************************************
*****************************module5**********
Sub SortByPart()
'
' SortByPart Macro
' Macro recorded 7/29/2003 by user
'
'
Application.Goto Reference:="R13C1"
Range("A13:Y20000").Sort Key1:=Range("B13"), Order1:=xlAscending,
Header
_
:=xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom _
End Sub
Sub SortByDescription()
'
' SortByDescription Macro
' Macro recorded 7/29/2003 by Ron Edmonds
'
'
Application.Goto Reference:="R13C1"
Range("A13:Y20000").Sort Key1:=Range("L13"), Order1:=xlAscending,
Header
_
:=xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom _
End Sub
***************************************************************
E:\network data\Purchasing\Prices\Icas Data Creation System <<<<< -
this is the location of the excel file.
I've inherited a few excel files used at work. One of these has a few
macros.
I need to change the location the file is saved (the csv file). how can I
do this?
Thanks,
Dave
*****module3****************************
Sub DataSaver()
'
' DataSaver Macro
' Macro recorded 7/29/2003 by a user
'
'
ActiveSheet.Next.Select
Range("A1").Select
ActiveWorkbook.SaveAs Filename:= _
"\\ML370\tmp\icasdata.csv", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveSheet.Previous.Select
ActiveWorkbook.SaveAs Filename:= _
"..\My Documents\IcasDataEntrySystem.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Range("F20").Select
End Sub
' "\\SERVER\network data\Purchasing\Prices\Icas Data Creation System" _
*****************************************************
***********module4********************************
Sub Clear()
'
' Clear Macro
' Macro recorded 7/29/2003 by user
'
'
Application.Goto Reference:="DataEntry"
Selection.ClearContents
Application.Goto Reference:="R1C1"
Application.Goto Reference:="R13C1"
End Sub
***************************************************
*****************************module5**********
Sub SortByPart()
'
' SortByPart Macro
' Macro recorded 7/29/2003 by user
'
'
Application.Goto Reference:="R13C1"
Range("A13:Y20000").Sort Key1:=Range("B13"), Order1:=xlAscending,
Header
_
:=xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom _
End Sub
Sub SortByDescription()
'
' SortByDescription Macro
' Macro recorded 7/29/2003 by Ron Edmonds
'
'
Application.Goto Reference:="R13C1"
Range("A13:Y20000").Sort Key1:=Range("L13"), Order1:=xlAscending,
Header
_
:=xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom _
End Sub
***************************************************************
E:\network data\Purchasing\Prices\Icas Data Creation System <<<<< -
this is the location of the excel file.