Foxtable(狐表) → 用户栏目 → 专家坐堂 → 只导出选择的行


  共有41人关注过本帖树形打印复制链接

主题：只导出选择的行
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2753 积分：18351 威望：0 精华：0 注册：2013/4/9 10:41:00 		只导出选择的行  发帖心情 Post By：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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113756 积分：579347 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/5/9 8:37:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2753 积分：18351 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2025/5/9 9:05:00 [只看该作者]

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

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113756 积分：579347 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/5/9 9:09:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2753 积分：18351 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：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
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113756 积分：579347 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/5/9 9:40:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2753 积分：18351 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2025/5/9 9:43:00 [只看该作者]

好的 谢谢老师
[此贴子已经被作者于2025/5/9 9:45:53编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 4 次数据查询