Как я могу сделать автоматический макрос на excel?

Question

Я сделал этот макрос:

Sub clean() 
' clean Macro 
ChDir "C:\_deletelater\xls" 
Workbooks.OpenText filename:="C:\_deletelater\xls\traxreport.xls", Origin:= _ 
    437, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ 
    ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _ 
    , Space:=False, Other:=False, FieldInfo:=Array(1, 1), _ 
    TrailingMinusNumbers:=True 
Range("A1:AD18").Select 
Selection.Delete Shift:=xlUp 
Columns("A:A").Select 
Selection.Replace What:="DYN", Replacement:="", LookAt:=xlPart, _ 
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False 
Selection.Replace What:="WOO", Replacement:="", LookAt:=xlPart, _ 
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False 
Selection.Replace What:="MIS", Replacement:="", LookAt:=xlPart, _ 
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False 
Selection.Replace What:="BAS", Replacement:="", LookAt:=xlPart, _ 
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False 
Selection.Replace What:="BAR", Replacement:="", LookAt:=xlPart, _ 
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False 
Selection.Replace What:="DLC", Replacement:="", LookAt:=xlPart, _ 
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False 
Selection.Replace What:="SYN", Replacement:="", LookAt:=xlPart, _ 
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False 
ActiveWorkbook.SaveAs filename:="C:\_deletelater\xls\traxreport.csv", _ 
    FileFormat:=xlCSV, CreateBackup:=False 
ActiveWorkbook.Save 
ActiveWindow.Close 
End Sub 

Я хочу просто нажмите на мой файл XLSM и когда он откроется, я хотел бы, чтобы файл, который будет сохранен в:

ActiveWorkbook.SaveAs filename:="C:\_deletelater\xls\traxreport.csv", _ 
    FileFormat:=xlCSV, CreateBackup:=False 
ActiveWorkbook.Save 

, чтобы создать без мне нужно нажать кнопку запуска макроса.

Answer 1

Вам нужно убедиться, что файл настроен как надежный, но вы можете поместить код в раздел ThisWorkbook за кулисами, который вызывает макрос, когда он запускается при открытии рабочей книги.

Там в статье Microsoft подробно, как это сделать ... http://office.microsoft.com/en-gb/excel-help/running-a-macro-when-excel-starts-HA001034628.aspx