23 lines
368 B
QBasic
23 lines
368 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
|