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


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

主题:关于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


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

项目目录下有"导出Excel文件/按账户查账"这些目录吗

 回到顶部
帅哥,在线噢!
裴保民
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

已解决是反斜杠的事

 回到顶部
帅哥,在线噢!
裴保民
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
怎么改变不了保存位置呢?

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110558 积分:562680 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/11 9:59:00 [只看该作者]

改为什么路径?fl?

Book.Save(fl)

 回到顶部
帅哥,在线噢!
裴保民
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110558 积分:562680 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/11 11:53:00 [只看该作者]

代码没有问题

 回到顶部
帅哥,在线噢!
裴保民
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

怎么保存不了呢?


 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110558 积分:562680 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/11 13:44:00 [只看该作者]

上传实例

 回到顶部
帅哥,在线噢!
裴保民
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

我想实现默认路径打开的是 ProjectPath  & "导出Excel文件/按账户查账/" & wjmc & "/" 但是客户如果保存路径改了后就无法保存了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文件夹 (3) - 副本.rar



 回到顶部
总数 25 1 2 3 下一页