-PR-
解決済み

指定したセルにデータの書き出し

  • 困ってます
  • 質問No.1585319
  • 閲覧数55
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 96% (28/29)

いつもお世話になっております。
VB.net+SQLでデータベース連携しております。
SQLで抽出したデータをエクセルに書き出すプログラムを考えています。
For Each myRow In ds.Tables("Estimate").Rows
Code = myRow("Code")
xlSheet.Cells(3, 2).Value = Code
Next myRow
上記で3行目の2列目にデータを書き出すことは出来たのですが
変数codeには複数のデータを格納していて上記のプログラムだとCells(3, 2).Value
と指定しているので、はじめのデータから最後のデータまで同じセルに上書きしてしまっているようです。
これを各データを一行ずつ書き出したいのですが、上手くいきません。

For Each myRow In ds.Tables("Estimate").Rows
   For i = 3 To 17
Code = myRow("Code")
xlSheet.Cells(i, 2).Value = Code
     i+=1
   Next i
Next myRow
のようにセルの行指示を変数にしたのですが、変わりませんでした。

分かりますでしょうか?
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル14

ベストアンサー率 31% (4939/15540)

この場合、For Each の中で For 文を実行しても同じ値が書き込まれるだけです。

下記ではいかがでしょう?

Dim i As Long
i = 3
For Each myRow In ds.Tables("Estimate").Rows
xlSheet.Cells(i, 2).Value = myRow("Code")
i = i + 1
Next myRow
お礼コメント
015_dogi

お礼率 96% (28/29)

hana-hana3さん、ご回答ありがとうございます。
おかげで解決いたしました。

もっと勉強しなければなりませんね。

大変助かりました。ありがとうございます。
投稿日時 - 2005-08-17 16:37:54
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-

特集


開業・独立という夢を持つ人へ向けた情報満載!

ピックアップ

ページ先頭へ