有关在ACCESS的VBA中控制EXCEL的页边句问题！

zwh23

问题是这样，我的ACCESS程序将数据导入到EXCEL中，并进行页面设置，
其中数据导入没有问题，页面设置基本没有问题，除了设置页边距的大小。
我是先从EXCEL中用宏录制页面设置的代码，在粘贴到ACCESS的VBA中，请看：
With ExcelApp.ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
ExcelApp.ActiveSheet.PageSetup.PrintArea = ""
    With ExcelApp.ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.748031496062992)
        .RightMargin = Application.InchesToPoints(0.748031496062992)
        .TopMargin = Application.InchesToPoints(0.984251968503937)
        .BottomMargin = Application.InchesToPoints(0.984251968503937)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 180
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA3
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
    End With
其中我已经定义并设置的。
Dim ExcelApp As Excel.Application
Dim ExcelSheet As Excel.Worksheet
Dim ExcelSheet4 As Excel.Worksheet
Set ExcelApp = New Excel.Application
ExcelApp.Visible = True
ExcelApp.Workbooks.Open "G:\WORK\1\8.9\my1.xls"
Set ExcelSheet = ExcelApp.Worksheets("Sheet1")
Set ExcelSheet4 = ExcelApp.Worksheets("Sheet4")

上面设置页边距的代码
        .LeftMargin = Application.InchesToPoints(0.748031496062992)
        .RightMargin = Application.InchesToPoints(0.748031496062992)
        .TopMargin = Application.InchesToPoints(0.984251968503937)
        .BottomMargin = Application.InchesToPoints(0.984251968503937)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
出现问题，报的错是
编译错误：
方法和数据成员未找到


请各位指点一二，这是为什么，该怎么该。谢谢

[此贴子已经被作者于2002-8-9 17:13:16编辑过]

zwh23

我终于知道了，谢谢各位。

竹笛

1、在ACCESS中导出数据！
2、在EXCEL中设置报表及边距，写那么一大堆代码干吗？

zwh23

为什么没人回答我的问题？不可能大家都不知道

那位好心给我写个在ACCESS中用VBA控制EXCEL文件的页面设置的例子好吗？

多谢了！

我的邮箱zwh23001@hotmail.com

[此贴子已经被作者于2002-8-10 19:39:04编辑过]

zwh23

怎么没人理我了？

zwh23

引用了，不然怎么会打开EXCEL，怎么会其他设置有效？只是这几句不行。

引用的是
Micosoft Excel 9.0 Object Library

这个引用行吗？我用的是OFFICE2000。

eggh

你用的是早期绑定,可能没有引用excel对象.应先进行引用.