说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

各位兄弟帮忙看一下一小段代码?尽分报答

编辑:说三道四文库 发布时间:2017-03-31 03:09
HTML文档下载 WORD文档下载 PDF文档下载

代码如下:
Private xlApp As Object
Private xlBook As Object
Private xlSheet As Object
Private Sub InitXlAPP()
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
  If Err.Number = 429 Then
      Set xlApp = CreateObject("Excel.Application")
      Err.Clear
  End If
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlApp.Worksheets.Add

xlApp.Visible = True
End Sub
Private Sub MakeStyle_XJ()
With xlApp
    '设置整体格式
    .Cells.Select
    
    .Selection.VerticalAlignment = xlCenter/这里出错,提示不能设置类Range的VerticalAlignment属性。

    .Columns("A:A").ColumnWidth = 4.1
    .Columns("B:B").ColumnWidth = 8
    .Columns("C:C").ColumnWidth = 27.7
    .........
End with
End Sub
  
可能是没有选中任何内容,所以Selection为Nothing,建议在调用Selection.VerticalAlignment 前先判断Selection是否为Nothing
在打印或打印预览前如何获取报表页数-Delphi资料 自定义快速报表的打印预览窗口-Delphi资料 Delphi 3 图形VCL中Bug修改方案 Delphi hint的字体和色彩如何改变 Delphi3.0中复活节彩蛋及实现 Delphi数据库应用程序开发中图像数据的存取技巧 DELPHI图形编辑技巧二则 DELPHI显示JPEG图像文件 Delphi中CANVAS使用三例 Delphi中的图形显示技巧 DELPHI中画布应用技巧 Delphi中控件深度投影及阴影效果的实现 DELPHI中利用对象的常用属性制作动画 Form生成时的事件次序-Delphi资料 LED数码管仿真显示程序-Delphi资料 TPaintBox与TImage的比较-Delphi资料 WINDOWS基于调色板的图像消隐-Delphi资料 改变图片效果-Delphi资料 改造HINT的输出方式-Delphi资料 基于Delphi的图像漫游 将BMP放入Paradox的BLOB的字段中-Delphi资料 界面色彩渐变效果的实现-Delphi资料 如何查阅可视窗口标题-Delphi资料 如何得到Timage控件的DC-Delphi资料 如何关闭一个MDI子窗口-Delphi资料 如何检测鼠标击了哪一个对象-Delphi资料 如何将鼠标锁定在固定范围内-Delphi资料 如何使你的窗口Stay on Top-Delphi资料 如何在ListView控件中绘底图-Delphi资料 如何在屏幕上移动Image图象-Delphi资料 软件中复活节彩蛋的实现-Delphi资料 如何通过序数从DLL引出函数表? 有关datagrid的border问题? 在pb中用SetPicture(lb_image)当lb_image为空时picture的图片不变 急!!急!!如何用MultiByteToWideChar()实现Unicode编码?? 请问:这是叫什么服务来着? 请问有没有有关工作流技术的理论和资料 windowsXP与Visual C++问题??? 发布目录在哪里问题!!!!急急急 请教一个entity bean的问题 调查一下,微软的工程师工资有多少呀?做什么软件的工资最高? idhttp.get可以获得htm 文件,我现在想得到gif文件,怎么办? 不知大家有没有听说过Tapestry,是一个有关权限管理的开发原代码 请问C标准函数里是否有这样的函数,可以删除文件名相同但忽略扩展名的函数,如可以同时删除A1.LIN和A1.SA?谢先!!! 如何修改硬盘序列号(不是卷序列号,而是出厂序列号)? MS EXCHANGE SERVER 2000 在WEB页面更改MAILBOX的密码 关于string的简单问题 String和StringBuffer的具体区别是什么? 请问哪里有<<com原理与应用 >>电子书下载?谢谢 高级问题:如何实现在应用程序中动态布置控件。(分数不是问题) TList问题 请问: 我进不了windows2000 advanced server!!怎么办? 北京程序员俱乐部的相关问题 如何修改硬盘序列号(不是卷序列号,而是出厂序列号)? 请问C标准函数里是否有这样的函数,可以删除文件名相同但忽略扩展名的函数,如可以同时删除A1.LIN和A1.SA?谢先!!! 如何用DAO调用MSSQLSERVER中的存储过程获得结果集? sybase的字符串连接符是哪个 如何取得上网ip?(不是本地IP),在局域网中,客户机通过主机代理上网,能否确定客户是否连在网上? 请问网络高手--怎样知道对方的物理地址(知道对方的IP)??? 图片存在数据库中,在asp页上如何让其显示出来!? 如何把文件或图片以Blob类型存入Oracle数据库,并在JSP中把数据库中的Blob数据以最初的文件格式读出来??? 如何把文件或图片以Blob类型存入Oracle数据库,并在JSP中把数据库中的Blob数据以最初的文件格式读出来??? 请问大伙《TCP/IP详解》1,2,3卷----机械械工业出版社,是否值得购买?翻译的怎么样? CRYSTAL REPORTS DEVELOPER EDITION VERSION 哪里有下? 如何控制excel中的图表? 我想在我彻底陷去之前再清醒的看看这个世界..... 十万火急!!!IIS报HTTP 500的错误。 select时间段问题 请推荐uml方面的好书!! CreateWindow和MFC的CFrameWnd::LoadFrame产生的窗口的区别?? 在pb中用SetPicture(lb_image)当lb_image为空时picture的图片不变 有一段代码破不理解?谢谢! 在pb中用SetPicture(lb_image)当lb_image为空时picture的图片不变 用JAVA开发企业MIS系统,需要注意那些? 怎么在没有资源的项目里加入菜单资源?(急) 有一段代码破不理解?谢谢! 如何动态设置一个字段的类型。例如:下拉型,EDIT型,EDITMAST型。急用!!! 试问DELPHI中的线程是一个什么样的概念? need acdsee for linux 汇编火焰源程序,谁要,请留下Email。。。。 我在98下安装完JRUN3。0后做完的JSP网页应放在哪个目录下。急急急!!! 设椭圆C1的中心在原点,其右焦点与抛物线C2:y^2=4x的焦点F重合,过F与x轴垂直的直线与C交于A、B两点,与C2交于C、D两点,已知|CD|/|AB|=4/3(I)求椭圆C1的方程(II)过点F的直线L与C1交于M、N两点,与C2交于 《keep our city clean》的英语作文 M=4x^2-12xy+10y^2+4y+9 ,当式中的x,y各取何值时,M的值最小?并球此最小值. 已知抛物线C1:x^2+by=b^2经过椭圆C2:x^2/a^2+y^2/b^2=1(a>b>0)的两个焦点 1、求C2离心率2、设Q(3,b),又M、N为C1与C2不在y轴上的两个交点,若三角形QMN的重心在抛物线C1上,求C1、C2方程 设x,x是关于m的方程m2-2am+a+6=0的两根,则(x-1)2+(y-1)2的最小值是 蚂蚁 大自然神秘的力量怎么样 奇异 神奇 惊奇怎么区分 若(x^m/x^2n)^3/x^m-n与4x^2为同类项,且2m+5n=7,求4m^2-25n^2的值 大自然有许多奥秘,我从蚂蚁身上学到了要坚持不懈. 设椭圆C1:x^2/a^2+y^2/b^2=1(a>b>0),抛物线C2:x^2+by=b^2(1)若C1经过C1的两个焦点,设椭圆C1:x^2/a^2+y^2/b^2=1(a>b>0),抛物线C2:x^2+by=b^2(1)若C1经过C1的两个焦点,求C1的离心率.(2)设A(0,b),Q(3倍根号3,5 如果(x^m/x^2n)^3/x^m-n与4x^2是同类项,且2m+5n=6,求4m^2-25n^2的值 我要写一篇《大自然给我的启示》,讲蚂蚁的可以吗?我写的是,蚂蚁搬米粒的故事,由此知道了团结,但...我要写一篇《大自然给我的启示》,讲蚂蚁的可以吗?我写的是,蚂蚁搬米粒的故事,由此知 设二次方程x的平方-PX+15=0,x的平方-5x+q=0的解集分别为A,B 且A并B=2,3,5 A交B等于3 试求 A B P q 的重点 求 A B 的 值 若(x^m÷x^2n)^3÷x^m-n与4x^2为同类项,且2m+5n=6,求4m^2-2n^2的值呵呵,我是数学白痴、、、、、、、、 甲乙两人解方程组{ax+by=7,2ax-by=-2.甲看错了第一个方程解得{x=1,y=-1.乙看错了第二个方程解得{x=-2,Y=-6求a、b的值 设二次方程x²+px+15=0的解集为A,x²-5x+q+0的解集为B,若A∩B={3},求P,q的值及集合A∪B. we must try our best to keep environment clean句子成份划分 3分之(-2x的3次方y的m次方z)是6次单项式,那m=?,它的系数是.6分之(x的3次方+4x的平方-3y-2)的常数项是 已知a,b是关于x的方程x^2-(2k+1)+2k(k+1)=0的两个实数根,则a^2+b^2的最小值是______________.把过程写下来,答案要不要无所谓.噢,SORRY ,我真的看错了= =.已知a,b是关于x的方程x^2-(2k+1)x+2k(k+1)=0的两个实数 I think it's our duty to keep our environment clean and tidy. 大自然还有哪些秘密 It is our duty to keep our classroom clean and tidy.句中的 clean and tidy是什么成分?为什么? 当k________时,方程x²+(2k+1)x-k²+k=0有实数根; 观察蚂蚁搬家的作文400字写的仔细一点 已知方程x²-px+15=0与方程x²-5x+q=0的解集分别为A与B且A∩B={3},则p+q的值为 观察蚂蚁搬家的作文快啊,今晚就得交 观察蚂蚁搬家的800字作文 It is our duty to keep our classroom clean and tidy.中的It《our duty 》和 clean and tidy是什么成分 小学四年级观察蚂蚁搬家作文 已知实数x、y、z满足x^2-6xy+10y^2+4y+|z^2-3z+2|+4=0 ,求(x+y)^z的值 已知方程 x²-Px+15=0与x²-5x+Q=0的解集分别为S和M,且S∩M={3},则P+Q是多少?请问3²-3p+15=0 我为什么算答案是2呢? 已知直线l的方程y=mx+m^2,抛物线C1的顶点和椭圆C2的中心都在坐标原点,且它们的焦点均在y轴上,当m=1时,直线l与抛物线C1有且只有一个公共点,求抛物线C1的方程 we must keep our city ( )every day.yes,miss gao A.clean B.to clean C.cleaned Dcleaning 安顺三创英语作文 Keep our city clean中学 水平. 四年级关于观察蚂蚁搬家的作文 已知实数X,Y,Z满足 X²-6XY+10Y²+4Y+∣Z²-3Z+2∣+4=0,求(X+Y)的Z次方的值 500字左右是正在放寒假 谁有关于观察蚂蚁搬家的作文,要说明文的哦! 1公倾等于多少平方米 一2分之5十0.0864等于几 若x的6次方y的m次方/x的2n次方y的3次方/xy的平方与2x的立方y 的立方是同类项,求m的平方-25n的值 1平方千米等于多少平方米,1公倾等于多少平方千米 We should keep our classroom _______(clean). 观察蚂蚁搬家的作文怎么写 已知抛物线y²=2px﹙p>0﹚的焦点F恰好是椭圆﹙x²/a²﹚+﹙y²/b²﹚=1﹙a>b>0﹚的右焦点,且两条曲线有公共点的连线过F点,则该椭圆的离心率为 Waste paper should be throun every were,It's our duty to keep our city clean 蚂蚁搬家作文 关于国庆节趣事的作文250字 翻译:You should keep out of our gurrd The students promise that they will keep their school clean同义句 国庆趣事作文400字要趣事 设x,y是关于m的方程m的平方-2am+a+6的两个实数根设x,y是关于m的方程 m的平方-2am+a+6=0的两个实数根,则(x-1)的平方+(y-1)的平方的最小值是多少? 解方程组{3/x+2/y=7,2/x-1/y=14,如果设1/x=m,1/y=n,则原方程组可变形为关于m、n的方程组{3m+2n=17,2m-n=14,解这个方程组得到它的解为{m=5n=-4,由1/x=5,1/y=-4,求得原方程的解为{x=1/5,y=-1/4,利用上述方法解方程 国庆趣事 作文450字这边作文要符合实际,不要出现地名.不要兄弟姐妹(或朋友)的名字 若3x的平方y的n次方+(m-3)x是关于x、y的五次二项式,则m若3x的平方y的n次方+(m-3)x是关于x、y的五次二项式,则m( ) 已知方程组x+y=m+3,x-y=3m-1的解x、y都大于0.(1)求m的取值范围 已知M=4X^2-12XY+10Y^2+4Y+9求M最小值已知M=4X^2-12XY+10Y^2+4Y+9,当X=( ),Y=( )时,M的值最小,且这个最小值为( ) 已知方程x旳平方-px+15=0与x旳平方-5x+q=0旳解集分别为M、N,且M∩N={3},则q分之p=? 2x-5y=-3 3m-2n=7 5x-2y=-18 3m-n=5 方程组解x= y= m= n= 已知M=4x的平方-12xy+10y的平方+4y+9,当式中的x,y各取何值时,m的值最小?求此最小的值.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