VBA ADIDAS

Sub 開檔()




Workbooks.Open Filename:= _

"C:\Users\alexmysir\Desktop\07.FW11\2.xls"

Sheets("Comparison").Select

Range("A4:D53").Select

Selection.Copy

Windows("new.xls").Activate



Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _

xlNone, SkipBlanks:=False, Transpose:=False





Application.CutCopyMode = False

Selection.End(xlToRight).Select

ActiveCell.Offset(0, 2).Select



Windows("2.xls").Activate

ActiveWindow.Close

End Sub

Sub 調整()

'

' 調整 Macro

' alexmysir 在 11/26/2010 錄製的巨集

'



'

Cells.Select

Cells.EntireColumn.AutoFit

Range("A1").Select

End Sub

Sub 開檔二()



Workbooks.Open Filename:= _

"C:\Users\alexmysir\Desktop\07.FW11\1.xls"

Sheets("Comparison").Select

Range("C4:D53").Select

Selection.Copy

Windows("new.xls").Activate



Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _

xlNone, SkipBlanks:=False, Transpose:=False





Application.CutCopyMode = False



Windows("1.xls").Activate

ActiveWindow.Close

End Sub











Sub 整合()

開檔

開檔二



調整





End Sub



Sub 儲存()

'

' 儲存 Macro

' alexmysir 在 11/26/2010 錄製的巨集

'



'

ActiveWorkbook.SaveAs Filename:="C:\Users\alexmysir\Desktop\07.FW11\21.xls", _

FileFormat:=xlNormal, Password:="", WriteResPassword:="", _

ReadOnlyRecommended:=False, CreateBackup:=False

End Sub