
只导出选中行是为什么
导出代码
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter = "EXCEL文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim Book As New XLS.Book(ProjectPath & "Attachments\合同导出模板.xlsx")
Dim Sheet As XLS.Sheet
Book.Build()
Sheet = Book.Sheets(0)
Sheet(Sheet.Rows.Count, 0).Value = "制单人:" & User.Name
Book.Save(dlg.FileName & ".xlsx")
End If
excel模板