- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于SaveFileDialog 打开指定路径问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148311)
-- 发布时间：2020/4/4 18:12:00
-- 关于SaveFileDialog 打开指定路径问题
Dim ljzfc As String= ProjectPath & "导出Excel文件/按账户查账"
上面的代码哪有问题？怎么执行后打不开指定的路径呢？如果改为绝对路径就可以，比如Dim ljzfc As String="D:\\导出Excel文件/按账户查账" 是什么原因呢？
-- 发布时间：2020/4/5 21:28:00
--
项目目录下有"导出Excel文件/按账户查账"这些目录吗
-- 发布时间：2020/4/5 22:48:00
--
已解决是反斜杠的事
-- 发布时间：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
怎么改变不了保存位置呢？
-- 发布时间：2020/4/11 9:59:00
--
改为什么路径？fl？
Book.Save(fl)
-- 发布时间：2020/4/11 11:47:00
--
想改为，保存对话框所选择的路径
-- 发布时间：2020/4/11 11:53:00
--
代码没有问题
-- 发布时间：2020/4/11 12:30:00
--
怎么保存不了呢？
-- 发布时间：2020/4/11 13:44:00
--
上传实例
-- 发布时间：2020/4/13 8:25:00
--
我想实现默认路径打开的是 ProjectPath & "导出Excel文件/按账户查账/" & wjmc & "/" 但是客户如果保存路径改了后就无法保存了
