起動時にExcelから読込み (ID:115274)

名前

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

本文 '末尾レコードまでのデータを読込 Do Until RS.EOF With RS 'A列・B列・C列のデータを取得 MyData = "" MyData = MyData & .Fields(0) & vbTab & .Fields(1) & vbTab & .Fields(2) & vbCrLf ' ListBoxに表示 List1.List(i) = MyData ListView1.ListItems.Add.Text = .Fields(0) ListView1.ListItems.Add.SubItems(1) = .Fields(1) ListView1.ListItems.Add.SubItems(2) = .Fields(2) i = i + 1 .MoveNext '次のレコードに移動 End With Loop ListItem.Addをしてみたのですが、Excelの1行目がListViewの1行目に 表示されず、ずれて表示されてしまいます。 ExcelのA1にはA1、A2にはA2、A3にはA3が入っているとします。 そうするとA1はListViewの1行目の.Textに入るのですが、A2は2行目のSubItem(1)に入ってしまいます。 そうやって全部ずれていきます。 もしExcelのセルの中に一部入力がなかった場合の処理はLoopの中で 処理を行えばいいのですか？ あとListViewで列を増やすことはないので、ColumnHeaders.Addを使うことはありません。 わざわざありがとうございます。