エクセルVBAの「組み込みダイアログボックス」の使用法？

質問

いつもありがとうございます。
組み込みダイアログボックスについて教えてください。
エクセルのシート内容をCSV形式で保存する場合、組み込みダイアログボックスを使い、下記のマクロでうまく行きました。

Sub CSV保存()
'～略～
Application.Dialogs(xlDialogSaveAs).Show ARG2:=6 '～略～
End Sub

試した結果、上記の組み込みダイローグのファイルの種類のデフォルトは ARG2:=の次の値が６でcsv、１でエクセルになるようでした。

次に、エクセルを開いた状態でCSVファイルを開こうと思い、同様に組み込みダイアローグを使用するため下記のマクロを作りました。ところがうまくいきません。

Sub CSVdata取得()
Application.Dialogs(xlDialogOpen).Show ARG2:=6
End Sub

・・・・と記述するとエラーになります。
この場合、どうも ARG2:=6の６の数字のところが４以上はエラーとなるようです。
ARG2:=の次の値を１～３にするとエラーにはなりませんが、デフォルトはいずれもエクセルでした。
最初からファイルの種類をCSV形式にするにはどう記述したらよいのでしょうか？
どうかお助けください。

回答No.3

happypoint · ベストアンサー

>Application.Dialogs(xlDialogOpen).Show arg1:="*.csv"

これではまずいのですか？
とりあえずファイルの種類は「テキストファイル」になるみたいですが。

ファイル名を空白のままにしておきたいのですかね？

補足

>とりあえずファイルの種類は「テキストファイル」になるみたいですが。

ファイル名は、*.csvと表示されるんですが、その下のファイルの種類はエクセルのまま変らないんですよ～。
もちろんそこでCSVを選ぶことは出来ますが。
そしていちどCSVを選ぶと次回もCSVになったままなんですよ。

回答No.4

ja7awu

No.2ですが、ごめんなさい。違ったみたい。

ARG2:=6 の替わりということで　Show(file_text) と思ったけど違いますね。

Application.Dialogs(xlDialogOpen).Show("*.csv")
と
Application.Dialogs(xlDialogOpen).Show arg1:="*.csv"
は同じだと思いますが、これではダメなのですか？
CSVだけ表示されますが・・・

補足

> CSVだけ表示されますが・・・

あれえ！ほんとですねえ。
ダイアローグボックスの「ファイルの種類(Ｔ)」がエクセルファイルのままになっていたので気づきませんできたが、表示されてるファイルはちゃんとCSVになってましたね！

ということは実用上これで問題はありません。
ファイル種類のところは無視しちゃえばいいわけですもんね。
ありがとうございました。

回答No.2

ja7awu

Application.Dialogs(xlDialogOpen).Show(file_text)

でいいと思いますが・・・

補足

ありがとうございます。
やってみましたがダイアローグのファイルの種類のデフォルトはエクセルのままでした。

回答No.1

happypoint

組み込みのダイアログボックス
　Application.Dialogs～
では、ファイルの種類を指定することはできません。

その代わり、
　Application.GetOpenFilename～
を使うと、指定することができます。
ただし、その場合は、開く処理を自前で用意する必要があります。

[例]

Sub CSVdata取得()
Dim strFileName As String

　strFileName = Application.GetOpenFilename(FileFilter:="CSVファイル (*.csv), *.csv")
　MsgBox strFileName '確認

End Sub

補足

昨日（CSV形式での保存）に引き続き、またまたありがとうございます。
いろいろ試行錯誤を重ね、

Application.Dialogs(xlDialogOpen).Show arg1:="*.csv"

で、ファイル名のところに「*.csv」を表示させるところまでは行ったのですが、ファイルの種類はやはり無理ですか。無理ならApplication.GetOpenFilenameでやるしかないですね。開く処理を自前で用意できるかやってみます。
ありがとうございました。