使用 Excel 2003 工作表的 VBA 示例.doc

使用 Excel 2003 工作表的 VBA 示例 发布日期： 11/4/2004 | 更新日期： 11/4/2004 Frank Rice Microsoft Corporation 适用范围： Microsoft Office Excel 2003 摘要：寻找能够为 Excel 工作表增加额外功能的宏。只需稍加练习，您就可以扩展这些程序，使其适合您自己的应用程序。 本页内容 HYPERLINK /china/msdn/library/data/sqlserver/XLSamples.mspx \l EIAA#EIAA 引言 HYPERLINK /china/msdn/library/data/sqlserver/XLSamples.mspx \l EHAA#EHAA 导出带有逗号和引号分隔符的文本文件 HYPERLINK /china/msdn/library/data/sqlserver/XLSamples.mspx \l EGAA#EGAA 计算包含公式、文本或数字的单元格数量 HYPERLINK /china/msdn/library/data/sqlserver/XLSamples.mspx \l EFAA#EFAA 使用 Saved 属性确定工作簿是否已发生更改 HYPERLINK /china/msdn/library/data/sqlserver/XLSamples.mspx \l EEAA#EEAA 合并数据列 HYPERLINK /china/msdn/library/data/sqlserver/XLSamples.mspx \l EDAA#EDAA 数组中的总行数和总列数 HYPERLINK /china/msdn/library/data/sqlserver/XLSamples.mspx \l ECAA#ECAA 结论 引言 本文介绍几个 Microsoft Visual Basic for Applications (VBA) 宏，您可以使用这些宏为 Microsoft Office Excel 2003 工作簿和工作表增加额外的功能。这些宏将为您的应用程序提供新的功能或增强现有的功能。阅读示例的同时，您应该寻找扩展这些宏的方法，以适合您自己的情况。 HYPERLINK /china/msdn/library/data/sqlserver/XLSamples.mspx \l top#top 返回页首 导出带有逗号和引号分隔符的文本文件 Excel 没有自动将数据导出为文本文件的菜单命令，因此导出的文本文件同时带有逗号和引号分隔符。例如，没有命令能自动创建包含以下内容的文本文件： Text1,Text2,Text3 但是，您可以使用 VBA 宏在 Excel 中创建该功能。这种文件格式是在诸如 Microsoft Office Access 2003 和 Microsoft Office Word 2003 之类的应用程序中导入文本数据时常见的格式。 您可以在如下所示的 VBA 宏中使用 Print 语句，导出同时带有逗号和引号分隔符的文本文件。要使该程序正常运行，必须在运行该程序之前选择包含数据的单元格。 使用以下示例之前，请执行以下步骤： 1. 打开一个新工作簿。 2. 在“工具”菜单中，指向“宏”，然后单击“Visual Basic 编辑器”（或者简单地按下 ALT+F11 组合键）。在“Visual Basic 编辑器”中，单击“插入”菜单，然后单击“模块”。 3. 将以下示例代码键入或粘贴到模块中： Sub QuoteCommaExport() Dim DestFile As String Dim FileNum As Integer Dim ColumnCount As Integer Dim RowCount As Integer 提示用户指定目标文件名。 DestFile = InputBox(Enter the destination filename _ Chr(10) (with complete path and extension):, _ Quote-Comma Exporter) 获取下一个可用的文件句柄编号。 FileNum = FreeFile() 关闭错误检查功能。 On Error Resume Next 尝试打开目标文件以供输出。 Open DestFile For Output As #FileNum 如果出现错误，则报告错误并结束程序。 If Err 0 Then MsgBox Cannot open filename DestFile End End If 打开错误检查功能。 On Error GoT