咔片PPT · AI自动生成演示文稿,模板丰富、排版精美 讯飞智文 · 一键生成PPT和Word,高效应对学习与办公

内容导航:


一、如何用excel编程


基本思路

基础实现方法同上篇文章《直接通过ODBC读、写Excel表格文件》相同,都是通过ODBC来把Excel表格文件当成数据库文件来进行读、写等操作,所以在Excel表格文件中写入的行头名必须是唯一的(不要重名,相当于数据库中的ID值)。本文中对Excel文件的操作都被封装进一个类CSpreadSheet中,通过它我们可以非常简便的实现各种Excel表格数据操作,并且可以对该类进行扩充来满足自己的需求。

具体实现

一、 包含Excel文件操作类头文件

#include "CSpreadSheet.h"

二、 新建Excel文件,并写入默认数据

// 新建Excel文件名及路径,TestSheet为内部表名

CSpreadSheet SS("c:\Test.xls", "TestSheet");

CStringArray sampleArray, testRow;

SS.BeginTransaction();

// 加入标题

sampleArray.RemoveAll();

sampleArray.Add("姓名");

sampleArray.Add("年龄");

SS.AddHeaders(sampleArray);

// 加入数据

CString strName[] = {"徐","徐","郭","牛","朱"};

CString strAge[] = {"27","23","28","27","26"};

for(int i = 0; i < sizeof(strName)/sizeof(CString); i++)

{

sampleArray.RemoveAll();

sampleArray.Add(strName[i]);

sampleArray.Add(strAge[i]);

SS.AddRow(sampleArray);

}

SS.Commit();

三、 读取Excel文件数据

CSpreadSheet SS("c:\Test.xls", "TestSheet");

CStringArray Rows, Column;

//清空列表框

m_AccessList.ResetContent();

for (int i = 1; i <= SS.GetTotalRows(); i++)

{

// 读取一行

SS.ReadRow(Rows, i);

CString strContents = "";

for (int j = 1; j <= Rows.GetSize(); j++)

{

if(j == 1)

strContents = Rows.GetAt(j-1);

else

strContents = strContents + " --> " + Rows.GetAt(j-1);

}

m_AccessList.AddString(strContents);

}

四、 对已存在Excel表格数据进行添加、插入、替换操作

// 初始化测试行数据,进行添加、插入及替换数据操作演示

for (int k = 1; k <= 2; k++)

{

testRow.Add("Test");

}

SS.AddRow(testRow); // 添加到尾部

SS.AddRow(testRow, 2); // 插入新行到第二行

SS.AddRow(testRow, 6, true); // 替换原第四行来新的内容

SS.AddCell("徐景周", 1,2); // 添加(不存在)或替换(存在)第二行,第一列单元格内容

SS.Commit();

五、 对已存在Excel表格数据进行行、列、单元格查询

void CExcelAccessDlg::OnQuery()

