Office中国论坛/Access中国论坛

标题: 有关在ACCESS的VBA中控制EXCEL的页边句问题！ [打印本页]

作者: zwh23 时间: 2002-8-10 01:13
标题: 有关在ACCESS的VBA中控制EXCEL的页边句问题！
问题是这样，我的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编辑过]

作者: eggh 时间: 2002-8-10 01:57
你用的是早期绑定,可能没有引用excel对象.应先进行引用.

作者: zwh23 时间: 2002-8-10 02:02
引用了，不然怎么会打开EXCEL，怎么会其他设置有效？只是这几句不行。

引用的是
Micosoft Excel 9.0 Object Library

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

作者: zwh23 时间: 2002-8-10 22:24
怎么没人理我了？

作者: zwh23 时间: 2002-8-11 03:39
为什么没人回答我的问题？不可能大家都不知道

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

多谢了！

我的邮箱zwh23001@hotmail.com

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

作者: 竹笛 时间: 2002-8-11 05:38
1、在ACCESS中导出数据！
2、在EXCEL中设置报表及边距，写那么一大堆代码干吗？

作者: zwh23 时间: 2002-8-13 03:39
我终于知道了，谢谢各位。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)