程序中怎样取得打开的excel有几个工作表？

yl_yz 2006-03-03 10:38:44

li_excel= CREATE OLEObject
li_excel.ConnectTonewObject("Excel.application")
li_rtn = getfileopenname('打开文件',ls_pathname,ls_filename,'XLS','EXCEL文件(*.xls),*.xls')
li_excel.workbooks.open(ls_pathname,0,0)
现在想知道打开的excel中包含几个工作表？

...全文

222 7 打赏收藏转发到动态举报

写回复

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

hygougou 2006-04-12

打赏
举报

回复

ole_Server.Application.WorkSheets.Count()

yl_yz 2006-04-12

打赏
举报

回复

还是没解决得了

xiangjianchao 2006-04-12

打赏
举报

回复

你可以打開excel﹐然后點編輯宏﹐然后就有vbscript了。

霖湘凝 2006-03-04

打赏
举报

回复

我记得是worksheet.count()，以前用过记得不清楚了

hangzhou6274 2006-03-04

打赏
举报

回复

我现在也碰到这个问题，不过懒得去查，楼主知道了告诉我一下，先谢了。

lzheng2001 2006-03-03

打赏
举报

回复

查看帮助worksheet对象

老板卤两个蛋蛋 2006-03-03

打赏
举报

回复

EXCEL的帮助里应该有吧

软件说明： 2011-6-14 更新：很多人说不能使用，估计是没有安装.NET FRAMEWORK2.0 或 2.0以上版本的缘故。 1、所有窗口内容要“由上至下”的填写顺序。阶段一：是将EXCEL文档中带有连接字段的超连接进行重写入EXCEL,以便于主表与附表进行关联。由于阶段一暂时没有解决保存问题，需要手动打开该XLS文件然后另存一下。保存好文件之前不要关闭进程里的EXCEL.exe进程. 阶段二：将EXCEL中的某个工作簿导入到SQLSERVER中。阶段三：根据阶段一、阶段二导入的数据，将符合的附加工作簿内容写入SQL附加表中。 2、导入前请了解源EXCEL文档中以下几项：导入前准备工作：打开EXCEL文档，了解主表名、主表在EXCEL文档中是第几个工作簿、主表中带“超连接”的字段名及其是第几个字段、“超连接”内容要插入主表的第几列。在SQLSERVER中，新建主表，附加表（尽量多的字段；要有主键；最后一个字段在阶段二的过程中导入“超连接”信息；） 3、导入主表 4、导入附加表 5、根据不同需要，简单EXCEL文档可省略阶段1、阶段3。程序编写：晨星邮件：pansy5@tom.com

这是一个共享软件，除了可以在本站下载外，你还可以在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文件。

初学Excel函数你是否总有一种无力感?工作中遇到问题时，不知道用什么函数来解决?函数的单词都认识，但一用它来写公式，要么写不出来，要么结果不对，更别说编写嵌套公式那些函数名称、函数参数的作用总是记不住，公式总是编制不对;用Excel多年,还是只会常用的那三五个函数。本次课程结合职场工作中遇到的问题，整理100问用函数来帮助大家学习Excel函数的这些痛点。熟练掌握Excel函数的他，总是几分钟就能完成，别人倒腾1天的工作量。

【前言】工作或学习中可能需要实现基于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）详细的注释发现不足之处，还请大家多多指教！

如何将Excel多个工作表拆分成多个单独的Excel 工作中经常会用到excel，熟练的运营excel可以高效的减少工作量，很多人制作excel时会将不同的数据分类，就形成了一个excel中有多个工作表(sheet)，但是由于某些原因需要将这些工作表单独放到一个excel中，但由于数据量大会给我们的工作带来很多困扰，怎么将excel多个工作表拆分成多个单独的excel？excel是个很强大的软件...

1,076

社区成员

66,437

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章