Question

有没有办法在不知道完整路径名的情况下打开excel文件？

例如： TEST_03222018.csv是C:\test\folder

中的文件名

string \ path的已知部分是

C:\test\folder\TEST_03

有没有办法在没有其余路径的情况下打开此csv表（最好不使用InStr()或任何If, While循环

Answer 1

Function findFile(strFileStart as string) as string

findFile= Dir(strFileStart & "*", vbNormal)

End Function

Echo，@ Ryan Wilson关于拥有多个具有相同前缀的文件的评论。

Answer 2

使用带通配符的Dir确认存在，如果找到，请将其打开。

dim fp as string, fn as string

fp = "C:\test\folder\"
fn = "test_03"

fn = dir(fp & fn & "*.csv")

if cbool(len(fn)) then
    workbooks.open fp & fn, delimiter:=","
end if

打开具有部分名称的excel文件

2 个答案: