- PR -

エクセルのマクロで複数のTEXTファイルをインポート

1
投稿者投稿内容
Teraterm
常連さん
会議室デビュー日: 2007/02/15
投稿数: 25
投稿日時: 2007-06-04 16:23
お世話になります。

Excel2002で以下のようなマクロを組めないかご存知方いらっしゃいましたら、
ご教授願います。

１、複数のTextファイルがある(ファイル名はバラバラ)
２、エクセルを実行
３、エクセルの[ファイル]→[開く]→１、のファイルをそれぞれエクセルに読み込む
　　(スペースなどで区切らない)
４、開いたファイルはシート毎に増えていく

単一のファイル名のTextであれば、マクロでエクセルに読み込むことはできるのですが、毎回名前の違う複数のファイルを読み込むの方法が分かりません。

分かる方ご教授下さい。

よろしくお願いします。
じゃんぬねっと
ぬし
会議室デビュー日: 2004/12/22
投稿数: 7811
お住まい・勤務地: 愛知県名古屋市
投稿日時: 2007-06-04 17:19
引用:

Teratermさんの書き込み (2007-06-04 16:23) より:

単一のファイル名のTextであれば、マクロでエクセルに読み込むことはできるのですが、毎回名前の違う複数のファイルを読み込むの方法が分かりません。

特定のディレクトリにあるファイルを FielSystemObject で列挙してしまえば良いと思います。ところで現在は Worksheet へはどのような実装で展開しているのでしょうか?

_________________
C# と VB.NET の入門サイト
じゃんぬねっと日誌
Teraterm
常連さん
会議室デビュー日: 2007/02/15
投稿数: 25
投稿日時: 2007-06-04 17:27
じゃんぬねっと様

早速のご返答ありがとうございます。

”FielSystemObject”というものを使用するのですね。
こちら自分なりに調べてみます。情報ありがとうございます。

-----------------------------------------------------------------------------
＞ところで現在は Worksheet へはどのような実装で展開しているのでしょうか?
以下になります。
こちら単にマクロを記録して、[ファイル]→[開く]→[Textを開く]をしただけのものです。

ChDir "C:\Documents and Settings\ユーザ\デスクトップ"
Workbooks.OpenText Filename:= _
"C:\Documents and Settings\ユーザ\デスクトップ\ファイル.txt", Origin:=932, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
End Sub
-----------------------------------------------------------------------------
無知で申し訳ありません。。。

よろしくお願いいたします。
じゃんぬねっと
ぬし
会議室デビュー日: 2004/12/22
投稿数: 7811
お住まい・勤務地: 愛知県名古屋市
投稿日時: 2007-06-04 17:34
引用:

Teratermさんの書き込み (2007-06-04 17:27) より:

Workbooks.OpenText Filename:= _
"C:Documents and Settingsユーザデスクトップファイル.txt", Origin:=932, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
End Sub

OpenText メソッドはあくまでテキスト形式での読み込みになりますから、Worksheet という概念はありません。Excel Workbook 形式で Workbook を作成して自力で Worksheet に内容を転記する必要があると思います。

_________________
C# と VB.NET の入門サイト
じゃんぬねっと日誌
Teraterm
常連さん
会議室デビュー日: 2007/02/15
投稿数: 25
投稿日時: 2007-06-04 17:50
じゃんぬねっと様

ご返答ありがとうございます。

このマクロの場合、いろいろと工夫が必要なのですね。
頂いきました情報を元に、作成してみようと思います。

また良い情報ありましたらご教授頂けますようよろしくお願いいたします。
1

スキルアップ／キャリアアップ（JOB@IT）