在excel中动态插入控件的问题

rzty 2004-07-10 12:32:51

问题1：使用 Sheet1.OLEObjects.Add "Forms.OptionButton.1"，Left:=100,Top:=200，报错“自动化错误”。使用Sheet1.OLEObjects.Add "Forms.OptionButton.1"可以直接插到sheet中，请问如何才能将该控件插到指定位置

问题2 ：动态插入的控件，如何与事件绑定。

我的想法是如果能够获得控件的句柄就ok，但是使用 dim xx as OLEObject
set xx=Sheet1.OLEObjects.Add("Forms.OptionButton.1")
却没成功

...全文

83 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

klbt 2004-08-18

打赏
举报

回复

up

网页中嵌入excel控件，在线编辑excel。上面的例子我是装的office 2003 测试通过，如果客户端是office 2007 请更改classid。

这是一个C# Form程序，实现见excel中的数据读到DataSet并显示到datagridview上，并存入sql server数据库

找了好久终于找到了，这个适合用于excel2003及以上版本，给大家分享下。

【前言】工作或学习中可能需要实现基于VC读\写Excel文件的功能，本人最近也遇到了该问题。中间虽经波折，但是最终还是找到了解决问题的办法。在此跟大家分享，希望对跟我同样迷茫过的同学们有所帮助。 1、程序功能 1）打开一个excel文件; 2）显示到CListCtrl上; 3）新建一个Excel文件。以上均在对话框中实现。 2、平台 VC++2010 3、实现方法常用的Excel打开方式有两种 1）通过数据库打开; 2）OLE方式打开。由于方式1）操作繁琐，经常出现莫名的错误，这里选用方式2）. 4、准备步骤首先新建一个Dialog窗体程序，添加list control和两个按钮 1）将ExcelLib文件夹拷贝到程序目录下； 2）将Export2Excel.h，Export2Excel.cpp两个文件添加到项目； 3）包含头文件，#include "ExcelLib/Export2Excel.h" 通过以上步骤在程序中引入了可以读取Excle文件的CExport2Excel类； 5、打开excel文件通过按钮点击打开 void CExcelTestDlg::OnBnClickedButtonOpenExcel() { //获取文件路径 CFileDialog* lpszOpenFile; CString szGetName; lpszOpenFile = new CFileDialog(TRUE,"","",OFN_FILEMUSTEXIST|OFN_HIDEREADONLY,"Excel File(*.xlsx;*.xls)|*.xls;*.xlsx",NULL); if (lpszOpenFile->DoModal()==IDOK) { szGetName = lpszOpenFile->GetPathName(); SetWindowText(szGetName); delete lpszOpenFile; } else return; //打开文件 //文件中包含多个sheet时，默认打开第一个sheet CExport2Excel Excel_example; Excel_example.OpenExcel(szGetName); //获取sheet个数 int iSheetNum = Excel_example.GetSheetsNumber(); //获取已使用表格行列数 int iRows = Excel_example.GetRowCount(); int iCols = Excel_example.GetColCount(); //获取单元格的内容 CString cs_temp = Excel_example.GetText(1,1); //AfxMessageBox(cs_temp); //List control上显示 //获取工作表列名（第一行） CStringArray m_HeadName; m_HeadName.Add(_T("ID")); for (int i=1;iGetItemCount()>0) { m_list.DeleteColumn(0); } //初始化ClistCtrl，加入列名 InitList(m_list,m_HeadName); //填入内容 //第一行是标题，所以从第2行开始 CString num; int pos; for (int row = 2;row<=iRows; row++) { pos = m_list.GetItemCount(); num.Format(_T("%d"),pos +1); m_list.InsertItem(pos,num); for (int colum=1;columDoModal()==IDOK) { szGetName = lpszOpenFile->GetPathName(); SetWindowText(szGetName); delete lpszOpenFile; } else return; //文件全名称 CString csFileName = szGetName; //需要添加的两个sheet的名称 CString csSheetName = "newSheet"; CString csSheetName2 = "newSheet2"; // 新建一个excel文件，自己写入文字 CExport2Excel Excel_example; //新建excel文件 Excel_example.CreateExcel(csFileName); //添加sheet,新加的sheet在前，也就是序号为1 Excel_example.CreateSheet(csSheetName); Excel_example.CreateSheet(csSheetName2); //操作最开始添加的sheet:(newSheet) Excel_example.SetSheet(2); //添加表头 Excel_example.WriteHeader(1,"第一列"); Excel_example.WriteHeader(2,"第二列"); //添加核心数据 Excel_example.WriteData(1,1,"数据1"); Excel_example.WriteData(1,2,"数据2"); //保存文件 Excel_example.Save(); //关闭文件 Excel_example.Close(); } 7、注意事项 1)一般单个Excel文件包含多个sheet,程序默认打开第一个； 2)指定操作sheet，使用Excel_example.SetSheet(2)函数; 3）打开文件时最左侧的sheet序号为1，新建excel时最新添加的sheet序号为1. 【后记】本程序主要基于网络CSDN中---“Excel封装库V2.0”---完成，下载地址是：http://download.csdn.net/detail/yeah2000/3576494，在此表示感谢！同时， 1）在其基础上作了小改动，改正了几个小错误，添加了几个小接口； 2）添加了如何使用的例子，原程序是没有的； 3）详细的注释发现不足之处，还请大家多多指教！

