请教各位大师如下函数怎么改为VB代码

tender888

Function OpenFile(FilePath As String, Optional LeiXiang As String = "*.xlsx;*.xls") As String
  Dim fd As FileDialog
  Dim ipath
  OpenFile = ""
  Set fd = Application.FileDialog(msoFileDialogFilePicker)
  With fd
    .Title = "选择文件"
    .InitialFileName = FilePath & "\"
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "*", LeiXiang
    If .Show Then
      .ButtonName = "选择"
      Set ipath = .SelectedItems
    End If
  End With
  If IsEmpty(ipath) Then Exit Function
  Set fd = Nothing
  OpenFile = ipath(1)
End Function

smsn

这个函数就是vb了，能直接用，你是什么意思？
函数返回的是文件路径
Sub ddet()
MsgBox OpenFile("c:\")
End Sub

https://learn.microsoft.com/zh-c ... 26l%3Dzh-CN%26k%3Dk(vbaxl10.chm133270)%3Bk(TargetFrameworkMoniker-Office.Version%3Dv16)%26rd%3Dtrue

tender888

smsn 发表于 2023-1-29 16:37
这个函数就是vb了，能直接用，你是什么意思？
函数返回的是文件路径
Sub ddet()

多谢大师！但我测试了总不成功打开对话框选择文件，请问是什么问题？

smsn

Sub test()
MsgBox OpenFile("c:")
End Sub
这样子调用下看看。
或者改为过程：

Sub OpenFile()
  Dim fd As FileDialog
  Dim ipath
  Set fd = Application.FileDialog(msoFileDialogFilePicker)
  With fd
    .Title = "选择文件"
    .InitialFileName = "c:\"
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "*", "*.xlsx;*.xls"
    If .Show Then
      .ButtonName = "选择"
      Set ipath = .SelectedItems
    End If
  End With
  If IsEmpty(ipath) Then Exit Sub
  Set fd = Nothing
  MsgBox ipath(1)
End Sub

tender888

smsn 发表于 2023-1-30 11:02
Sub test()
MsgBox OpenFile("c:")
End Sub

多谢大师，但还是不显示对话框以选择文件

smsn

tender888 发表于 2023-1-30 13:34
多谢大师，但还是不显示对话框以选择文件

代码没有问题，是不是你加了什么其他代码。你可以上传文件

tender888

smsn 发表于 2023-1-30 13:40
代码没有问题，是不是你加了什么其他代码。你可以上传文件

多谢大师，麻烦抽空帮忙看看，非常感谢！

smsn

tender888 发表于 2023-1-30 15:51
多谢大师，麻烦抽空帮忙看看，非常感谢！

居然是vb6 ，这个太老了。上面代码可以在vba上使用，vb6就不确定了。
vb6太老了，不要学了，如果要winform可以去使用vb.net，用法差不多或者学学C#
教程b站有
IDE用 visual studio 2022 community
https://visualstudio.microsoft.com/zh-hans/vs/

tender888

smsn 发表于 2023-1-30 20:33
居然是vb6 ，这个太老了。上面代码可以在vba上使用，vb6就不确定了。
vb6太老了，不要学了，如果要winfo ...

好的，非常感谢大师这么热心