Форумы HiProg.com - MS ACCESS, VBA, VB

ник: shaucha
Ну тут не все так просто...
Ну, как пример (потому что и тут тоже не работает), вот:

DoCmd.OutputTo acTable, "tblRep_SKUCat", acFormatXLS, "КаталогSKU_Выборка.xls", True, "", 0 Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select With Selection     .VerticalAlignment = xlCenter     .HorizontalAlignment = xlGeneral     .Font.Name = "Verdana"     .Font.Size = 8     .Font.ColorIndex = 1     .Borders.LineStyle = xlContinuous     .Borders.Weight = xlThin     .Borders.ColorIndex = 56 End With Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select With Selection.Font     .Name = "Verdana"     .Size = 7 End With Selection.Font.Bold = True Columns("A:A").EntireColumn.AutoFit Columns("B:B").EntireColumn.AutoFit Columns("H:H").EntireColumn.AutoFit Columns("I:I").EntireColumn.AutoFit Columns("J:J").EntireColumn.AutoFit Range("A1:B1").Select Selection.Interior.ColorIndex = 56 Selection.Font.ColorIndex = 2 Range("E1").Select Selection.Interior.ColorIndex = 11 Selection.Font.ColorIndex = 2 Range("F1").Select Selection.Interior.ColorIndex = 10 Selection.Font.ColorIndex = 2 Range("G1").Select Selection.Interior.ColorIndex = 46 Selection.Font.ColorIndex = 2 Range("J1").Select Selection.Interior.ColorIndex = 56 Selection.Font.ColorIndex = 2 Range("C2").Select ActiveWindow.FreezePanes = True Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.AutoFilter ActiveWindow.DisplayGridlines = False Sheets("tblRep_SKUCat").Select Sheets("tblRep_SKUCat").Name = "Каталог SKU" Range("A1").Select ActiveWorkbook.Save