みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

ExcelVBAマクロでワードファイル読み込み方法

ExcelVBAマクロについて確認させてください。
下記のように読み込みたいファイルをフォームで指定して
それを変数aに読み込ませています。
ですが、この方法ではテキスト文書しか読み込みが出来ないようです。
ワードファイルも読み込むように設定したいのですが可能でしょうか?

可能でしたらその方法をご教授いただけますでしょうか。

----------------------------------
Sub sample()

Dim buf As String
Dim a As String

buf = Application.GetOpenFilename(FileFilter:="テキスト文書,*.txt", Title:="サンプル") 'フルパスも含めたファイル名をbufに代入

With CreateObject("Scripting.FileSystemObject").GetFile(buf).OpenAsTextStream'指定したファイルを開く
a = .ReadAll'テキスト文書の内容を文字列aに代入
.Close'指定したファイルを閉じる
End With

End Sub

投稿日時 - 2012-06-20 00:39:27

QNo.7543851

すぐに回答ほしいです

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

自動記録すればいいじゃんと思ってやってみると、ExcelはWordのファイルを開けないんですね。当方もMS Officeと十数年の付き合いの中で初めてやってみたので、ニーズが無いって事でしょう。(xl2000とxl2010で確認)
検索すると、エクセルからワードを制御して、クリップボード経由でデータを取り込む方法が見つかりました。
どこまで再現されるものかは分かりませんが。
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1039854345

投稿日時 - 2012-06-20 17:18:04

お礼

返事が遅くなり、申し訳ございません。
早速のアドバイスありがとうございます。
読み込んだWordファイルをテキストに変換することで処理が可能になりました。

ありがとうございます。

投稿日時 - 2012-07-23 19:11:08

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問