いつもありがとうございます。
組み込みダイアログボックスについて教えてください。
エクセルのシート内容をCSV形式で保存する場合、組み込みダイアログボックスを使い、下記のマクロでうまく行きました。
Sub CSV保存()
'~略~
Application.Dialogs(xlDialogSaveAs).Show ARG2:=6 '~略~
End Sub
試した結果、上記の組み込みダイローグのファイルの種類のデフォルトは ARG2:=の次の値が6でcsv、1でエクセルになるようでした。
次に、エクセルを開いた状態でCSVファイルを開こうと思い、同様に組み込みダイアローグを使用するため下記のマクロを作りました。ところがうまくいきません。
Sub CSVdata取得()
Application.Dialogs(xlDialogOpen).Show ARG2:=6
End Sub
・・・・と記述するとエラーになります。
この場合、どうも ARG2:=6の6の数字のところが4以上はエラーとなるようです。
ARG2:=の次の値を1~3にするとエラーにはなりませんが、デフォルトはいずれもエクセルでした。
最初からファイルの種類をCSV形式にするにはどう記述したらよいのでしょうか?
どうかお助けください。
No.3ベストアンサー
- 回答日時:
>Application.Dialogs(xlDialogOpen).Show arg1:="*.csv"
これではまずいのですか?
とりあえずファイルの種類は「テキストファイル」になるみたいですが。
ファイル名を空白のままにしておきたいのですかね?
この回答への補足
>とりあえずファイルの種類は「テキストファイル」になるみたいですが。
ファイル名は、*.csvと表示されるんですが、その下のファイルの種類はエクセルのまま変らないんですよ~。
もちろんそこでCSVを選ぶことは出来ますが。
そしていちどCSVを選ぶと次回もCSVになったままなんですよ。
No.4
- 回答日時:
No.2ですが、ごめんなさい。
違ったみたい。ARG2:=6 の替わりということで Show(file_text) と思ったけど違いますね。
Application.Dialogs(xlDialogOpen).Show("*.csv")
と
Application.Dialogs(xlDialogOpen).Show arg1:="*.csv"
は同じだと思いますが、これではダメなのですか?
CSVだけ表示されますが・・・
この回答への補足
> CSVだけ表示されますが・・・
あれえ!ほんとですねえ。
ダイアローグボックスの「ファイルの種類(T)」がエクセルファイルのままになっていたので気づきませんできたが、表示されてるファイルはちゃんとCSVになってましたね!
ということは実用上これで問題はありません。
ファイル種類のところは無視しちゃえばいいわけですもんね。
ありがとうございました。
No.1
- 回答日時:
組み込みのダイアログボックス
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でやるしかないですね。開く処理を自前で用意できるかやってみます。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
100万行のCSVを10万行ずつのフ...
-
【CSVファイル】先頭の文字列に...
-
TXTで作成したファイルをDATフ...
-
Access インポート
-
Access2007のエキスポートについて
-
txtをemlに変換したい!
-
エクセルデータをテキストファ...
-
Accessで小数点以下を切り捨て...
-
accessで項目内の文字を自動改...
-
カンマがデータとして入ってるC...
-
Access95のエクスポートで教え...
-
タブ区切りデータからダブルコ...
-
Accessでdatファイルのインポート
-
引用符がある、またはないCSVフ...
-
EXCELから固定長テキスト...
-
VBAでMSアクセスに、Tab区切り...
-
アクセスがインポートできる容...
-
スマホ電話帳
-
Excelデータをテキストファイル...
-
datファイルをAccessでイ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
100万行のCSVを10万行ずつのフ...
-
Access インポート
-
ThunderbirdのメールをCSVでま...
-
アクセスでcsvに出力した際、頭...
-
カンマがデータとして入ってるC...
-
【CSVファイル】先頭の文字列に...
-
accessで項目内の文字を自動改...
-
TXTで作成したファイルをDATフ...
-
タブ区切りデータからダブルコ...
-
Access2007のエキスポートについて
-
アクセスがインポートできる容...
-
Access95のエクスポートで教え...
-
sqlldrのフィールドの属性について
-
TSVのファイルをACCESSにインポ...
-
Excelデータをテキストファイル...
-
txtをemlに変換したい!
-
Accessでdatファイルのインポート
-
csvファイルが保存すると数...
-
VBAでMSアクセスに、Tab区切り...
-
CSVファイルのセルに「01」と入...
おすすめ情報