老师,如图所示,窗口按钮代码如下:
Dim t As Table = Tables("窗口1_Table53")
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
For each c As object in e.Form.Controls("GroupBox5").Children
If c.checked = True Then
Dim txt As String = c.Text
t.SaveExcel(dlg.FileName,"按" & txt & "导出")
End If
Next
End If
结果:
如果选择了两个选项,导出的Excel文件中出现两个文件名不同(两个选项标签名)但
此主题相关图片如下:2020-02-18_10-34-55.png
内容完全相同的两个文件。
请问代码如何修改才能导出一个文件(文件名=第一选项标签(+第二选项标签+...))
[此贴子已经被作者于2020/2/18 11:06:19编辑过]