ファイルの有無を判定してからリンクをはりたい

質問

EXCELで、

Function isFileExist(Filename As String) As Boolean
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(Filename) Then
isFileExist = True
Else
isFileExist = False
End If
End Function

という自作の関数を標準モジュールにVBAでつくっておき、

セルに
=IF(isFileExist("aaa.pdf"),HYPERLINK("aaa.pdf","ファイルを見る"),"ファイルはありません")

と書いて、ファイルがある場合だけリンクをはるようにしようとしました。
ところが、ファイルがない場合でも、セルをクリックすると、
「指定されたファイルを開くことができません」と出てきてしまいます。

どうしてなのかわかる方がいましたら教えてください。

回答No.3

hige_082 · ベストアンサー

すいません
質問をよく読んでいませんでした

=IF(isFileExist("aaa.pdf"),HYPERLINK("aaa.pdf","ファイルを見る"),HYPERLINK(,"ファイルはありません"))

とするしかないようです
仕様、バグ？？

お礼

それでうまくいきました！HYPERLINK関数の第１引数を空にするという方法もあるんですね！

回答No.2

hige_082

これはどうでしょう？
'--------------------------------------------------
Function isFileExist(Filename As String) As Boolean
If Dir(Filename) <> "" Then
isFileExist = True
Else
isFileExist = False
End If
End Function
'---------------------------------------------------

この他に
Dim FSO As Object
を
Dim FSO As String
へ、変更するとどうなります

お礼

ありがとうございました。結果的にはno3さんの方法でうまくいきましたので次点にしたいと思います

回答No.1

hige_082

HYPERLINK関数のヘルプに
ファイルはフルパスで指定してくださいと書いてありますが
パスは指定してますか

FileExistsの方もパスが必要のようですが

C:\My Documents\　のフォルダにファイルが保存されている場合は
=IF(isFileExist("C:\My Documents\aaa.pdf"),HYPERLINK("C:\My Documents\aaa.pdf","ファイルを見る"),"ファイルはありません")
としなければエラーになります

補足

フルパスで指定しています。IF文の第１引数が真になる、すなわちファイルがあるときはセルをクリックするとPDFがきちんと開かれることを確認しています。問題はファイルがない場合、IF文の第１引数が偽になるので「ファイルはありません」と出るだけのはずなのに、ファイルを参照しにいって「開くことができません」といってくることです。