24 lines
367 B
QBasic
24 lines
367 B
QBasic
Attribute VB_Name = "ReadStockCode"
|
|
Option Explicit
|
|
|
|
Function run(row As Integer)
|
|
On Error GoTo eh
|
|
Dim temp As String
|
|
temp = Worksheets(TARGET_SHEET).Range(COL_STOCK_CODE & CStr(row)).Value
|
|
|
|
If (temp = "") Then
|
|
temp = -1
|
|
End If
|
|
|
|
run = temp
|
|
Done:
|
|
Exit Function
|
|
|
|
eh:
|
|
Debug.Print "ReadStockCode"
|
|
Debug.Print row
|
|
Debug.Print temp
|
|
|
|
End Function
|
|
|