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);　←この行でエラーが発生します。
どのような処理をすればいいかわかりません。
教えていただけませんでしょうか。

←解決時は質問者本人がここをチェックしてください。

戻る