求大神帮忙翻译一下代码

[qq_36667560]

Private Sub CommandButton2_Click()

Dim Sql As String


Dim i, j, lblCount As Long


Dim FROM_DATE As String ' 定义一个字符串
Dim TO_DATE As String

Dim ITEM_COST_STATUS As String
Dim str As String

For i = 2 To 65000 '技锅掳 扼牢何磐 单捞磐甫 谎妨霖促

If Trim(Sheet5.Cells(i, 1)) = "" Then
lblCount = i - 2

Exit For
ElseIf Trim(Sheet5.Cells(i, 1)) <> "" Then

Else

End If

Next i


Dim r_rset As ADODB.Recordset

For i = 2 To 65000 '技锅掳 扼牢何磐 单捞磐甫 谎妨霖促

If i - 2 < lblCount Then
Call OpenDatabase




Dim v_item_id As String

Sql = " SELECT inventory_item_id , DESCRIPTION, PRIMARY_UOM_CODE FROM MTL_SYSTEM_ITEMS_B WHERE ORGANIZATION_ID = 102 AND SEGMENT1 = '" & Sheet5.Cells(i, 1) & "' "

Set r_rset = New ADODB.Recordset

r_rset.Open Sql, MES_DBCN, adOpenDynamic, adLockReadOnly ' 可读写,当前数据记录可自由移动，缺省锁定类型，记录集是只读的，不能修改记录

v_item_id = r_rset.Fields(0)
Sheet5.Cells(i, 2) = r_rset.Fields(1)
Sheet5.Cells(i, 3) = r_rset.Fields(2)

Sql = " SELECT FUNC_CCT_PO_COST('" & v_item_id & "'), FUNC_CCT_PO_COST_CNY('" & v_item_id & "') FROM DUAL " & vbLf

Set r_rset = New ADODB.Recordset
r_rset.Open Sql, MES_DBCN, adOpenDynamic, adLockReadOnly

If r_rset.BOF = True And r_rset.EOF = True Then ' 如果第一条为真并且最后一条为真那么
Sheet5.Cells(i, 4) = 0 '
Else



Sheet5.Cells(i, 4) = r_rset.Fields(0).Value
Sheet5.Cells(i, 5) = r_rset.Fields(1).Value

End If

End If

Next i

MsgBox "Print Complete !!!", vbOKOnly, "RawData Print"

End Sub