如何修改应用，在EXECL中录制到的宏代码。

白发学者　发表于：2013-03-25 13:07:15 　

在EXECL中录制到的宏代码

Columns("H:J").Select
Selection.Delete Shift:=xlToLeft

Columns("H:H").Select
Selection.ColumnWidth = 55

    Rows("1:1").Select
    Selection.Insert Shift:=xlDown
    Range("A1:H1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    ActiveCell.FormulaR1C1 = "凭证移交"
    Range("A1:H1").Select
    With Selection.Font
        .Name = "宋体"
        .Size = 20
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    ActiveWindow.SmallScroll Down:=-18

现在如何加入到ACCESS中才能正常运行？

Top

煮江品茶发表于：2013-03-25 13:13:50

在Access中用dim语句定义一个Excel.Application对象（如果后期绑定的话，也可用CreatObject创建一个Excel.Application对象），假设这个对象的名称为EApp。则在你录制的代码中凡是用到Excel各种元素的地方，在其前面都加上这个对象即可。

Top

煮江品茶发表于：2013-03-25 13:17:21

dim Eapp as new Excel.Application

Eapp.Columns("H:J").Select

Eapp.Selection.Delete Shift:=xlToLeft

.....
    With Eapp.Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
......
    Eapp.ActiveWindow.SmallScroll Down:=-18

Top

白发学者发表于：2013-03-25 13:18:43

哦，先谢谢，我去试试。

Top

白发学者发表于：2013-03-25 13:24:53

在 Eapp as new Excel.Application 这里提示用户定义类型未定义？

Top

煮江品茶发表于：2013-03-25 13:56:51

要先引用Excel.Application。

Top

煮江品茶发表于：2013-03-25 13:59:17

如果不想引用的话，则可以：
dim EApp as object
set EApp=CreateObject("Excel.Application")

Top

白发学者发表于：2013-03-26 19:55:16

谢谢品茶老师，用六楼的OBJect办法解决了。

Top

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

Access交流中心

如何修改应用，在EXECL中录制到的宏代码。