搜索
查看: 19806|回复: 28

[文档] aardio for Excel 参考

    [复制链接]

7

主题

305

帖子

1912

积分

新手入门

积分
1912
QQ
发表于 2012-3-4 21:20:05 | 显示全部楼层 |阅读模式

评分

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

查看全部评分

每天进步一点点......
回复

使用道具 举报

75

主题

849

帖子

5002

积分

六级会员

The only one

Rank: 9Rank: 9Rank: 9

积分
5002
发表于 2012-3-4 21:33:24 | 显示全部楼层

楼主辛苦了!

楼主辛苦了!
小时候,幸福是一件东西,拥有就是幸福; 长大了,幸福是一个目标,达到就是幸福; 成熟后,发现幸福原来是一种心态,领悟就是幸福.
回复

使用道具 举报

52

主题

1340

帖子

7326

积分

荣誉会员

Rank: 8Rank: 8

积分
7326
发表于 2012-3-4 21:37:52 | 显示全部楼层

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

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

使用道具 举报

0

主题

5

帖子

28

积分

新手入门

Rank: 1

积分
28
发表于 2012-3-5 08:38:43 | 显示全部楼层

不错,简单明了!

不错,简单明了!
回复

使用道具 举报

7

主题

305

帖子

1912

积分

新手入门

积分
1912
QQ
 楼主| 发表于 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
每天进步一点点......
回复

使用道具 举报

7

主题

305

帖子

1912

积分

新手入门

积分
1912
QQ
 楼主| 发表于 2012-3-6 21:29:48 | 显示全部楼层

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

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

最后一句是【打印预览】,需要安装打印驱动。可以下载doPDF安装。
每天进步一点点......
回复

使用道具 举报

2

主题

45

帖子

252

积分

二级会员

Rank: 3Rank: 3

积分
252
发表于 2012-3-7 00:03:53 | 显示全部楼层

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

回复

使用道具 举报

1

主题

24

帖子

189

积分

一级会员

Rank: 2

积分
189
发表于 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
回复

使用道具 举报

7

主题

123

帖子

752

积分

三级会员

Rank: 4

积分
752
QQ
发表于 2012-3-9 19:50:08 | 显示全部楼层

不错,谢谢楼主

不错,谢谢楼主
回复

使用道具 举报

7

主题

305

帖子

1912

积分

新手入门

积分
1912
QQ
 楼主| 发表于 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,则本参数指定要打印到的文件名。
每天进步一点点......
回复

使用道具 举报

7

主题

305

帖子

1912

积分

新手入门

积分
1912
QQ
 楼主| 发表于 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   可选。该方法的替换格式。
回复

使用道具 举报

4

主题

20

帖子

142

积分

一级会员

Rank: 2

积分
142
发表于 2012-6-18 11:49:38 | 显示全部楼层

好帖要收藏

好帖要收藏
回复

使用道具 举报

0

主题

5

帖子

35

积分

新手入门

Rank: 1

积分
35
发表于 2012-7-21 22:48:13 | 显示全部楼层

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

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

使用道具 举报

0

主题

5

帖子

35

积分

新手入门

Rank: 1

积分
35
发表于 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及其它打印机驱动,点了没反应是什么原因
回复

使用道具 举报

7

主题

305

帖子

1912

积分

新手入门

积分
1912
QQ
 楼主| 发表于 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)
-----------------------------------------
运行完毕会看到打印预览的效果

每天进步一点点......
回复

使用道具 举报

4

主题

47

帖子

461

积分

培训班

积分
461
发表于 2012-8-14 19:48:16 | 显示全部楼层

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

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

点评

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

使用道具 举报

33

主题

543

帖子

3304

积分

荣誉会员

Rank: 8Rank: 8

积分
3304
发表于 2012-8-14 21:25:50 | 显示全部楼层

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

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

点评

同意: 5.0 真棒: 5.0
继续努力: 5.0
同意: 5 真棒: 5 继续努力: 5
斑斑辛苦了。  发表于 2012-8-14 21:52
回复

使用道具 举报

7

主题

305

帖子

1912

积分

新手入门

积分
1912
QQ
 楼主| 发表于 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!
回复

使用道具 举报

13

主题

120

帖子

687

积分

三级会员

Rank: 4

积分
687
发表于 2012-10-25 12:42:42 | 显示全部楼层

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

最好是和业务有直接的例子,不过先看看基础的最好不过了
有很多时候,这语言都是相通的。特别是肢体语言。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

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

GMT+8, 2018-10-19 19:04 , Processed in 0.078125 second(s), 24 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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