求大神帮忙翻译一下代码
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