OWC使用方法
OWC==> Office Web Components
是微软Office的轻量级开发工具,随Office安装时一起安装
Office2003版本对应OWC11,里面有5个控件对象
图表工作区对象
数据源控件对象
记录集控件对象
数据透视表列表对象
电子表格对象
很久以前用过的,最近有人问就翻出来看看
其实很简单,只是可能没有到注意文档罢了
我简单用VB做了下常用的SpreadSheet例子
Form上加一个Spreadsheet控件
代码,很简单,没什么好说的
Private Sub Form_Load()
'单元格
'可以使用循环的方式填充单元格
Spreadsheet1.Cells(1, 1) = "第1个格"
Spreadsheet1.Cells(1, 5) = "第5个格"
'区域
'合并
Spreadsheet1.Range("A3:D3").Merge
Spreadsheet1.Range("A3:D3").Value = "合并效果"
'格式设置
Spreadsheet1.Range("A3:D3").Font.Name = "黑体"
Spreadsheet1.Range("A3:D3").Font.Size = 15
Spreadsheet1.Range("A3:D3").Borders(xlEdgeTop).Color = vbRed
Spreadsheet1.Range("A3:D3").Borders(xlEdgeBottom).Color = vbRed
Spreadsheet1.Range("A3:D3").Borders(xlEdgeLeft).Color = vbRed
Spreadsheet1.Range("A3:D3").Borders(xlEdgeRight).Color = vbRed
'' '不提示直接保存为本地文件
'' Spreadsheet1.Export "c:\xxx.xls", ssExportActionNone
'' '直接在Excel中打开
'' Spreadsheet1.Export "c:\xxx.xls", ssExportActionOpenInExcel
End Sub
'单元格
'可以使用循环的方式填充单元格
Spreadsheet1.Cells(1, 1) = "第1个格"
Spreadsheet1.Cells(1, 5) = "第5个格"
'区域
'合并
Spreadsheet1.Range("A3:D3").Merge
Spreadsheet1.Range("A3:D3").Value = "合并效果"
'格式设置
Spreadsheet1.Range("A3:D3").Font.Name = "黑体"
Spreadsheet1.Range("A3:D3").Font.Size = 15
Spreadsheet1.Range("A3:D3").Borders(xlEdgeTop).Color = vbRed
Spreadsheet1.Range("A3:D3").Borders(xlEdgeBottom).Color = vbRed
Spreadsheet1.Range("A3:D3").Borders(xlEdgeLeft).Color = vbRed
Spreadsheet1.Range("A3:D3").Borders(xlEdgeRight).Color = vbRed
'' '不提示直接保存为本地文件
'' Spreadsheet1.Export "c:\xxx.xls", ssExportActionNone
'' '直接在Excel中打开
'' Spreadsheet1.Export "c:\xxx.xls", ssExportActionOpenInExcel
End Sub
运行出来就是这个样子
因为整个编程中使用了VBA语法,所以还是很容易理解的
如果你的机器上安装了Office2000/xp/2003
那么你的机器上已经有使用文档及开发文档了,很详尽,参照一下,应该没啥问题。
我的机器装的是2003,在如下位置上有相关文档
C:\Program Files\Common Files\Microsoft Shared\Web Components\10\2052
C:\Program Files\Common Files\Microsoft Shared\Web Components\11\2052
前面的文档都是使用帮助
OWCVBA11.CHM 是开发文档
文本的小例子在此处下载 ,VB的
https://files.cnblogs.com/babyt/Owc1.rar