No.2ベストアンサー
- 回答日時:
単純なものなら、こちら↓みたいなものとか。
Sub TextFileOpen()
'
'既定の保存先であるファイルの場所を開く
'テキストファイルのみを指定
'
With Dialogs(wdDialogFileOpen)
.Name = "*.txt"
.Show
End With
End Sub
既定のコマンド" FileOpen "と基本的に同じものです。
組み込みの [ファイルを開く]ダイアログにて表示される
[ファイルの種類]が[テキストファイル]のみになるもの。
[ Dialogs プロパティ]のヘルプにも同じようなものが
あります。
No.1
- 回答日時:
色々方法はあるかと思いますが・・
Sub OpenTxt()
'要参照設定 Microsoft Office 10.0 Object Library
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = "C:\" '初期検索先指定
.Title = "ファイル選択 (複数選択不可)"
.AllowMultiSelect = False '複数ファイル選択の許可
.Filters.Clear 'ファイルフィルタの設定
.Filters.Add "すべてのファイル", "*.*"
.Filters.Add "Wordドキュメント", "*.doc"
.Filters.Add "テキストファイル", "*.txt;*.log" '下の[3]はここの事
.FilterIndex = 3 '初期選択フィルタの設定
.ButtonName = "決定" 'ボタンの表示文字列の設定
'キャンセル時にはShowメソッドは0(Long型)を返す
If CBool(.Show) Then
Documents.Open FileName:=.SelectedItems(1), ReadOnly:=True
End If
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelでdatファイルを作成??
-
batファイル処理でのテキストフ...
-
複数のテキストファイルをexcel...
-
ExcelVBA テキストファイルから...
-
バッチファイルが作成できない
-
複数のファイルを同時検索し、...
-
ヘルプファイルの翻訳
-
テキストファイルの文字色に色...
-
htmlとして保存されているファ...
-
ファイル名をリストにするソフト
-
文字の頭文字順に自動移動
-
Microsoft Access エラー 3051
-
ブラウザでASPファイルを開こう...
-
bat ファイルでフォルダ作成&移動
-
VBAでファイルパスが長すぎてコ...
-
【Excel VBA】PDFを作成して,...
-
FFFTPでサーバに新規フォルダが...
-
複数ファイルダウンロードについて
-
WindowsMediaのasfとasxの違いは?
-
ダウンロード不可PDFファイルは...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelでdatファイルを作成??
-
複数のテキストファイルをexcel...
-
テキストファイルの文字色に色...
-
batファイル処理でのテキストフ...
-
バッチファイルが作成できない
-
複数のファイルを同時検索し、...
-
一気にずばっと複数のメールを...
-
マクロでメモ帳に貼り付け
-
CADでグラフ作成
-
ファイル名の特定文字だけ削除...
-
windowsへscp
-
インデザインのテキスト流し込み
-
VBSでテキストファイルのタブ区...
-
ExcelVBA テキストファイルから...
-
テキストファイルを開かずに中...
-
CDの曲名をテキストファイルで...
-
VBAからファイルをzip化したい
-
WORD VBAでテキストファイルを...
-
アクセスログのテキストファイ...
-
複数テキストファイルをエクセ...
おすすめ情報