我做了一个照片管理系统,想实现 点击“添加图片”按钮 能显示一个Office打开文件对话框,在对话框中显示文件和文件名。
运行时报错,显示变量未定义!我查找相关问题,有的说是引用有问题,我按照解决办法:进入VB编辑器点击工具---引用---选择microsoft office 11.0 object library可是还是不行 为什么? 请高手指点 谢谢
代码如下:
Function SelFileN()
Dim fileName As String
Dim result As Integer
With Application.FileDialog(mosFileDialogPicker)
'Application.FileDialog对象,提供文件对话框
'功能与Microsoft Office 应用程序中标准的“打开”和“保存”对话框类似
'利用该对话框,使用户可以简单的指定使用的文件和文件夹
'返回一个MsoFileDialogType常量
'表示FileDialog对象设为显示的文件对话框类型并且只读
.Title = "选择照片"
'设置或返回FileDialog对象显示的文件对话框的标题,本例中标题为“选择照片”
.Filters.Add "所有文件", "*.*"
.Filters.Add "JPEG", "*.jpg"
.Filters.Add "位图文件", "*.bmp"
.FilterIndex = 2
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path
result = .Show
fileName = Trim(.SelectedItems.Item(1))
End With
If fileName"" Then
SelFileN = fileName
Else
MsgBox "你放弃了选择目录!程序将退出"
End
End If