将excel用VBA combobox 选择文件存储路径

您可以使用以下的VBA代码来实现您的需求：

Sub SaveFile()

    Dim FilePath As String
    Dim FileName As String
    
    '定义文件保存路径
    FilePath = ThisWorkbook.Path '默认保存在当前工作簿所在的文件夹内
    '定义文件名
    FileName = "example.xlsx" '自定义文件名
    
    '使用ComboBox选择文件路径
    Dim cb As ComboBox
    Set cb = ActiveSheet.Shapes("ComboBox1").OLEFormat.Object
    
    If cb.Value <> "" Then
        FilePath = cb.Value
    End If
    
    '拼接完整文件路径
    FilePath = FilePath & "\" & FileName
    
    '保存文件
    ThisWorkbook.SaveAs Filename:=FilePath, FileFormat:=xlOpenXMLWorkbook
    
End Sub

在这段代码中，我们首先定义了文件保存的默认路径，然后通过ComboBox选择文件路径。如果ComboBox中有值，则使用ComboBox中的值作为文件路径。最后，我们使用拼接好的文件路径保存文件。

请注意，您需要先在工作表中插入一个ComboBox控件，并将其命名为"ComboBox1"，然后才能在VBA代码中引用它。