使用 excel 2003 工作表的 vba 示例

《使用 excel 2003 工作表的 vba 示例》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、showtoc使用Excel2003工作表的VBA示例发布日期：11/4/2004

2、更新日期：11/4/2004FrankRiceMicrosoftCorporation适用范围：MicrosoftOfficeExcel2003摘要：寻找能够为Excel工作表增加额外功能的宏。只需稍加练习，您就可以扩展这些程序，使其适合您自己的应用程序。本页内容引言导出带有逗号和引号分隔符的文本文件计算包含公式、文本或数字的单元格数量使用Saved属性确定工作簿是否已发生更改合并数据列数组中的总行数和总列数结论引言本文介绍几

3、个MicrosoftVisualBasicforApplications(VBA)宏，您可以使用这些宏为MicrosoftOfficeExcel2003工作簿和工作表增加额外的功能。这些宏将为您的应用程序提供新的功能或增强现有的功能。阅读示例的同时，您应该寻找扩展这些宏的方法，以适合您自己的情况。返回页首导出带有逗号和引号分隔符的文本文件Excel没有自动将数据导出为文本文件的菜单命令，因此导出的文本文件同时带有逗号和引号分隔符。例如，没有命令能自动创建包含以下内容的文本文件："Text1","Text2",

4、"Text3"但是，您可以使用VBA宏在Excel中创建该功能。这种文件格式是在诸如MicrosoftOfficeAccess2003和MicrosoftOfficeWord2003之类的应用程序中导入文本数据时常见的格式。您可以在如下所示的VBA宏中使用Print语句，导出同时带有逗号和引号分隔符的文本文件。要使该程序正常运行，必须在运行该程序之前选择包含数据的单元格。使用以下示例之前，请执行以下步骤：1.打开一个新工作簿。2.在“工具”菜单中，指向“宏”，然后单击“VisualBasic编辑器”（或者简单

5、地按下ALT+F11组合键）。在“VisualBasic编辑器”中，单击“插入”菜单，然后单击“模块”。3.将以下示例代码键入或粘贴到模块中：SubQuoteCommaExport()DimDestFileAsStringDimFileNumAsIntegerDimColumnCountAsIntegerDimRowCountAsInteger'提示用户指定目标文件名。DestFile=InputBox("Enterthedestinationfilename"&_Chr(10)&"(withcomplete

6、pathandextension):",_"Quote-CommaExporter")'获取下一个可用的文件句柄编号。FileNum=FreeFile()'关闭错误检查功能。OnErrorResumeNext'尝试打开目标文件以供输出。OpenDestFileForOutputAs#FileNum'如果出现错误，则报告错误并结束程序。IfErr<>0ThenMsgBox"Cannotopenfilename"&DestFileEndEndIf'打开错误检查功能。OnErrorGoTo0'循环选择的每一行。Fo

7、rRowCount=1ToSelection.Rows.Count'循环选择的每一列。ForColumnCount=1ToSelection.Columns.Count'将当前单元格中的文本写入到文件中，文本用引号括起来。Print#FileNum,""""&Selection.Cells(RowCount,_ColumnCount).Text&"""";'检查单元格是否位于最后一列。IfColumnCount=Selection.Columns.CountThen'如果是，则写入一个空行。Print#Fil

8、eNum,Else'否则，则写入一个逗号。Print#FileNum,",";EndIf'开始ColumnCount循环的下一个迭代。NextColumnCount'开始RowCount循环的下一个迭代。NextRowCount'关闭目标文件。Close#FileNumEndSub4.运行该宏之前，请选择要导出的数据，然后在“工具”菜单中指向“宏”并单击“宏”。5.选择QuoteCommaExport宏，然后单击“运行”。返回页首计算包含公式、文本或数字的单元格数量在Excel中，您可以对包含公式、文本或数字

9、的工作表中的单元格数量进行计算，方法是使用“定位条件”对话框选择单元格，然后运行计算所选单元格数量的宏。例如，当您需要设置表格以确定合计列的每一行是否都包含公式而不用手动检查每一行时，此方法可能很有用。选择单元格要选择公式、文本或数字，请执行以下步骤：1.在“编辑”菜单中，单击“定位”，然后单击“定位条件”。2.在“定位条件”对话框中，要选择所有公式，请单击“公式”并确保选中“数字”、“文本”、“逻