请问下面一段程序怎么解释呀 实在看不明白,求详细解释Public Function Xls_OpenFileName() As String Dim OF As OpenFilename, Temp As String, rtv As Long, Filter As String Temp = String$(5120, vbNullChar) Filter = "Microsoft
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/26 03:37:58
![请问下面一段程序怎么解释呀 实在看不明白,求详细解释Public Function Xls_OpenFileName() As String Dim OF As OpenFilename, Temp As String, rtv As Long, Filter As String Temp = String$(5120, vbNullChar) Filter =](/uploads/image/z/12361877-53-7.jpg?t=%E8%AF%B7%E9%97%AE%E4%B8%8B%E9%9D%A2%E4%B8%80%E6%AE%B5%E7%A8%8B%E5%BA%8F%E6%80%8E%E4%B9%88%E8%A7%A3%E9%87%8A%E5%91%80+%E5%AE%9E%E5%9C%A8%E7%9C%8B%E4%B8%8D%E6%98%8E%E7%99%BD%2C%E6%B1%82%E8%AF%A6%E7%BB%86%E8%A7%A3%E9%87%8APublic+Function+Xls_OpenFileName%28%29+As+String++++Dim+OF+As+OpenFilename%2C+Temp+As+String%2C+rtv+As+Long%2C+Filter+As+String++++Temp+%3D+String%24%285120%2C+vbNullChar%29++++Filter+%3D+%22Microsoft)
请问下面一段程序怎么解释呀 实在看不明白,求详细解释Public Function Xls_OpenFileName() As String Dim OF As OpenFilename, Temp As String, rtv As Long, Filter As String Temp = String$(5120, vbNullChar) Filter = "Microsoft
请问下面一段程序怎么解释呀 实在看不明白,求详细解释
Public Function Xls_OpenFileName() As String
Dim OF As OpenFilename, Temp As String, rtv As Long, Filter As String
Temp = String$(5120, vbNullChar)
Filter = "Microsoft Office Excel 文件 (*.xls)" & vbNullChar & "*.xls" & vbNullChar & vbNullChar
With OF
.lStructSize = Len(OF)
.hwndOwner = Application.hWndAccessApp
.lpstrFile = Temp
.nMaxFile = 5120
.lpstrFilter = Filter
.lpstrInitialDir = CurrentSelectpass
.nFilterIndex = 1
.Flags = &H4
.lpstrTitle = "请指定文件名"
End With
rtv = GetOpenFileName(OF)
If rtv Then
Xls_OpenFileName = Left$(OF.lpstrFile, InStr(OF.lpstrFile, vbNullChar) - 1)
' At Once the folder is selected one, it is maintaining.
CurrentSelectpass = Xls_OpenFileName
End If
End Function
请问下面一段程序怎么解释呀 实在看不明白,求详细解释Public Function Xls_OpenFileName() As String Dim OF As OpenFilename, Temp As String, rtv As Long, Filter As String Temp = String$(5120, vbNullChar) Filter = "Microsoft
Public Function Xls_OpenFileName() As String -方法名称:Xls_OpenFileName string类型
Dim OF As OpenFilename,Temp As String,rtv As Long,Filter As String -定义变量:of 打开文件名称,trmp string类型,filter string类型
Temp = String$(5120,vbNullChar) -temp 大小不能为空 最大5120K
Filter = "Microsoft Office Excel 文件 (*.xls)" & vbNullChar & "*.xls" & vbNullChar & vbNullChar
With OF -文件名称.xls
.lStructSize = Len(OF) -取长度
.hwndOwner = Application.hWndAccessApp -打开access一个方法
.lpstrFile = Temp -文件名
.nMaxFile = 5120 -文件最大值
.lpstrFilter = Filter -文件名
.lpstrInitialDir = CurrentSelectpass
.nFilterIndex = 1 -页码
.Flags = &H4 -编码
.lpstrTitle = "请指定文件名" -错误提示
End With
rtv = GetOpenFileName(OF)
If rtv Then
Xls_OpenFileName = Left$(OF.lpstrFile,InStr(OF.lpstrFile,vbNullChar) - 1)
' At Once the folder is selected one,it is maintaining.
CurrentSelectpass = Xls_OpenFileName
End If -判断文件是否选中
End Function -结束方法