Excelファイル読み込みについて (ID:152024)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 度々お世話になります。 今朝、ようやくExcelファイルの読み込みが成功しました。 改めましてありがとうございました。 それから、引き続きコーディングをしているのですが 読み込んだExeclファイルにあるセルの値をListViewに入れるコーディングをしています。 通常はExcelの一行目は5列あるのですが、イレギュラーのExcelファイルが4列しかない場合に 以下のエラーが発生しました。 「モジュール'TEST.exe'のアドレス0065A53でアドレス000000に対する読み取り違反がおきました。」 コーディングは以下となります。 ********************************** ADODataSet1.CommandText := 'SELECT * FROM' + ' ' + '[MAIN$]'; ADODataSet1.ConnectionString := 'Provider=Microsoft.ACE.OLEDB.12.0;Password="";Data Source=' + 'C:\TEMP\TEST.XLS' + ';Extended Properties=Excel 12.0;Persist Security Info=True'; ADODataSet1.Close; ADODataSet1.Open; with DataSource1.DataSet do begin First; while not Eof do begin if Trim(Fields[0].AsString) <> '' then begin item := ListView2.Items.Add; item.Caption :=Fields[0].AsString; item.SubItems.Add(Fields[1].AsString); item.SubItems.Add(Fields[2].AsString); item.SubItems.Add(Fields[3].AsString); item.SubItems.Add(Fields[4].AsString); end; Next; end; end; ********************************** item.SubItems.Add(Fields[4].AsString);　←この行でエラーが発生します。 どのような処理をすればいいかわかりません。 教えていただけませんでしょうか。