VBAを修正したいのですが、、、、、

質問

Sub ImportTextFile()

Dim DestBook As Workbook, SourceBook As Workbook
Dim DestCell As Range
Dim RetVal As Boolean

Application.ScreenUpdating = False

Set DestBook = ActiveWorkbook
Set DestCell = ActiveCell

RetVal = Application.Dialogs(xlDialogOpen).Show("*.txt")

If RetVal = False Then Exit Sub

Set SourceBook = ActiveWorkbook

Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy

DestBook.Activate
DestCell.PasteSpecial Paste:=xlValues

SourceBook.Close False

End Sub

上記のコードは指定したテキストファイルをシートに出力するものなのですが、
任意で複数のテキストファイルを選んだ時に、同じシートに選んだ複数のテキストファイルを
Ａ1セルをはじめとしてをＡ列の最終セルにすべてのファイル順番に張り付けたいのです。

今の状態だとウィザード画面でいちいち設定しないといけないのでテキストをそのままの状態で
いいのでウィザード画面を飛ばしてできればなおいいです。
ぜひ、アドバイスお願いします。

回答No.2

D-Matsu · ベストアンサー

> RetVal = Application.Dialogs(xlDialogOpen).Show("*.txt")

そもそもここはOpenFileDialogでよかないか、とは思いますがそれはさておいて。

ものすごーく大雑把な指針を示すと、

・「複数ファイルを選択する方法」を考える
・「選択された複数のファイル」を繰り返し処理可能な形にする
・あとはforなりfor eachなりwhileなりでループ処理

って流れになります。

お礼

大変参考になりました。
ありがとうございました。

回答No.1

bin-chan

「先にテキストファイルを１つにまとめてしまう」では？

コマンドプロンプトで、COPYコマンドを使用。/bオプション必須。

お礼

そのようなやり方もあるんですね。
いろいろ試してみようと思います。
ありがとうございました。