Excel VBA - 操作文件

操作文件有以下几个功能。

1. 获取文件的路径：当前的文件路径。

函数：thisworkbook.path

Dim ipath, iname As String

ipath = ThisWorkbook.Path & "\"

返回的ipath为当前目录，例如：D:\工作\0307（华泰升版最终）\华泰\ST\1\。后面可以直接跟文件名。

 

2.  用于判断是否存在文件：Dir

返回一个文件名，需要明确扩展名，例如：

Dim ipath, iname As String

iname = Dir(ipath & "1.xls*")    如果ipath路径下存在1.xls，则iname被赋值为“1”。如果没有，则赋值为空（“”）

iname = Dir(ipath & "*.xls*")    如果ipath路径下.xls文件，则返回第一个xls的文件名。如果没有，则赋值为空（“”）

 

3. 复制文件：Filecopy

把A路径的文件复制到B路径，很简单实用的函数，例如：

 Sub CopytheFile()
    Dim s As String
    Dim PumpTable As String

    PumpTable = "\400700ST-DS07-0001.xlsx"
    s = ThisWorkbook.Path & "\Standard Table\PST.xlsx"

    FileCopy s, ThisWorkbook.Path & PumpTable   注意使用的时候没有括弧，s为源文件路径和文件名，逗号后面为新路径和新文件名。
    
End Sub