４万件ほどのＥＸＣＥＬデータを、
なるべく速いスピードで取込を行いたいのです。

oleオブジェクトを使用しての処理を行っているのですが、
1000件ほどでも時間がかかってしまいます。

なにかよいスクリプトの記述、方法はないでしょうか？

スクリプトの記述を簡単に以下に記載します。
************************************************************************************************
uo_ole      ole_excel      // OLEオブジェクト

ole_excel = CREATE uo_ole

// EXCEL接続
ole_excel.ConnectoNewObject(\"excel.application\")

// EXCELファイルopen
ole_excel.Application.Workbooks.Open(ls_pathnm)   // ※ls_pathnmにはファイルパス格納

// 指定された行番号とカラム番号の範囲から値を読み込む(※引数として渡してある)
FOR ll_row = al_srow TO al_erow

// 値の取得（1行ずつ）
FOR li_colno = ai_scolno TO ai_ecolno

ls_value = String( ole_excel.Cells[ll_row,li_colno].Value )

IF IsNull( ls_value ) THEN ls_value = \"\"

ls_data  = ls_data  + \"~t\" + ls_value
ls_check = ls_check + ls_value
NEXT

// データがなければ終了
IF Trim( ls_check ) = \"\" THEN EXIT

// インポート
ls_data = Mid( ls_data, 2 )
li_ret  = ads_imp.ImportString( ls_data, 1, 1, 1, ai_ecolno - ai_scolno + 1, ai_dscolno )

// エラーの場合、メッセージを出力し処理を終了する。
IF li_ret < 0 THEN
　　i_ret = -1
　　EXIT
END IF

ls_data  = \"\"
ls_check = \"\"

NEXT

// 正常の場合、戻り値を設定
IF li_ret <> -1 THEN li_ret = 1

// Excelの終了 
ole_Excel.Application.Workbooks.Close()
ole_excel.Application.Quit

// OLEオブジェクトの解除
ole_excel.DisConnectObject()
*************************************************************************************************

以上よろしくお願いします。