Ｐａｇｅ 329 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼FileDialog オブジェクト デガハド 03/7/9(水) 14:55 ┗Re:FileDialog オブジェクト こうちゃん 03/7/9(水) 16:52 ┗Re:FileDialog オブジェクト デガハド 03/7/16(水) 10:00 ─────────────────────────────────────── ■題名 ： FileDialog オブジェクト ■名前 ： デガハド ■日付 ： 03/7/9(水) 14:55 -------------------------------------------------------------------------
| はじめまして、デガハドと申します。 FileDialog オブジェクトを使用したいのですがエラーになるのです。 下記の様にヘルプの通りに記述したのですが //Dim dlgSaveAs As FileDialog //Set dlgSaveAs = Application.FileDialog(FileDialogType:=msoFileDialogSaveAs) //dlgSaveAs.Show １）FileDialog型の変数が宣言できない ２）msoFileDialogSaveAsもエラーになる どなたかアドバイスお願いします。 開発環境 WinXP Pro Access2002(SP-2)/Access2000ファイル形式 |
| デガハドさん、こんにちは >FileDialog オブジェクトを使用したいのですがエラーになるのです。 >下記の様にヘルプの通りに記述したのですが >//Dim dlgSaveAs As FileDialog >//Set dlgSaveAs = Application.FileDialog(FileDialogType:=msoFileDialogSaveAs) >//dlgSaveAs.Show > >１）FileDialog型の変数が宣言できない 参照設定で Microsoft Office 10.0 object library にチェックをいれてください。 >２）msoFileDialogSaveAsもエラーになる Access2002ではFileDialogでmsoFileDialogSaveAsを使う設計になっていません。 参照 http://support.microsoft.com/default.aspx?scid=kb;ja;282335 msoFileDialogFilePicker等を使用します。 参照 http://support.microsoft.com/default.aspx?scid=kb;ja;279508 以下に少しアレンジしたバージョンを書いて見ますね。 Sub abc() Dim dlgOpen As FileDialog Dim varFile As Variant Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker) With dlgOpen 'ダイアログ ボックスにて複数選択を不可にします。 .AllowMultiSelect = False 'ダイアログ ボックスのタイトルを設定します。 .Title = "Please select one files" 'フィルタをクリアにし選択したファイルを加えます。 .Filters.Clear .Filters.Add "Access Databases", "*.MDB" .Filters.Add "Access Projects", "*.ADP" .Filters.Add "All Files", "*.*" If .Show = True Then For Each varFile In .SelectedItems MsgBox varFile Next Else MsgBox "You clicked Cancel in the file dialog box." End If End With End Sub |
| こうちゃん、お返事ありがとうございます。って遅すぎですね。 とても助かりました。本当にサンキュウです。 |