2012-02-02 12 views

答えて

2

はApplication.FileDialogを見てください:

Sub ShowFileDialog() 
    Dim dlgOpen As FileDialog 
    Set dlgOpen = Application.FileDialog(msoFileDialogOpen) 
    With dlgOpen 
     .AllowMultiSelect = True 
     ''Start in 
     .InitialFileName = "Z:\docs\" 
     .Show 
    End With 
End Sub 

さらに詳しい情報:http://msdn.microsoft.com/en-us/library/aa213120(v=office.11).aspx

+0

+1をあなたがこの方法では、完全なファイルパスをキャプチャして、テーブルのテキストフィールド –

+0

でそれを保存することができ、私はちょうど午前私がこれをやっていく方法は、ボタンonclickイベントの中でどうやっているのだろうと思っています。私はそれを試みたが、ユーザ定義型が定義されていない(コンパイルエラー)というエラーがあった。そして、私はどのようにそれをキャプチャして保存するのですか? – nman84

+0

どのバージョンのAccessを使用していますか?私は小さな変更を加えました、それは助けになるのですか? – Fionnuala

関連する問題