请教煮江品茶老师关于表格自动填色续

亿手遮天　发表于：2011-05-19 12:30:32 　

老师:以下是我录制的XLS宏,请问咋写到按钮里文件是C:\111\111.xls

要求是不显示表直接写

Sub Macro1()
    Range("A14:AM14").Select
    With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With
    Range("A21:AM21").Select
    With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With
    Range("A27:AM27").Select
    With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With
    Range("A34:AM34").Select
    With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With
    Range("A40:AM41").Select
    With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With
End Sub

Top

煮江品茶发表于：2011-05-19 14:48:38

Dim xlApp As New Excel.Application
Dim xlbook As Excel.Workbook
xlapp.Application.Visible = False
Set xlbook = xlapp.workbooks.Open("C:\1.XLS")
......
......
xlapp.Application.Range("A14:AM14").Select
With xlapp.Application.Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
......
......
xlBook.Save
xlBook.Close
Set xlApp = Nothing

以此类推即可。

Top

亿手遮天发表于：2011-05-19 17:20:06

非常感谢

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

请教煮江品茶老师 关于表格自动填色续

请教煮江品茶老师关于表格自动填色续