VBA脚本示例：数据处理与SQL插入

Sub testELong()
    Dim rowIndex As Long

    Dim strCardNo As String
    Dim strPin  As String

    Open "d:\tbl_free_insurance_elong.sql" For Output As #1

    For rowIndex = 1 To 99999
        strCardNo = ThisWorkbook.Sheets(1).Cells(rowIndex, "B")
        strPin = ThisWorkbook.Sheets(1).Cells(rowIndex, "C")

        If strCardNo = "" Then Exit For

        Print #1, "insert into tbl_free_insurance (id,USER_ID,free_insurance_card_id,free_insurance_card_password,free_insurance_expire_date,is_used,sent_date,is_send_seccussed,send_to_mail_address,send_to_user_name,create_date,op_date,creator,oper,mobile,voucherinfoid)  values (Seq_Tbl_Free_Insurance.Nextval,null,'" & strCardNo & "','" & strPin & "',to_date('2012-12-31','yyyy-mm-dd'),0,null,null,null,null,sysdate,null,null,null,null,1);"

        If (rowIndex Mod 5000) = 0 Then Print #1, "commit;"
    Next rowIndex

    Close
End Sub


/--sequenceδ׼±¸--/
Sub testYiHai()
    Dim rowIndex As Long

    Dim strCardNo As String
    
    Open "d:\tbl_free_insurance_yihai.sql" For Output As #1