Excel-VBA常用技巧-第10章.文件操作

VBA常用技巧代码解析1VBA常用技巧目录VBA常用技巧...................................................................................................................................1第10章文件操作...............................................................................................................2技巧1导入文本文件...................................................................................................21-1使用查询表导入............................................................................................21-2使用Open语句导入.....................................................................................31-3使用OpenText方法.......................................................................................5技巧2将数据写入文本文件.......................................................................................62-1使用Print#语句...........................................................................................62-2另存为文本文件............................................................................................8技巧3文件修改的日期和时间...................................................................................9技巧4查找文件或文件夹.........................................................................................10技巧5获得当前文件夹的名称.................................................................................12技巧6创建和删除文件夹.........................................................................................12技巧7重命名文件或文件夹.....................................................................................13技巧8复制指定的文件.............................................................................................14技巧9删除指定的文件.............................................................................................15技巧10搜索特定的文件...........................................................................................16技巧11使用WSH处理文件....................................................................................1811-1获取文件信息.............................................................................................1811-2查找文件.....................................................................................................2011-3移动文件.....................................................................................................2111-4复制文件.....................................................................................................2111-5删除文件.....................................................................................................2211-6创建文件夹.................................................................................................2311-7复制文件夹.................................................................................................2411-8移动文件夹.................................................................................................2511-9删除文件夹.................................................................................................2511-10导入文本文件...........................................................................................2611-11创建文本文件...........................................................................................28VBA常用技巧代码解析2第10章文件操作技巧1导入文本文件在实际应用中，我们经常从软件中将数据导出为文本文件，在需要将这些文本文件导入到Excel中时可以使用以下的方法。1-1使用查询表导入在ExcelVBA中可以使用Add方法新建查询表后导入文本文件，如下面的代码所示。#001SubAddQuery()#002Sheet1.UsedRange.ClearContents#003WithSheet1.QueryTables.Add(_#004Connection:=TEXT;&ThisWorkbook.Path&\工资表.txt,_#005Destination:=Range(A1))#006.TextFilePlatform=936#007.TextFileCommaDelimiter=True#008.Refresh#009EndWith#010EndSub代码解析：AddQuery过程使用QueryTable对象的Add方法新建查询表后将文本文件“工资表.txt”的内容导入到工作表中。应用于QueryTable对象的Add方法新建一个查询表，返回QueryTable对象，该对象代表新建的查询表，语法如下：expression.Add(Connection,Destination,Sql)参数expression是必需的，返回一个QueryTables对象。参数Connection是必需的，查询表的数据源。如果数据源是文本文件，是“TEXT;文VBA常用技巧代码解析3本文件路径和名称”形式的字符串，其他数据源请参阅帮助。参数Destination是必需的，Range类型，查询表目标区域左上角单元格用于放置生成的查询表的区域。目标区域必须在包含expression指定的QueryTables对象的工作表上。参数Sql是可选的，在ODBC数据源上运行的SQL查询字符串，当将QueryTable对象、文本文件、或是ADO或DAORecordset对象指定为数据源时不能使用该参数。第3行到第5行代码在工作表中建立对位于同一目录中的“工资表.txt”文本文件的查询，并将查询结果放置到工作表中。第6行代码设置导入的文本文件的原始格式，QueryTables对象的TextFilePlatform属性返回或设置正向查询表中导入的文本文件的原始格式，默认值是在“文本导入向导”的“文件原始格式”选项中的当前设置。第7行代码设置文本文件导入查询表中时，是以逗号作为分隔符。第8行代码使用Refresh方法更新外部数据区域，应用于QueryTable对象的Refresh方法更新外部数据区域，语法如下：expression.Refresh(BackgroundQuery)参数expression是必需的，返回一个QueryTable对象。参数BackgroundQuery是可选的的，只用于基于SQL查询结果的QueryTable。1-2使用Open语句导入使用Open语句输入文本文件，如下面的代码所示。#001SubOpenText()#002DimFilenameAsString#003DimmyTextAsString#004DimmArr()AsString#005DimiAsInteger#006DimjAsInteger#007Filename=ThisWorkbook.Path&\工资表.txt#008j=1#009Sheet1.UsedRange.ClearContents#010OpenFilenameForInputAs#1#011DoWhileNotEOF(1)#012LineInput#1,myText#013mArr=Split(myText,,)#014Fori=0ToUBound(mArr)VBA常用技巧代码解析4#015Sheet1.Cells(j,i+1)=mArr(i)#016Next#017j=j+1#018Loop#019Close#1#020EndSub代码解析：OpenText过程使用Open语句将文本“工资表.txt”的内容输入到工作表中。第10行代码使用Open语句打开文本文件以完成对文本文件的输入。Open语句能够对文件输入/输出（I/O），语法如下：。OpenpathnameFormode[Accessaccess][lock]As[#]filenumber[Len=reclength]Pathname是必需的，指定文件名，该文件名可能还包括目录、文件夹及驱动器。mode是必需的，指定文件方式，有Ap