每次导出文件的默认名字都是空白的，检验针对每跟表格的文件名都可以通过设定某个字段或者规则来默认。这样可以提到效率。

我也有同感，希望以后改进

看来是没有办法 了，我也是这么想的，有没有替代方法？

Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
                 EV.GetLock()
                    Try
                        ' 根据按钮的名称来执行不同的操作
                        Select Case e.Shape.Name
                    Case "导出"
                                       
                        ' 创建保存文件对话框
                       filepath = "C:\Users\me\Desktop\0pdf\xls\"
        '                saveDialog.Title = "导出当前工作表"
        '                saveDialog.Filter = "Excel 文件 (*.xlsx)|*.xlsx|CSV 文件 (*.csv)|*.csv"
                        filename = AW.ActiveSheet.Name &"-" & partno & ".xlsx"' 默认文件名
        '                saveDialog.DefaultExt = ".xlsx" ' 默认扩展名
       
                                AW.SaveAs(filepath & FileName,fileformat.OpenXMLWorkbook)
                                msgbox("导出成功" & filepath & FileName)
            Case Else
'                MessageBox.Show("未定义的按钮：" & e.Shape.Name, "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End Select
                    Catch ex As Exception
                        MessageBox.Show("操作失败: ")
                    Finally
                        EV.ReleaseLock()
                    End Try
       End Sub'按钮/标签点击事件

使用vba代码实现，目前还不知道怎么调用弹出选择文件位置的功能，类似于savedialog的功能

我也有同感，希望以后改进

看来是没有办法 了，我也是这么想的，有没有替代方法？

Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
                 EV.GetLock()
                    Try
                        ' 根据按钮的名称来执行不同的操作
                        Select Case e.Shape.Name
                    Case "导出"
                                       
                        ' 创建保存文件对话框
                       filepath = "C:\Users\me\Desktop\0pdf\xls\"
        '                saveDialog.Title = "导出当前工作表"
        '                saveDialog.Filter = "Excel 文件 (*.xlsx)|*.xlsx|CSV 文件 (*.csv)|*.csv"
                        filename = AW.ActiveSheet.Name &"-" & partno & ".xlsx"' 默认文件名
        '                saveDialog.DefaultExt = ".xlsx" ' 默认扩展名
       
                                AW.SaveAs(filepath & FileName,fileformat.OpenXMLWorkbook)
                                msgbox("导出成功" & filepath & FileName)
            Case Else
'                MessageBox.Show("未定义的按钮：" & e.Shape.Name, "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End Select
                    Catch ex As Exception
                        MessageBox.Show("操作失败: ")
                    Finally
                        EV.ReleaseLock()
                    End Try
       End Sub'按钮/标签点击事件

使用vba代码实现，目前还不知道怎么调用弹出选择文件位置的功能，类似于savedialog的功能