VBA「getvalue」関数

Question

vbaで「getvalue」関数を使用して値を取得できません。

Sub testgetvalue1() 
Dim p As String 
Dim t As String 
Dim s As String 
Dim a As String 
p = "D:\Archive Mail" 
t = "Excel_1" 
s = "Sheet1" 
a = "A1" 
msgbox getvalue(p, t, s, a) 
End Sub 

それは、常にエラー名「Subまたは関数が定義されていません」と、それは「のgetValue」コードとは、問題は、なぜ私はこのエラーメッセージを取得しています、その後は存在しないと仮定しfunction.Iを強調スロー？

アドバイス....

よろしく、 のPrashant

Answer 1

GetValueは、事前定義された関数ではありませんので、あなたはそれを自分で定義する必要があります。たぶんあなたはそれを定義して使用した記事を読んでいます。 Hereは、次のように定義して、このような記事、次のとおりです。

Private Function GetValue(path, file, sheet, ref) 
' Retrieves a value from a closed workbook 
    Dim arg As String 
' Make sure the file exists 
    If Right(path, 1) <> "\" Then path = path & "\" 
    If Dir(path & file) = "" Then 
     GetValue = "File Not Found" 
     Exit Function 
    End If 
' Create the argument 
    arg = "'" & path & "[" & file & "]" & sheet & "'!" & _ 
     Range(ref).Range("A1").Address(, , xlR1C1) 
' Execute an XLM macro 
    GetValue = ExecuteExcel4Macro(arg) 
End Function 

は、モジュールで、これを含めると、あなたは行く準備ができなければなりません。