![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
今晩は、質問させていただきます。どうぞよろしくお願いいたします。
環境:Win7+Excel2007
でございます。
今開いております「Book1」上に「シート1」「シート2」があるといたしまして、
「シート2」上に、「C:\ファイル1.txt」(←1000行程ございます)を
「1行ずつ読み込むのではなく、Workbooks.OpenTextのように一度に開く」事は可能でございますでしょうか??
行数が多いのでReadLineをいたしますよりは、何か「開いているエクセルファイル上にテキストファイルをドラッグして開いた時のような方法」はないかな、と検索いたしておりまして、
OpenTextを見つけて試しましたが、新規エクセルファイル上で開いてしまいます。。。
もし何かよさそうな方法がございましたら、是非ともアドバイスいただきたく
どうぞよろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
一般的なテキストファイルを前提に。
たとえば:
sub macro1()
dim FSO as object
dim buf as string
dim a as variant
set fso = createobject("Scripting.FileSystemObject")
with fso.getfile("C:\test\test.txt").openastextstream
buf = .readall
a = split(buf, vbcrlf) ’実際の改行コードに気を付ける
worksheets("Sheet2").range("A1").resize(ubound(a) + 1, 1) = application.transpose(a)
.close
end with
set fso = nothing
end sub
#OpenTextで開いた後に、たとえばシートごとブックに取り込むとか、ふつーにコピー貼り付ける等の方が遥かに簡単と思いますが。まぁお好みの方法で。
【解決☆】
keithin様
どうもありがとうございます!m(_ _)m
以前も助けていただいております^^ 残念ながらkeithin様のありがとうポイントキリ番(9万)とりそこねました。。。
本質問につきましては、keithin様のおかげでうまくいきました^^
で、今気づいたのでございますが、keithin様のコードって何故か頭文字が小文字ですので、全部ここ(OKWave上のテキストボックス)にソラで書かれておられるのでございましょうか(←VBEからコピペしたのではなく)。凄いですね(^ω^ もし自分が同じ事をやったら、1行に1個くらいのペースでバグを入れる自信が。。orz
しかも動作確認なされていないところがまた(凄
余談でございましたm(_ _)m
この度はご親切に誠にありがとうございました!!m(_ _)mm(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Visual Basic(VBA) 複数ブックの統合について Excel VBA 1 2022/05/13 09:48
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Excel(エクセル) 問題のシートはどれ? 3 2022/04/14 16:20
- Visual Basic(VBA) エクセルVBA 既存エクセルを開きその中のシートとしてCSVファイルを開く 3 2023/05/31 13:11
- Visual Basic(VBA) Excel ファイルを指定し、指定されたファイル内にシートを統合するVBA 8 2023/07/10 10:09
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォームに入力したデ...
-
【ExcelVBA】全シートのセルの...
-
ブック名、シート名を他のモジ...
-
XL:BeforeDoubleClickが動かない
-
別のシートから値を取得するとき
-
実行時エラー'1004': WorkSheet...
-
excelのマクロで該当処理できな...
-
コマンドボタンをクリックでシ...
-
エクセルで通し番号を入れてチ...
-
特定の文字を含むシートだけマ...
-
VBA 存在しないシートを選...
-
シートが保護されている状態で...
-
ExcelのVBAのマクロで他のシー...
-
セルのコピーで「オブジェクト...
-
VBA 入力月で該当シートを選択...
-
エクセルのシート名変更で重複...
-
VBA 別ブック(シート)の同...
-
VBAエクセルの非アクティブシー...
-
userFormに貼り付けたLabelを変...
-
【VBA】特定の文字で改行(次の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
VBAで大量のファイルをシート名...
-
ユーザーフォームに入力したデ...
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
VBA 存在しないシートを選...
-
Excelマクロのエラーを解決した...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
実行時エラー1004「Select メソ...
-
【Excel VBA】Worksheets().Act...
-
ブック名、シート名を他のモジ...
-
エクセルのシート名変更で重複...
-
ExcelのVBAのマクロで他のシー...
-
Excel VBA 複数行を数の分だけ...
-
エクセルのマクロについて教え...
-
VBA 最終行まで数式をコピーする
おすすめ情報