如何更改我的代碼以獲取文件名而不是目錄名? openDialog.InitialFilename
給我的目錄名稱。
openDialog.FileName
給我錯誤「未找到方法或數據成員」。如何從VBA中的文件對話框中獲取單個文件名(適用於MS Access 2007)?
Private Sub btnEditPhoto_Click()
If (txtImageName > "") Then
Application.FollowHyperlink txtImageName
Else
Dim openDialog As Office.FileDialog
Set openDialog = Application.FileDialog(msoFileDialogFilePicker)
openDialog.Filters.Clear
openDialog.Filters.Add "JPEG Files", "*.jpg"
Dim pickedFile As Boolean
pickedFile = openDialog.Show
If pickedFile Then
txtImageName.SetFocus
txtImageName.Text = openDialog.InitialFileName
End If
End If
End Sub
這是一種令人困惑的編輯問題以合併答案,因爲在這一點上,你的代碼做你要求的幫助。 – 2010-01-29 19:46:30