Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于SaveFileDialog 打开指定路径问题


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

主题：关于SaveFileDialog 打开指定路径问题
帅哥哟，离线，有人找我吗？
裴保民
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		关于SaveFileDialog 打开指定路径问题  发帖心情 Post By：2020/4/4 18:12:00 [显示全部帖子]

Dim ljzfc As String= ProjectPath & "导出Excel文件/按账户查账"
上面的代码哪有问题？怎么执行后打不开指定的路径呢？如果改为绝对路径就可以，比如Dim ljzfc As String="D:\导出Excel文件/按账户查账" 是什么原因呢？
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/4/5 22:48:00 [显示全部帖子]

已解决是反斜杠的事

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


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/4/10 20:48:00 [显示全部帖子]


    ’Dim fl As String = ProjectPath  & "导出Excel文件/按账户查账/" & wjmc & "/" & wjmc & "_" &  Format(Date.Now,"yyyyMMdd HHmmss") & ".xls"
    Book.Save(dlg.FileName)
       Dim App As  New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Dim Rg As MSExcel.Range = Ws.Cells
    rg.WrapText = True
    Rg.EntireRow.AutoFit  '自动调整行高
    Wb.save
    App.Visible = True
怎么改变不了保存位置呢？
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/4/11 11:47:00 [显示全部帖子]

想改为，保存对话框所选择的路径

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


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/4/11 12:30:00 [显示全部帖子]

怎么保存不了呢？
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/4/13 8:25:00 [显示全部帖子]

我想实现默认路径打开的是 ProjectPath  & "导出Excel文件/按账户查账/" & wjmc & "/" 但是客户如果保存路径改了后就无法保存了
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建文件夹 (3) - 副本.rar
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/4/13 15:12:00 [显示全部帖子]

蓝老师怎么去掉网格线呢？


图片点击可在新窗口打开查看此主题相关图片如下：截图03.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2020/4/13 15:41:08编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/4/13 16:26:00 [显示全部帖子]

狐表显示是正常，我的意思的导出后不正常？一行显示，一行不显示，如上图不同一

代码怎么设置Excel表的网格线呢？
[此贴子已经被作者于2020/4/13 16:27:39编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/4/13 16:46:00 [显示全部帖子]

蓝老师为什么我的导出表网格线是隔行显示呢？我没设置导出网格线样式呀

[此贴子已经被作者于2020/4/13 16:46:29编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/4/13 17:04:00 [显示全部帖子]

怎么设置成无网格线？
像下面样式

图片点击可在新窗口打开查看此主题相关图片如下：截图04.jpg
图片点击可在新窗口打开查看
现在是样式是

图片点击可在新窗口打开查看此主题相关图片如下：截图05.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2020/4/13 17:07:10编辑过]
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06641 秒, 6 次数据查询