| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 用saveexcel能导出选定的行吗？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121640) |
| -- 作者：xxfoxtable -- 发布时间：2018/7/10 21:34:00 -- 用saveexcel能导出选定的行吗？ 用saveexcel能导出选定的行吗？ |
| -- 作者：有点蓝 -- 发布时间：2018/7/10 21:49:00 -- 不能。可以先筛选，然后再导出 |
| -- 作者：xxfoxtable -- 发布时间：2018/7/10 21:52:00 -- Dim idx As Integer = 1 Dim Book As New XLS.Book \'定义一个Excel工作簿 Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表 For Each r As Row In Tables("销售").GetCheckedRows For Each c As Col In Tables("销售").cols sheet(idx, c.Index).Value = r(c.name) Next idx += 1 Next Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "Excel文件|*.xls" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then Book.Save(dlg.FileName) Dim Proc As New Process Proc.File = dlg.FileName Proc.Start() End If 这样导出，怎么加默认的表头啊？
|
| -- 作者：有点蓝 -- 发布时间：2018/7/10 21:58:00 -- sheet(0, 0).Value = “某某表头” Sheet.MergeCell(0,0,0,10)
|
| -- 作者：xxfoxtable -- 发布时间：2018/7/10 22:13:00 -- 可以先筛选，然后再导出 老师怎么筛选选中的行，再导出？
[此贴子已经被作者于2018/7/10 22:15:18编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2018/7/10 22:20:00 -- Dim str As String For Each r As Row In Tables("销售").GetCheckedRows str = str & "," & r("_Identify") Next Tables("销售").Filter = "[_Identify] in (" & str.Trim(",") & ")"
|