Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

76489 / 76732

←次へ　｜　前へ→


	【4664】ありがとうございます。さらにもう一点･･･

めぎゅ

- 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)
　　　　　　'１行（１レコード）読み込み
　　　　　　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

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

2 hits

▼

【4603】".txt"ﾌｧｲﾙの必要な列だけを読み込みExcelに貼り付けられませんか... めぎゅ 03/3/28(金) 11:10