Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


76489 / 76732 ←次へ | 前へ→

【4664】ありがとうございます。さらにもう一点・・・
質問  めぎゅ E-MAIL  - 03/4/1(火) 16:31 -

引用なし
パスワード
   無事、作成することができました。
本当にありがとうございます。
処理速度も予想以上に速いものです!

またまた一点、疑問なのです。
1.マクロの所在(実行場所):Book1.xls:Sheet1
2.結果の貼り付け先   :Book2.xlsのSheet1
3.読み込みたいテキストデータ:"test.txt"

この状態で実行すると、結果の貼り付けが、マクロを実行した、Book2.xlsのSheet1に書き込まれてしまいます。

標準モジュールにマクロを記述することにより、問題は解消されましたが、
原因はなにになるのでしょうか?

  Workbooks.Open Filename:="C\Book2.xls"
  
  '↓ここはひつようないかも・・・??
  Workbooks("Book2.xls").Activate
  Worksheets("Sheet1").Activate

  With Workbooks("Book2").Worksheets("Sheet1")
    Do Until EOF(dfn)
      '1行(1レコード)読み込み
      Line Input #dfn, strBuff
      '区切文字(Tab)で文字列を区切配列に格納(列数と添え字が等しい)
      vntData = Split(strBuff, vbTab, , vbBinaryCompare)
      '読み込み列を書き込み用配列に代入
      For i = 0 To UBound(vntColm)
        vntWrite(i) = vntData(vntColm(i))
      Next i
      '書き込み位置にデータを書き込み
      With Cells(lngWriteRow, 1)
        Range(.Offset(, 0), .Offset(, _
                UBound(vntColm))).Value = vntWrite
      End With
      '書き込み行を更新
      lngWriteRow = lngWriteRow + 1
    Loop
  End With

よろしくおねがいします。
3 hits

【4603】".txt"ファイルの必要な列だけを読み込みExcelに貼り付けられませんか... めぎゅ 03/3/28(金) 11:10 質問
【4617】Re:".txt"ファイルの必要な列だけを読... Jaka 03/3/28(金) 16:12 回答
【4622】Re:".txt"ファイルの必要な列だけを読... めぎゅ 03/3/28(金) 18:34 質問
【4624】Re:".txt"ファイルの必要な列だけを読... Hirofumi 03/3/29(土) 10:13 回答
【4636】さらに・・・もう一つ めぎゅ 03/3/31(月) 13:30 質問
【4643】Re:さらに・・・もう一つ Hirofumi 03/3/31(月) 19:24 回答
【4664】ありがとうございます。さらにもう一点・・・ めぎゅ 03/4/1(火) 16:31 質問
【4667】Re:ありがとうございます。さらにもう一点・・・ Hirofumi 03/4/1(火) 20:27 回答
【4631】Re:".txt"ファイルの必要な列だけを... ポンタ 03/3/30(日) 18:16 回答
【4632】Re:".txt"ファイルの必要な列だけを読... Jaka 03/3/31(月) 10:28 回答
【4639】Re:".txt"ファイルの必要な列だけを読... めぎゅ 03/3/31(月) 14:05 質問
【4640】ごめんなさい。 Jaka 03/3/31(月) 16:27 回答
【4641】ちょっとびっくり。 Jaka 03/3/31(月) 16:35 発言
【4682】ありがとうございました! めぎゅ 03/4/2(水) 17:40 お礼

76489 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free