本帖子已过去太久远了，不再提供回复功能。OWC的spreadsheet控件的使用,该如何处理 - VB当前位置:& &&&OWC的spreadsheet控件的使用,该如何处理OWC的spreadsheet控件的使用,该如何处理&&网友分享于：&&浏览：385次OWC的spreadsheet控件的使用第一次使用，麻烦大家给点代码看看，怎么连库将数据中的数据放到EXCEL中？
　还有我想将指定单元格的北景色应该是什么方法属性呢？
　　我想在一些单元格之间连些线，能否实现这功能？
　谢谢了！------解决方案--------------------这是设置边框颜色的.背景颜色可能把Borders对象换成Interior对象,可以参考 OWC的帮助文件
我的office2003 OWC帮助文件在:C:\Program Files\Common Files\Microsoft Shared\Web Components\11\2052
Sub SetBorder()
Set ssConstants = Spreadsheet1.Constants
Spreadsheet1.ActiveSheet.Range( &b5:c10 &).Borders.Weight = ssConstants.owcLineWeightMedium
Spreadsheet1.ActiveSheet.Range( &b5:c10 &).Borders.Color =
------解决方案--------------------一、在VB中使用OWC组件
引用Office Web Component组件到项目中（ProjectàComponents）
选择Microsoft Office Web Components 11.0，点击应用将会在工具栏中出现五个组件，分别为ChartSpace、SpreadSheet、DataSourceControl、RecordNevigationControl、PivotTable。本文档仅就SpreadSheet的相关操作进行说明，其余请参考《Microsoft Office Web组件Visual Basic参考》。二、通过可视化配置设定OWC的呈现效果及相关属性
可以通过设定命令和选项来更改OWC呈现的相关设置（在SpreadSheet上点击右键调出）通过设定格式、工作表、工作簿等选项，将OWC的SpreadSheet显示格式设定为如下图所示样式，其中列表头是不显示的，采用第一列充当表头，并且锁定第一行的区域，使得表头可以始终呈现给用户（实现该步骤，只需要将鼠标选中第二行，并设定格式中的单元格à锁定，如上图所示小锁头符号）。
还需要在属性设定中设定其是否显示TitleBar、ToolBar、OfficeLogo等。
附1：要实现类Grid效果，则应不允许插入列、删除列等。可以设定保护得到效果。不过，不建议在设计时就做保护的设定。因为程序运行过程中会对SpreadSheet做数据填充或呈现样式修改等动作，就必须先要取消SpreadSheet的保护效果，在代码上有些冗余。所以建议在运行中动态调整保护的选项，可以通过SpreadSheet.ActiveSheet.Protect()方法设定。附2：如何设定单元格的值类型？方法一、可以通过设定格式中的数字格式设定一列或某单元格的值类型。方法二、代码实现，可以在Excel中录制宏得到VBS代码''@ means T '0.00000_ ' '0_ ' means integerMe.xlSpreadsheet.ActiveSheet.Range(&A:B&).NumberFormat = &@&Me.xlSpreadsheet.ActiveSheet.Range(&C:C&).NumberFormat = &0.00000_ &Me.xlSpreadsheet.ActiveSheet.Range(&D:K&).NumberFormat = &@&Me.xlSpreadsheet.ActiveSheet.Range(&L:N&).NumberFormat = &0_ && 注意：0_后面还有一个空格，这个是不可少的。附3：第一行作为Title，则Title不允许在运行时被User修改，所以需要Lock该行，可以通过设计时设定，也可以在运行时动态控制''''Lock the Title, can not be modifiedxlSpreadsheet.ActiveSheet.Range(&A1:B1&).Locked = True& 三、呈现数据、读取数据、更改呈现样式等操作方式
1：呈现数据SpreadSheet的数据来源可以有三种，分别为CSV Data、XML、Html，分别对应方法为CSVData/CSVURL、XMLData/XMLURL、HTMLData/HTMLURL。不过这仅限于比较规则的二维表结构的数据。一般的还是采用逐行设定值的方式。xlSpreadsheet.ActiveSheet.Cells(intRowCounter, intColCounter).Value&
注意：不管采用哪种方式，都需要先将SpreadSheet锁定区域解锁，才能将值设定上去。
2：读取数据
从SpreadSheet上读取数据的方式与呈现数据方式类似，直接采用逐行逐列方式读取。
3：更改呈现样式SpreadSheet的样式设定非常灵活，可以设定一行、一列、多行、多列、选定单元格等的样式。其动态设定方式分别为如下所示：''''设定一列的背景颜色，可以通过下面几种方式xlSpreadsheet.ActiveSheet.Columns(1).Interior.Color = vbRed 或xlSpreadsheet.ActiveSheet.Columns(1).Interior.ColorIndex = 10 或xlSpreadsheet.ActiveSheet.Range(&A:A&).Interior.Color = vbRed 或''''设定一列的字体颜色，可以通过下面几种方式xlSpreadsheet.ActiveSheet.Columns(1).Font.Color = vbRed 或xlSpreadsheet.ActiveSheet.Columns(1).Font.ColorIndex = 10 或xlSpreadsheet.ActiveSheet.Range(&A:A&).Font.Color = vbRed''''设定一行的背景、字体颜色，可以通过下面几种方式xlSpreadsheet.ActiveSheet.Rows(1).Interior.Color = vbRed 或xlSpreadsheet.ActiveSheet.Rows(1).Interior.ColorIndex = 10xlSpreadsheet.ActiveSheet.Rows(1).Font.Color = vbRed 或xlSpreadsheet.ActiveSheet.Rows(1).Font.ColorIndex = 10''''设定多行或多列的背景、字体颜色，类似''''设定选定单元格的背景、字体颜色，如下xlSpreadsheet.ActiveCell.Interior.Color = vbRed 或xlSpreadsheet.ActiveCell.Interior.ColorIndex = 10xlSpreadsheet.ActiveSheet.Cells(1,1).Interior.Color = vbRed''''设定一列隐藏xlSpreadsheet.ActiveSheet.Columns(1).Hidden = True&
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有查看: 1103|回复: 4
在窗体中添加了Spreadsheet附加控件，在别人的电脑上无法运行，有什么办法解决呢？
阅读权限30
在线时间 小时
在窗体中添加了一个Spreadsheet附加控件，在别人的电脑上无法运行，有什么办法解决呢？
(19.39 KB, 下载次数: 29)
17:27 上传
点击文件名下载附件
阅读权限95
在线时间 小时
SpreadSheet控件是在2003版之前的一个控件，这个控件在2007以后不能直接引用了。但是可通过安装Office Web Components组件来继续使用。
可以去这里下载安装Office Web Components组件。
然后在工程引用里找到以下目录C:/Program Files/Common Files/Microsoft Shared/Web Components/11的OWC11.DLL并引用。
之后我们就可以在窗体的附加控件列表中找到spreadsheet控件了。
阅读权限30
在线时间 小时
我的意思是自己做了的控件别人用不了，而不是怎样添加控件的问题。
阅读权限70
在线时间 小时
前提条件是其他人的机子上要已经安装了这个控件。
阅读权限95
在线时间 小时
& & & & & & & &
我的意思是自己做了的控件别人用不了，而不是怎样添加控件的问题。
合计我说了半天，你还没有领悟我的意思啊？
我的意思是，你做的控件，别人用不了，是因为别人电脑上没有这个控件啊，你下载那个控件，跟你的文件一起发给别人，叫别人安装引用一下就行了
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师基于ADO技术的iFix历史报表的设计|上海康为自控阀门有限公司
上海总公司
TEL：021-&
基于ADO技术的iFix历史报表的设计
Copyright@ &
上海康为自控阀门有限公司版权所有&&&&&
电话：021-
传真：021-
地址：上海市嘉定区沪宜公路5888号
邮编：201802
&&&&&&&&&&}