いつもお世話になっております。
Excel2007を使用しています。
Excel2002も持っています。
Excel2003以前のファイル形式のファイルがあります。
拡張子がxlsのファイルです。
このファイルの中身を「マクロ」ですべて抜き出したいのですが、
どのようにプログラムしたら良いかと、疑問に思ってしまいました。
各セルの内容は、Tabキーもしくは、半角のスペースや全角のスペースを挟む形で、
抜き出せればと思っております。
※Ctrl+Aなどで、手動でクリップボードにコピーする方法を使用しない理由は、
ファイルの数が非常に多いため、それではとても大変だと思うためです。
もしよろしければ、アドバイス頂けませんか?
ぜひよろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
こんばんは。
今、気になって試してみました。
http://www31.ocn.ne.jp/~h_ishida/xdoc2txt.html
ここにある、xdoc2txt.exe のActiveX版、xdoc2txt.ocx を使えば、Excel・Wordファイルを、ほとんどタイムラグなくテキストファイルをすべて取り出せることが分かりました。
DOS環境から設定をしますが、AciveX を登録して、マクロに組めばよいと思います。多少、VBAの経験のある方なら、すぐに使えるはずです。以前、xdoc2txt.exeでマクロを作ったことがありますが、ファイルに対して、そのつど、オーバーヘッドが掛かって、快適とは言えませんでした。
定番ツールのひとつだそうですから、試してみてよいかと思います。これは、思った以上に便利でした。
'サンプルマクロ
'-------------------------------------------
Sub XDoc2TextSample1()
Dim objXDoc As Object
Dim mPath As String, sText As String
Set objXDoc = CreateObject("XDOC2TXT.xdoc2txtCtrl.1")
mPath = Application.GetOpenFilename("Excel(*.xls),*.xls")
If Filename = "False" Then Exit Sub
sText = objXDoc.Convert(mPath)
Debug.Print sText 'デバッグ・プリント
Set objXDoc = Nothing
End Sub
'-------------------------------------------
No.2
- 回答日時:
#1のミス
×>If Filename = "False" Then Exit Sub
正しくは、
If mPath = "False" Then Exit Sub
でした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- XML エクセルのマクロについて教えてください。 3 2023/02/06 09:06
- Excel(エクセル) Excel同士のデータの突合 3 2023/08/07 16:34
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/03 13:18
- Visual Basic(VBA) Excelのマクロについて教えてください。 作業フォルダ内に2つのファイルがあります。 このファイル 2 2023/07/09 13:40
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
- Excel(エクセル) Excelを開くとエラーが出る 2 2022/10/03 16:13
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/10 09:06
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロでのファイル間のシート...
-
VLookupで参照する範囲を変数で...
-
EXCEL VBA 指定したファイルが...
-
フォルダ内のexcelファイルを順...
-
エクセルデータが突然破損します。
-
LTSpiceにLMV358-Nのモデルを入...
-
VBA ワイルドカードで順番にフ...
-
Excelファイルに書かれた文書の...
-
オートフィルタをし選択・貼付...
-
Excel VBA でファイルが開かれ...
-
秀丸:あらかじめ設定した複数...
-
エクセルマクロで不特定なファ...
-
ISOファイルとMDSファイル
-
イーファンビューでwebpファイ...
-
excel2003でxlsxファイルを更新...
-
batファイルでレジストリキーの...
-
イラレでjpeg出力すると、白ぬ...
-
テキストデータでNULL?
-
csvファイル中の「e」が変換さ...
-
ccdファイルはどのようにして使...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
エクセルマクロで不特定なファ...
-
フォルダ内のexcelファイルを順...
-
VBAでワークブックの名前を変数...
-
エクセル(マクロ)のファイル...
-
エクセルのxls形式からxlsx形式...
-
エクセル 複数ファイルの一括...
-
エクセルのシートの数を数えた...
-
【Excel VBA】ファイル名が一...
-
【マクロ】名前を保存する際に...
-
ファイルを開かずにマクロを実行
-
accessフォルダを移動したらフ...
-
フォルダ内のブック全部にパス...
-
vlookup関数の引数を変数で指定...
-
Excel VBA でファイルが開かれ...
-
ファイルの保存場所を変えたら...
-
Accessのaccdbファイルを起動で...
-
リンク切れチェックを行うマクロ
-
エクセルマクロ 異なるファイ...
-
データ参照先が別ファイルの場...
おすすめ情報