时间戳

首页 > 解决方案 > 编译错误帮助并在用户窗体上居中标题

excel - 编译错误帮助并在用户窗体上居中标题

问题描述

下面的代码给了我一个编译错误。“编译错误：参数数量错误或属性分配无效” 错误似乎发生在 .Filters.Add 上。如果有帮助，.Add 会以蓝色突出显示。

另外，如何将标题文本集中在用户窗体上。

Private Sub cmdBrowse_Click()

'myFile = Application.GetOpenFilename(, , "Select a File.")

Dim fname As String
Dim fpath As String

fpath = ThisWorkbook.Path

With Application.FileDialog(msoFileDialogOpen)
    .InitialFileName = fpath
    .ButtonName = "Get File Name"
    .Title = "File Selection"
    .Filters.Clear
    .Filters.Add "*.xl", "*.xlsx", "*.xlsm", "*.xlb", "*.xlam", "*.xltx", "*.xltm", "*.xls", "*.xla", "*.xlt", "*.xlm", "*.xlw"
    .AllowMultiSelect = False
    
    If .Show = True Then
        fname = .SelectedItems(1)
        Me.TextBox1.Text = fname
    Else
        MsgBox "Operation Canceled"
    End If
End With
End Sub

标签： excelvba

解决方案

他们Filter.Add有三个论点。你已经给出了 12 个参数。更改为.Filters.Add "Excel", "*.xl; *.xlsx; *.xlsm; *.xlb; *.xlam; *.xltx; *.xltm; *.xls; *.xla; *.xlt; *.xlm; *.xlw"，它应该可以正常工作。

推荐阅读