使用VBA操作文件9应用示例.doc

使用VBA操作文件(9):应用示例 2009年08月26日, 12:53 下午 ?(1?人投票, 平均:?5.00?out of 5) 下面是在vbaepress中使用VBA操控文件的一些示例代码，供参考。选择文件并打开不知道要打开的文件的具体位置，通过用户选择后打开该文件。 Sub GetOpenFileNameExample3() Dim lCount As Long Dim vFilename As Variant Dim sPath As String Dim lFilecount As Long sPath = c:\windows\temp\ ChDrive sPath ChDir sPath vFilename = Application.GetOpenFilename(Microsoft Excel files (*.xls),*.xls, , Please select the file(s) to open, , True) If TypeName(vFilename) = Boolean Then Exit Sub For lCount = 1 To UBound(vFilename) Workbooks.Open vFilename(lCount) Next End Sub 如果要选择打开图片文件，则将文件类型改为： Image files (*.jpg),*.jpg 搜索文件搜索指定目录中含有关键词的所有文件并打开这些文件。 Sub OpenBooksInFolder() ? Dim FileFound As String, N As Long Dim Sheet As Worksheet, FilePath As String ? stipulate the folders path here FilePath = C:\Documents and Settings\m\桌面 ? DoEvents Application.ScreenUpdating = False ? list all the books in the folder With Application.FileSearch .LookIn = FilePath .FileType = msoFileTypeExcelWorkbooks ? this should gives partial matches i.e. anything with happy in the name regardless of case .Filename = 水工 ? false = only search given folder .SearchSubFolders = False ? On Error Resume Next If .Execute 0 Then For N = 1 To .FoundFiles.Count ? Debug.Print .FoundFiles(N) make a choice Workbooks.Open (.FoundFiles(N)) make a choice now do what you want to do with each open workbook Next N Else MsgBox The file .Filename was not found End If End With Application.ScreenUpdating = True End Sub 基于文件名将文件移到相应的文件夹中有许多文件，现在希望根据文件名将该文件移至相应的文件夹。例如，将名称中包含“Bankhill”的文件移到“Bankhill”文件夹，名称中包含“Lite”的文件移到“Lite”文件夹，等等。 Sub LoopFolder() Const SourceFolder As String = C:\Users\ianlane