Dim lieming As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
If lieming.CheckedIndices.Count =0 Then
msgbox("不能所有列都不选")
Return
Else
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim sht As Table = Tables("数据列调整_Table1")
Dim str As String = sht.getColVisibleWidth
If lieming.value > "" Then
For Each c As Col In sht.Cols
c.visible = False
Next
For Each s As String In lieming.value.split(",")
sht.cols(s).Visible = True
Next
End If
sht.SaveExcel(dlg.FileName, "客户资料")
sht.SetColVisibleWidth(str)
End If
End If