标题：只导出选择的行

1楼

yangwenghd 发表于：2025/5/8 23:15:00

老师我可以把这个改为只导出选中的行吗？

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter = "Excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Tables("采购管理窗口_Table2").SaveExcel(dlg.FileName, "采购管理窗口_Table2") '保存文件

End If

2楼

有点蓝 发表于：2025/5/9 8:37:00

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=179135&skin=0

3楼

yangwenghd 发表于：2025/5/9 9:05:00

老师可以是选择的行不是勾选的行吗？感谢感谢

4楼

有点蓝 发表于：2025/5/9 9:09:00

5楼

yangwenghd 发表于：2025/5/9 9:34:00

老师这里有一点没明白就是这个for不是一行一行的执行吗？

怎么把选中的行存入数据和导出选中的行呢

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter = "Excel文件|*.xls" '设置筛选器

With Tables("采购管理窗口_Table2")

For i As Integer = .TopPosition To .BottomPosition

.Rows(i).Locked = True

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Tables("采购管理窗口_Table2").SaveExcel(dlg.FileName, "采购管理窗口_Table2") '保存文件

End If

End With

6楼

有点蓝 发表于：2025/5/9 9:40:00

参考2楼的用法，把遍历勾选的行改为遍历选中的行

7楼

yangwenghd 发表于：2025/5/9 9:43:00

好的谢谢老师

[此贴子已经被作者于2025/5/9 9:45:53编辑过]

共7 条记录, 每页显示 10 条, 页签: [1]