以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  只导出选择的行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=196522)

--  作者：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

--  作者：有点蓝 --  发布时间：2025/5/9 8:37:00 --   http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=179135&skin=0

--  作者：yangwenghd --  发布时间：2025/5/9 9:05:00 --   老师 可以是选择的行 不是勾选的行吗？感谢 感谢

--  作者：有点蓝 --  发布时间：2025/5/9 9:09:00 --   http://www.foxtable.com/webhelp/topics/1597.htm

--  作者：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     Next      If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮         Tables("采购管理窗口_Table2").SaveExcel(dlg.FileName, "采购管理窗口_Table2") \'保存文件     End If      End With

--  作者：有点蓝 --  发布时间：2025/5/9 9:40:00 --   参考2楼的用法，把遍历勾选的行改为遍历选中的行

--  作者：yangwenghd --  发布时间：2025/5/9 9:43:00 --   好的 谢谢老师 [此贴子已经被作者于2025/5/9 9:45:53编辑过]