{

CSpreadSheet SS("c:\Test.xls", "TestSheet");

CStringArray Rows, Column;

CString tempString = "";

UpdateData();

if(m_strRow == "" && m_strColumn == "") // 查询为空

{

AfxMessageBox("行号、列号不能同时为空!");

return;

}

else if(m_strRow == "" && m_strColumn != "") // 查询指定列数据

{

int iColumn = atoi(m_strColumn);

int iCols = SS.GetTotalColumns();

if(iColumn > iCols) // 超出表范围查询时

{

CString str;

str.Format("表中总列数为: %d, ", iCols);

AfxMessageBox(str + " 查询列数大于Excel表中总列数,请重新输入!");

return;

}

// 读取一列数据,并按行读出

if(!SS.ReadColumn(Column, iColumn))

{

AfxMessageBox(SS.GetLastError());

return;

}

CString tmpStr;

for (int i = 0; i < Column.GetSize(); i++)

{

tmpStr.Format("行号: %d, 列号: %d ,内容: %sn", i+1,iColumn,Column.GetAt(i));

tempString += tmpStr;

}

AfxMessageBox(tempString);

}

else if(m_strRow != "" && m_strColumn == "") // 查询指定行数数据

{

int iRow = atoi(m_strRow);

int iRows = SS.GetTotalRows();

if(iRow > iRows) // 超出表范围查询时

{

CString str;

str.Format("表中总行数为: %d, ", iRows);

AfxMessageBox(str + " 查询行数大于Excel表中总行数,请重新输入!");

return;

}

// 读取指定行数据

if(!SS.ReadRow(Rows, iRow))

{

AfxMessageBox(SS.GetLastError());

return;

}

CString tmpStr;

for (int i = 0; i < Rows.GetSize(); i++)

{

tmpStr.Format("行号: %d, 列号: %d ,内容: %sn", iRow, i+1, Rows.GetAt(i));

tempString += tmpStr;

}

AfxMessageBox(tempString);

}

else if(m_strRow != "" && m_strColumn != "") // 查询指定单元格数据

{

int iRow = atoi(m_strRow), iColumn = atoi(m_strColumn);

int iRows = SS.GetTotalRows(), iCols = SS.GetTotalColumns();

if(iColumn > iCols) // 超出表范围查询时

{

CString str;

str.Format("表中总列数为: %d, ", iCols);

AfxMessageBox(str + " 查询列数大于Excel表中总列数,请重新输入!");

return;

}

else if(iRow > iRows)

{

CString str;

str.Format("表中总行数为: %d, ", iRows);

AfxMessageBox(str + " 查询行数大于Excel表中总行数,请重新输入!");

return;

}

// 读取指定行、列单元格数据

if(!SS.ReadCell(tempString, iColumn, iRow))

{

AfxMessageBox(SS.GetLastError());

return;

}

CString str;

str.Format("行号: %d, 列号: %d ,内容: %s", iRow,iColumn,tempString);

AfxMessageBox(str);

}

}

六、 将存在的Excel转换另存为指定分隔的文本文件

// 将原Excel文件转换为用分号分隔的文本,并另存为同名文本文件

SS.Convert(";");

七、 删除Excel中表格

SS. DeleteSheet(); // 删除Excel文件中所有表格

SS. DeleteSheet(" TestSheet "); // 删除Excel中TextSheet表格

八、 获取Excel中总行数、总列数、当前行

int iCols = SS.GetTotalColumns(); // 总列数

int iRows = SS.GetTotalRows(); // 总行数

int iCurRow = SS.GetCurrentRow(); // 当前所在行号

九、 获取行头数据

CStringArray rowHeader;

SS.GetFieldNames(rowHeader);

CString tmpStr;

for (int i = 0; i < rowHeader.GetSize(); i++)

{

tmpStr.Format("行号: %d, 列号: %d ,内容: %sn", 1, i+1, rowHeader.GetAt(i));

tempString += tmpStr;

}

AfxMessageBox(tempString);

最后,如果想知道详细实现细节的话,可以在下载示例源码后,仔细查看源码既可(内有详细注释)。





二、Excel表格怎么编程


xcel表格众所周知是一款整理数据的工具,随着技术发展,Excel也增加了很多功能,人们也非常愿意在同一个软件中实现更多的功能,比如在excel中进行编程操作。Excel是有简单编程,vba函数就可以通过Excel来进行简单编程展示,下面内容就来用Excel演示编程的操作方法。更多Excel表格零基础入门到快速精通的教程课程就在哦,想自学Excel的一定要看看。

Excel编程的操作方法:

1、打开excel文档,在开发工具中找到vba。要使用vba必须要通过vba工具栏进行操作,因此需要将vba工具栏调出。如果找不到vba的位置,在excel的选项中进行设置勾选。勾选之后点击确定返回主界面可以看到工具栏出现“开发工具”字样,说明vba工具栏已经调取成功。

2、如图所示,点击“插入”中的“模块”。

3、然后输入

Sub输入()

Range("A1")=360-----这个是今天展示的数字。

EndSub

可以执行的VBA代码(宏程序),结构是这样的:

Sub程序名(参数)

可以执行任务的代码

EndSub

点击“运行”图标。

4、通过简单的编程操作,我们得到了最终的数据。

