VBA文件操作：导入导出文本文件实战

"本章介绍了如何使用VBA在Excel中进行文件操作，特别是涉及导入文本文件和将数据写入文本文件的方法。通过三个不同的范例，涵盖了使用QueryTables方法、Open语句以及OpenText方法来处理文本文件。" 在VBA（Visual Basic for Applications）编程中，文件操作是常见且重要的任务，特别是在处理Excel工作簿时。本章主要讨论了三种不同的方法来导入文本文件以及将数据写入文本文件。 首先，范例134-1展示了如何使用QueryTables对象的Add方法导入文本文件。这种方法简单直观，适用于从CSV或逗号分隔的文本文件中快速导入数据。SubAddQuery()子程序中，首先清空Sheet2的所有内容，然后使用QueryTables.Add方法，连接字符串指定文本文件路径，并设置数据分隔符为逗号，最后刷新数据以完成导入。 接着，范例134-2演示了使用Open语句导入文本文件。SubOpenText()通过打开文件句柄（#1），然后逐行读取文本文件，使用Split函数将每行数据分割成数组，再将数组元素逐个写入到Sheet2的相应单元格中。这种方法更加底层，可以自定义更多细节，如数据分隔符。 范例134-3则使用了OpenText方法，这是Workbook对象的一个方法，可以更方便地导入文本文件。SubOpenText()首先清空Sheet2，然后调用OpenText方法，指定文件路径、起始行、数据类型（这里是分隔符文本）以及逗号作为分隔符。导入完成后，将数据从新打开的工作簿复制回Sheet2并关闭新工作簿。 在写入文本文件方面，范例135-1使用了Print#语句。SubPrintText()子程序中，会创建一个文本文件，并将数据写入。虽然这部分内容不完整，但通常会涉及打开文件，使用Print#语句将数据逐行写入，最后关闭文件。 以上方法各有优缺点，使用QueryTables更易于使用，适合快速导入；Open语句提供了更多控制，适用于复杂情况；而OpenText方法则在便利性和灵活性之间取得平衡。在实际应用中，开发者应根据具体需求选择合适的方法。