搜索
aardio官方社区 门户 查看主题

[文档] aardio for Excel 参考

发布者: nvt303 | 发布时间: 2012-3-4 21:20| 查看数: 17125| 评论数: 28|帖子模式

评分

参与人数 9专家分 +600 银币 +420 收起 理由
dem + 10 很给力!
笑问天 + 50 很给力!
田雨春楊 + 30 很给力!
cjc0045 + 90 很给力!
chentca + 50 很给力!
ghl781258 + 50
coder + 40 很给力!
qqmmcc + 100 + 100
Jacen.He + 500 谢谢!

查看全部评分

最新评论

look 发表于 2012-3-4 21:33:24

楼主辛苦了!

楼主辛苦了!
qqmmcc 发表于 2012-3-4 21:37:52

谢谢~ 在 nvt 耐心指导下 我终于入门了{:soso_e112:}

谢谢~  在 nvt 耐心指导下 我终于入门了{:soso_e112:}
jhbk 发表于 2012-3-5 08:38:43

不错,简单明了!

不错,简单明了!
nvt303 发表于 2012-3-6 16:44:56

[align=left][font=新宋体][font=微软雅黑][color=#008000]调用:页面设置( 工作表 );[/color][/font][/

调用:页面设置( 工作表 );
/*页面设置{{*/
页面设置=
function( 工作表 ){
    pageSet=工作表.PageSetup
   
namespace
pageSet{
        PrintTitleRows =
"$1:$1"   
//顶端标题行
        PrintTitleColumns = "$A:$A"
//左端标题列
        PrintArea = ""              
//打印区域
        LeftHeader = "微软用户"     
//页眉-左
        CenterHeader = " 第 &P 页 "
//页眉-中
        RightHeader = "&D"         
//页眉-右
        LeftFooter = ""            
//页脚-左
        CenterFooter = "第 &P 页,共 &N 页"
//页脚-中
        RightFooter = ""            
//页脚-右
        LeftMargin = Application.InchesToPoints(0.75)   
//左边距
        RightMargin = Application.InchesToPoints(0.75)  
//右边距
        TopMargin = Application.InchesToPoints(1)      
//上边距
        BottomMargin = Application.InchesToPoints(1)   
//下边距
        HeaderMargin = Application.InchesToPoints(0.5)  
//页眉边距
        FooterMargin = Application.InchesToPoints(0.5)  
//页脚边距
            
/*
                InchesToPoints 英寸到磅值的转换
                CentimetersToPoints 厘米到磅值的转换
            */

        PrintHeadings = 0           
//是否打印行号列标
        PrintGridlines = 0         
//是否打印网格线
        PrintComments = -4142      
//是否打印批注
            
/*
                xlPrintInPlace  16
                xlPrintNoComments  -4142
                xlPrintSheetEnd  1  以尾部附注的方式打印
            */

        CenterHorizontally = 1      
//水平居中
        CenterVertically = 0        
//垂直居中
        Orientation = 2            
//方向(横向/纵向)
            
/*
                xlLandscape  2  横向
                xlPortrait  1   纵向
            */

        Draft = 0               
//按草稿方式
        PaperSize = 9           
//纸张大小
            
/*
                xlPaper10x14  16
                xlPaper11x17  17
                xlPaperA3  8
                xlPaperA4  9
                xlPaperA4Small  10
                xlPaperA5  11
                xlPaperB4  12
                xlPaperB5  13
                xlPaperCsheet  24
                xlPaperDsheet  25
                xlPaperEnvelope10  20
                xlPaperEnvelope11  21
                xlPaperEnvelope12  22
                xlPaperEnvelope14  23
                xlPaperEnvelope9  19
                xlPaperEnvelopeB4  33
                xlPaperEnvelopeB5  34
                xlPaperEnvelopeB6  35
                xlPaperEnvelopeC3  29
                xlPaperEnvelopeC4  30
                xlPaperEnvelopeC5  28
                xlPaperEnvelopeC6  31
                xlPaperEnvelopeC65  32
                xlPaperEnvelopeDL  27
                xlPaperEnvelopeItaly  36
                xlPaperEnvelopeMonarch  37
                xlPaperEnvelopePersonal  38
                xlPaperEsheet  26
                xlPaperExecutive  7
                xlPaperFanfoldLegalGerman  41
                xlPaperFanfoldStdGerman  40
                xlPaperFanfoldUS  39
                xlPaperFolio  14
                xlPaperLedger  4
                xlPaperLegal  5
                xlPaperLetter  1
                xlPaperLetterSmall  2
                xlPaperNote  18
                xlPaperQuarto  15
                xlPaperStatement  6
                xlPaperTabloid  3
                xlPaperUser  256
            */

        FirstPageNumber = -4105     
//起始页码-4105
        Order = 1                  
//打印顺序
            
/*
                xlDownThenOver  1 先列后行
                xlOverThenDown  2 先行后列  
            */

        BlackAndWhite = 0           
//单色打印
        Zoom = 100                  
//缩放
        
//FitToPagesWide = 1            //调整为__页宽
        
//FitToPagesTall = 1            //调整为__页高
        PrintErrors = 1            
//错误单元格打印为
            
/*
                xlPrintErrorsBlank  1 空白
                xlPrintErrorsDash  2
                xlPrintErrorsDisplayed  0
                xlPrintErrorsNA  3
            */

        工作表.PrintPreview()      
//打印预览
}
}
/*}}*/

点评

加油,怎么没反应?要装打印机驱动吗?  发表于 2012-3-6 20:31
nvt303 发表于 2012-3-6 21:29:48

[quote]ghl781258 加油,怎么没反应?要装打印机驱动吗?[/quote] 最后一句是【打印预览】,需要安装打印驱动。可以下载doPDF安装。

ghl781258 加油,怎么没反应?要装打印机驱动吗?

最后一句是【打印预览】,需要安装打印驱动。可以下载doPDF安装。
矿工e梦 发表于 2012-3-7 00:03:53

{:3_41:}{:3_41:}{:3_41:}

alin999 发表于 2012-3-7 11:08:02

[quote][size=2][color=#999999]nvt303 发表于 2012-3-6 21:29[/color] [url=forum.php?m

nvt303 发表于 2012-3-6 21:29
最后一句是【打印预览】,需要安装打印驱动。可以下载doPDF安装。

随便装个打印机驱动即可

点评

是。  发表于 2012-3-7 21:23
sj798 发表于 2012-3-9 19:50:08

不错,谢谢楼主

不错,谢谢楼主
nvt303 发表于 2012-3-14 09:04:55

[i=s] 本帖最后由 nvt303 于 2012-3-14 09:20 编辑 [/i] [b][font=微软雅黑][b][size=4]【aardio f

本帖最后由 nvt303 于 2012-3-14 09:20 编辑

【aardio for Excel】工作表的新建、复制、删除、选择、打印预览、打印


1、新建工作表、图表或宏表。新建的工作表将成为活动工作表。
    expression.Add(Before, After, Count, Type)
          expression   必需。
        Before   可选。指定工作表对象,新建的工作表将置于此工作表之前。
        After   可选。指定工作表对象,新建的工作表将置于此工作表之后。
        Count   可选。要新建的工作表的数目。默认值为 1。
        Type   可选。指定工作表类型。可为以下 XlSheetType 常量之一:
            xlWorksheet   -4167  默认值
            xlChart  -4109
            xlExcel4MacroSheet   3
            xlExcel4IntlMacroSheet  4
2、将指定工作表复制到工作簿的另一位置。
    expression.Copy(Before, After)
        expression   必需。
        Before  可选。指定某工作表,复制的工作表将置于此工作表之前。如果已经指定了 After,则不能指定 Before
        After   可选。指定某工作表,复制的工作表将置于此工作表之后。如果已经指定了 Before,则不能指定 After
3、删除对象。
    expression.Delete( )
4、选定对象。
    expression.Select( )
5、以打印效果显示指定的对象。
    expression.PrintPreview( )
6、打印指定对象。
    expression.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)
      
expression   必需。
         From   可选。打印的开始页号。如果省略该参数,将从起始位置开始打印。
         To   可选。打印的终止页号。如果省略该参数,将打印至最后一页。
         Copies   可选。要打印的份数。如果省略该参数,将只打印一份
         Preview   可选。如果该值为 True,则 Microsoft Excel 打印指定对象之前进行打印预览。如果该值为False(或者省略此参数),则立即打印该对象
         ActivePrinter   可选。设置活动打印机的名称。
         PrintToFile   可选。如果该值为 True,则打印输出到文件。如果没有指定 PrToFileName,则 Microsoft Excel 将提示用户输入要输出文件的文件名。
         Collate   可选。如果该值为 True,则逐份打印每份副本
         PrToFileName   可选。如果 PrintToFile 为 True,则本参数指定要打印到的文件名。
nvt303 发表于 2012-3-14 09:36:21

[i=s] 本帖最后由 nvt303 于 2012-3-15 21:57 编辑 [/i] [size=4][b][size=5]应用于 Range 对象的 R

本帖最后由 nvt303 于 2012-3-15 21:57 编辑

应用于 Range 对象的 Replace 方法

使用本方法并不会更改选定区域或活动单元格。

expression.Replace(What, Replacement, LookAt, SearchOrder, MatchCase, MatchByte, SearchFormat, ReplaceFormat)
    expression   必需。
    What   必需。Microsoft Excel 要搜索的字符串。
    Replacement  必需。替换字符串。
    LookAt  可选。可为以下 XlLookAt 常量之一:
          xlWhole   1  或 xlPart    2
    SearchOrder  可选。可为以下 XlSearchOrder 常量之一:
          xlByRows  1  或 xlByColumns  2
    MatchCase  可选。如果为 True,则进行区分大小写的搜索。
    MatchByte   可选。只有当在 Microsoft Excel 中选择或安装了双字节语言支持时,才可以使用本参数。如果为 True,则使双字节字符仅匹配双字节字符。如果为 False,则双字节字符可匹配其等价的单字节字符。
    SearchFormat   可选。该方法的搜索格式。
    ReplaceFormat   可选。该方法的替换格式。
指尖的精灵 发表于 2012-6-18 11:49:38

好帖要收藏

好帖要收藏
lybsady 发表于 2012-7-21 22:48:13

安装了doPDF及其它打印机驱动,点了没反应是什么原因

安装了doPDF及其它打印机驱动,点了没反应是什么原因
lybsady 发表于 2012-7-21 22:49:41

[quote][size=2][color=#999999]nvt303 发表于 2012-3-6 16:44[/color] [url=forum.php?m

nvt303 发表于 2012-3-6 16:44
调用:页面设置( 工作表 ); /*页面设置{{*/
页面设置=function( 工作表 ){
    pageSet=工作表.PageSetup ...

安装了doPDF及其它打印机驱动,点了没反应是什么原因
nvt303 发表于 2012-7-23 10:02:19

[quote][size=2][color=#999999]lybsady 发表于 2012-7-21 22:49[/color] [url=forum.php

lybsady 发表于 2012-7-21 22:49
安装了doPDF及其它打印机驱动,点了没反应是什么原因

import com;
var excel = com.CreateObject("Excel.Application")//创建Excel对象
var book=excel.Workbooks.Add() //添加工作簿
excel.Visible = true                        //设置可见
var sh = book.Worksheets(1)         //表1
sh.Cells(1,1).value2="打印测试"
/*页面设置{{*/
页面设置=
function( 工作表 ){
    pageSet=工作表.PageSetup
   
namespace pageSet{
        PrintTitleRows =
"$1:$1"    //顶端标题行
        PrintTitleColumns = "$A:$A" //左端标题列
        PrintArea = ""              //打印区域
        LeftHeader = "微软用户"     //页眉-左
        CenterHeader = " 第 &P 页 " //页眉-中
        RightHeader = "&D"          //页眉-右
        LeftFooter = ""             //页脚-左
        CenterFooter = "第 &P 页,共 &N 页" //页脚-中
        RightFooter = ""            //页脚-右
        LeftMargin = Application.InchesToPoints(0.75)   //左边距
        RightMargin = Application.InchesToPoints(0.75)  //右边距
        TopMargin = Application.InchesToPoints(1)       //上边距
        BottomMargin = Application.InchesToPoints(1)    //下边距
        HeaderMargin = Application.InchesToPoints(0.5)  //页眉边距
        FooterMargin = Application.InchesToPoints(0.5)  //页脚边距
            /*
                InchesToPoints 英寸到磅值的转换
                CentimetersToPoints 厘米到磅值的转换
            */

        PrintHeadings = 0           
//是否打印行号列标
        PrintGridlines = 0          //是否打印网格线
        PrintComments = -4142       //是否打印批注
            /*
                xlPrintInPlace  16
                xlPrintNoComments  -4142
                xlPrintSheetEnd  1  以尾部附注的方式打印
            */

        CenterHorizontally = 1      
//水平居中
        CenterVertically = 0        //垂直居中
        Orientation = 2             //方向(横向/纵向)
            /*
                xlLandscape  2  横向
                xlPortrait  1   纵向
            */

        Draft = 0               
//按草稿方式
        PaperSize = 9           //纸张大小
                    FirstPageNumber = -4105     //起始页码-4105
        Order = 1                   //打印顺序
            /*
                xlDownThenOver  1 先列后行
                xlOverThenDown  2 先行后列  
            */

        BlackAndWhite = 0           
//单色打印
        Zoom = 100                  //缩放
        //FitToPagesWide = 1            //调整为__页宽
        //FitToPagesTall = 1            //调整为__页高
        PrintErrors = 1             //错误单元格打印为
            /*
                xlPrintErrorsBlank  1 空白
                xlPrintErrorsDash  2
                xlPrintErrorsDisplayed  0
                xlPrintErrorsNA  3
            */

        工作表.PrintPreview()      
//打印预览
}
}
/*}}*/
页面设置(sh)
-----------------------------------------
运行完毕会看到打印预览的效果

dreamhui 发表于 2012-8-14 19:48:16

所有的链接地址都失效了。

所有的链接地址都失效了。

点评

论坛二级域名取消,直接换成 www 即可。帖子我编辑了一下,现在应当可以了  发表于 2012-8-14 21:26
lujjjh 发表于 2012-8-14 21:25:50

帖子链接失效,我重新编辑了一下。

帖子链接失效,我重新编辑了一下。

点评

同意: 5.0 真棒: 5.0
继续努力: 5.0
同意: 5 真棒: 5 继续努力: 5
斑斑辛苦了。  发表于 2012-8-14 21:52
nvt303 发表于 2012-8-15 08:02:28

[quote][size=2][color=#999999]lujjjh 发表于 2012-8-14 21:25[/color] [url=forum.php?

lujjjh 发表于 2012-8-14 21:25
帖子链接失效,我重新编辑了一下。


多谢lujjjh!
vr4u 发表于 2012-10-25 12:42:42

最好是和业务有直接的例子,不过先看看基础的最好不过了

最好是和业务有直接的例子,不过先看看基础的最好不过了
12下一页

手机版|未经许可严禁引用或转载本站文章|站长邮箱|aardio.com|aardio官方社区 ( 皖ICP备09012014号 )

GMT+8, 2017-9-25 19:32 , Processed in 0.140625 second(s), 19 queries , WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表