以上就是Excel简单编程的操作演示过程了,以vba为例子进行了演示,是不是觉得编程其实也没有很难,自己试试看吧。



三、excel宏编程教程有哪些


一、宏的自学。首先需要明确的是,本文不可能教会您关于宏的所有内容。您需要学会利用"录制宏"的方法来学习宏:点击excel" 工具"下拉菜单中"宏"下?quot;录制新宏",此后可象平时一样进行有关操作,待完成后停止录制。然后再点击"工具"下拉菜单中"宏"下"宏"的"编 辑"选项即可打开刚才所录制的宏的Visual Basic源程序,并且可以在此时的"帮助"下拉菜单中获得有关的编程帮助。对录制宏进行修改不仅可以学习宏的使用,还能大大简化宏的编写。

二、基本概念。为了学习excel中的宏,我们需要先了解以下一些基本概念。

1、工作簿:Workbooks、Workbook、ActiveWorkbook、ThisWorkbook

Workbooks集合包含excel中所有当前打开的excel工作簿,亦即所有打开的excel文件;Workbook对应Workbooks中的成员,即其中的excel文件;ActiveWorkbook代表当前处于活动状态的工作簿,即当前显示的excel文件;ThisWorkbook代表其中有Visual Basic代码正在运行的工作簿。

在具体使用中可用Workbooks(index)来引用Workbook对象,其中index为工作簿名称或编号;如Workbooks(1)、 Workbooks("年度报表.xls")。而编号按照创建或打开工作簿的顺序来确定,第一个打开的工作簿编号为1,第二个打开的工作簿为2??。

2、工作表:Worksheets、Worksheet、ActiveSheet

Worksheets集合包含工作簿中所有的工作表,即一个excel文件中的所有数据表页;而Worksheet则代表其中的一个工作表;ActiveSheet代表当前处于的活动状态工作表,即当前显示的一个工作表。

可用Worksheets(index)来引用Worksheet对象,其中index为工作表名称或索引号;如Worksheets(1)、 Worksheets("第一季度数据")。工作表索引号表明该工作表在工作表标签中的位置:第一个(最左边的)工作表的索引号为1,最后一个(最右边 的)为Worksheets.Count。需要注意的是:在使用过程中excel会自动重排工作表索引号,保持按照其在工作表标签中的从左至右排列,工作表的索引号递增。因此,由于可能进行的工作表添加或删除,工作表索引号不一定始终保持不变。

3、图表:Chart 、Charts、ChartObject、ChartObjects、ActiveChart

Chart代表工作簿中的图表。该图表既可为嵌入式图表(包含在ChartObject中),也可为一个分开的(单独的)图表工作表。

Charts代表指定工作簿或活动工作簿中所有图表工作表的集合,但不包括嵌入式在工作表或对话框编辑表中的图表。使用Charts(index) 可引用单个Chart图表,其中index是该图表工作表的索引号或名称;如Charts(1)、Charts("销售图表")。图表工作表的索引号表示 图表工作表在工作簿的工作表标签栏上的位置。Charts(1)是工作簿中第一个(最左边的)图表工作表;Charts(Charts.Count)为最后一个(最右边的)图表工作表。

三、

1、对于从没使用过Excel宏功能的话,一般要先进行添加“宏”选项,具体路径就是点击左上角的微软图标,依次选择:“Excel选项”-“常用”,勾选“功能区显示开发工具选项卡”,然后就可以看到在Excel选项卡中就多了一个“开发工具”的选项。

2、在Excel选项卡上选择“开发工具”,开始宏的录制,选中B3单元格的文字【百度网页】,点击选择“录制宏”。

3、这时,会弹出一个“录制新宏”的对话框,我们想要将【百度网页】进行加粗和变红的操作,因此,将宏的名称命名为“加粗变红”,同时设定快捷键便于快速调用,小编建议大家使用大写字母的快捷键,最后点击“确定”按钮开始录制。

4、按照我们录制宏的目的,选择“开始”选项卡,对于【百度网页】进行加粗和变红的操作。

5、完成以后切换到“开发工具”选项卡,点击“停止录制”按钮。这样,命名为“加粗变红”的宏就录制好了。