ブックの2枚目にある書式設定済みシートにCSVを読み込ませるには？

解決

7k 2006-05-09 20:30:30 No: 131292

はじめまして。
表題通りの質問なんですが、
アクティブシートを2枚目にしてからＣＳＶを読み込ませても
1枚目のシートに書き出されてしまいます。

    Worksheets("課題実績設定").Activate
    Open filePath For Input As #1
      Do Until EOF(1)
        Input #1, Buffer(1), Buffer(2), Buffer・・・以下略
        Application.StatusBar = i & "件読込完了しました。"
        i = i + 1
        For j = 1 To 25
          Cells(i, j) = Buffer(j)
          Next j
      Loop
    Close #1
    MsgBox "読込み処理が完了しました。"

何がおかしいのか教えていただけませんか？？

Blue 2006-05-09 20:43:49 No: 131293

これはどこに書かれていますか？
アクティブにしなくても、どのシートのどのセルという指定をすれば
書き込めますよ。

Worksheets("課題実績設定").Cells(1, 1).Value = "TEST" ' Valueは省略しないほうがいいです。

7k 2006-05-09 20:55:42 No: 131294

回答ありがとうございます。

>これはどこに書かれていますか？
1枚目のシートに書いてます。
1枚目のシートにあるボタンを押すと2枚目の規定の位置に書き出すって事が
したいんです。

・・・できました！
For文の中の
Cells(i, j) = Buffer(j)を
Worksheets("課題実績設定").Cells(i, j) = Buffer(j)に変更したら
うまくいきました！

ありがとうございます。
ものすごく助かりました！