这是一个共享软件，除了可以在本站下载外，你还可以在http://dl.dbank.com/c0e431w4g9# 下载。其主要功能如下： 1、内置特等奖、一等奖~五等奖6个级别的奖项和1个自定义级别的奖项，抽奖顺序没有限制。 2、对于任意一等奖来说，可以一次抽取任意数量的奖项； 3、背景、解码用户可自行调整； 4、抽奖背景音乐用户可换； 5、可以在抽奖过程中显示中奖者的照片； 6、抽奖过程中可以显示用户所在的部门信息； 7、对于要求必须在场的抽奖，当中奖人不在场时可以做弃权处理； 8、抽奖结果立即存入Excel“抽奖结果”工作表中。使用说明及注意事项　 1、抽奖前请在Excel“工具”-“宏”-“安全性”中将宏的安全级别设置为低，然后关闭Excel重新打开，否则无法运行抽奖程序。 2、本程序支持六个固定级别的奖项设置和一个自定义的奖项设置。 3、抽奖顺序有两种，即先小奖后大奖或相反。这个设置仅用于初始化《抽奖》工作表中的奖项设置，抽奖过程中需手动在《抽奖》工作表中切换抽奖级别。 4、本程序支持两种抽奖方法：每次抽取一组中的全部名额，或每次抽取指定的若干名额。但是推荐一次抽取1个，因为大余一个时只能显示最后一名中奖者的照片，且显示众多中奖者的名字时布局不是很美观。 5、单项最多可设 5000 名中奖者，中奖者总数不能多于候选人数，否则在抽取最后一人时会出现死循环。 6、请在《候选名单》工作表中录入所有候选项。候选人仅受Excel行数限制，输入时请连续纵向输入，不留空行。 7、在《抽奖》工作表中点击“弃权”按钮时该组中奖的所有的人将被自动剔除，后面的抽奖中将不再参与抽奖。 8、当设置的奖项总数+弃权总数大于等于抽奖候选人总数时，程序将出现死循环。 9、抽奖一旦开始，请完成整个抽奖过程，不要中途退出程序或追加候选人名单。 10、本程序不支持重复中奖，中奖的人不计入下一轮抽奖中。　　关于《抽奖》工作表的界面设置的几点说明： 1、修改《抽奖》工作表的界面时需要先解锁工作表。具体方法：“工具”-“保护”-“解锁工作表”。修改完后最好锁定工作表。 2、抽奖时可隐藏Excel航标、列表。具体方法：“工具”-“选项”-“视图”-“行号列号”，取消勾选前面的复选框。 3、在调整《抽奖》工作表时，不可插入、删除行或列。 4、一般地，修改《抽奖》工作表布局可以通过调整第一行的行高或第一列的列宽来实现。如果你要对控件进行详细布局设计（例如改变控件大小），你可以通过控件设计模式来实现。具体方法：“视图”-“工具栏”-“退出设计模式”。这时，你可以随意拖动按钮或照片控件的位置及大小。调整完成后必须退出设计模式（将“退出设计模式”前面的勾取消掉）。系统的默认位置为D2单元格。 5、为满足多人抽奖的需要，《抽奖》工作表中的D5:D65536（即D列中从第5行到65535行）用来显示中奖者姓名。该列采用了条件格式，用特殊的格式来显示中奖者的姓名。如果你需要更改这个样式，可在编辑工具栏(显示fx的那个工具栏)最左边的“名称框”中选择“ResultDisplay” 或输入D5:D65536并回车，这时这些单元格会被自动选上，然后从工具栏中的“格式”-“条件格式”中修改。 6、《抽奖》工作表中的下拉列表根据设置自动生成，请不要更改其下拉列表的内容。 7、全屏显示。具体方法：“视图”-“全屏显示”。 8、更换背景。具体方法：“格式”-“工作表”-“背景”，选择你要的背景图片即可。 9、更换默认照片。具体方法：替换photo文件夹下面的“none.jpg”这个图片文件即可。 10、若要在抽奖过程中显示中奖者的照片，则需把抽奖人的照片放到photo文件夹下面，同时在《候选名单》工作表的C列给出照片名。 11、若要更改在抽奖过程中播放的声音，可以替换Music文件夹下面的start.wav、finish.wav文件。

Office开发/ VBA

5,173

社区成员

17,905

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章