作者: Grant 时间: 2007-6-3 20:32
原作者: fan0217
打开对话框,一般都采用控件或调用API函数,此函数虽然采用的Microsoft Office 11.0 Object Library,但没有使用常量名称做参数,所以不需要引用Microsoft Office 11.0 Object Library。
Function GetFileName(ByVal DialogType As Integer) As String
'参数DialogType说明:
'1.“打开”对话框
'3.“文件选取器”对话框
'4.“文件夹选取器”对话框
'不对dlgOpen进行声明的原因是:不需要引用Microsoft Office 11.0 Object Library
Set dlgOpen = Application.FileDialog(DialogType)
With dlgOpen
.AllowMultiSelect = False
.Show
End With
If dlgOpen.SelectedItems.Count > 0 Then
GetFileName = dlgOpen.SelectedItems(1)
Else
GetFileName = ""
End If
Set dlgOpen = Nothing
End Function
参数2为“另存为”对话框,采用上述返回值不太合适。打开另存为对话框函数:
Function FileSaveAs()
'不对dlgOpen进行声明的原因是:不需要引用Microsoft Office 11.0 Object Library
Set dlgOpen = Application.FileDialog(2)
With dlgOpen
.AllowMultiSelect = False
.Show
End With
Set dlgOpen = Nothing
End Function 作者: LoveSeiya 时间: 2007-6-3 21:31
一点没看明白,我太弱了作者: lessonleung 时间: 2007-7-21 18:36
fs.copyfile CurrentProject.FullName, CurrentProject.Path & "\backup\Bak_" & CurrentProject.Name作者: kingcross 时间: 2008-9-7 16:36
好东西!作者: cnffmso 时间: 2010-1-20 22:03
收藏了,这个问题已经困扰我几天了,谢谢作者: wufeng980114 时间: 2010-2-26 21:45
学习了作者: herry2003aa 时间: 2010-2-27 11:24 作者: ycxchen 时间: 2010-2-27 15:17
学习一下!作者: lovehere 时间: 2010-7-14 11:28
学习一下,正在找这方面的内容