Giải thích code VBA (1 người xem)

[hungvrvaq]

Em chào các Bác!
Em có đoạn code VBA trong 1 file Excel nhưng em đọc và chạy thử nó thì bị lỗi ngay ở dòng Call Init("...... Em đã thử tìn hiểu nhưng trình độ hạn chế quá nên Em nhờ các cao thủ giải thích cho em một số lệch trong đoạn code dưới đây , em xin cảm ơn trước ạ.
sub

....
Call Init("C:\Qp2data", False)
NumDays = OpenFiles(ALL_DATA_FILES, "C:\Qp2data") 'NumDays is just a return error code here.
NumDays = OpenFiles(MASTER_FILE, "C:\Qp2data") 'NumDays is just a return error code here.
NumDays = LoadSymbol("T", Data(1), 1) 'T is the ticker symbol for AT&T.
EndDateNum = 10000 * CLng(Data(1).yy) + 100 * CLng(Data(1).mm) + CLng(Data(1).dd)
NumDays = LoadSymbol("S", Data(1), 1) 'S is the ticker symbol for Sears.
LastDataDateNum = 10000 * CLng(Data(1).yy) + 100 * CLng(Data(1).mm) + CLng(Data(1).dd)
If EndDateNum > LastDataDateNum Then LastDataDateNum = EndDateNum
LastDataDate = DateSerial(Int(LastDataDateNum / 10000), Int(LastDataDateNum / 100) Mod 100, LastDataDateNum Mod 100)
Set Scores = Application.Workbooks("TA.xls").Worksheets("Command Sheet")
.....
end sub


Public Declare Sub Init Lib "qpr2vb" (ByVal DataDir$, Optional ByVal UseCD As Long, Optional ByVal BufferDir$, Optional ByVal MinimizeOpens As Long)
Public Declare Sub Done Lib "qpr2vb" ()
Public Declare Function OpenFiles Lib "qpr2vb" (ByVal DATAFILE As Long, ByVal DataDir$) As Long
Public Declare Function CloseFiles Lib "qpr2vb" (ByVal DATAFILE As Long) As Long
Public Declare Function LoadSymbol Lib "qpr2vb" (ByVal Symbol$, Data As DataRec, ByVal MaxRecords As Long, Optional ByVal UseRAWMode As Long, Optional ByVal IgnoreHolidays As Long) As Long
Public Declare Function LoadFirstSymbol Lib "qpr2vb" (Data As DataRec, ByVal MaxRecords As Long, Optional ByVal UseRAWMode As Long, Optional ByVal IgnoreHolidays As Long) As Long
Public Declare Function LoadNextSymbol Lib "qpr2vb" (Data As DataRec, ByVal MaxRecords As Long, Optional ByVal UseRAWMode As Long, Optional ByVal IgnoreHolidays As Long) As Long
Public Declare Function GetCurSymbol Lib "qpr2vb" () As String
Public Declare Function ReadMaster Lib "qpr2vb" (ByVal Comparison As Long, ByVal WhichIndex As Long, ByVal SearchVal$, ByRef MasterRec As EquityMaster) As Long