1、把以下代码添加到标准模块中窗体中建两个按钮和文本框一个为Text1，另一个为Text2Private Sub Command1_Click() Text1 = GetDialog("open", "打开文件", "1.xls")End SubPrivate Sub Command2_Click() Text2= GetDialog("save", "保存文件", "1.xls")End Sub
2、具体代码 添加到标准模块中Public Declare Function GetOpenFileNa罪焐芡拂me Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOPENFILENAME As OPENFILENAME) As LongPublic Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOPENFILENAME As OPENFILENAME) As LongType OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As StringEnd TypePublic Const OFN_OVERWRITEPROMPT = &H2Public Const OFN_HIDEREADONLY = &H4Public Const OFN_PATHMUSTEXIST = &H800Public Const OFN_FILEMUSTEXIST = &H1000Public Function GetDialog(ByVal sMethod As String, ByVal sTitle As String, ByVal sFileName As String) As String On Error GoTo myError Dim rtn As Long, pos As Integer Dim file As OPENFILENAME file.lStructSize = Len(file) file.hInstance = App.hInstance file.lpstrFile = sFileName & String$(255 - Len(sFileName), 0) file.nMaxFile = 255 file.lpstrFileTitle = String$(255, 0) file.nMaxFileTitle = 255 file.lpstrInitialDir = "" file.lpstrFilter = "xls文件(*.xls)" '这个为xls文件 file.lpstrTitle = sTitle If UCase(sMethod) = "OPEN" Then file.flags = OFN_HIDEREADONLY + OFN_PATHMUSTEXIST + OFN_FILEMUSTEXIST rtn = GetOpenFileName(file) Else file.lpstrDefExt = "exe" file.flags = OFN_HIDEREADONLY + OFN_PATHMUSTEXIST + OFN_OVERWRITEPROMPT rtn = GetSaveFileName(file) End If If rtn > 0 Then pos = InStr(file.lpstrFile, Chr$(0)) If pos > 0 Then GetDialog = Left$(file.lpstrFile, pos - 1) End If End If Exit FunctionmyError: MsgBox "操作失败！", vbCritical + vbOKOnly, APP_NAMEEnd Function
