掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
起動時にExcelから読込み (ID：115272)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
やってみました。 Do Until RS.EOF With RS 'A列・B列・C列のデータを取得 MyData = "" MyData = MyData & .Fields(0) & vbTab & .Fields(1) & vbTab & .Fields(2) & vbCrLf ' リストボックスにはこれで表示できました List1.List(i) = MyData ListView1.ListItems(i).Text = .Fields(0) ListView1.ListItems(i).SubItems(1) = .Fields(1) i = i + 1 .MoveNext '次のレコードに移動 End With Loop そうすると ListView1.ListItems(i).Text = .Fields(0) の部分で 『インデックスが範囲を超えています。』という 実行時のエラーが起きます。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.