Foxtable(狐表)用户栏目专家坐堂 → [求助]文件路径


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

主题:[求助]文件路径

帅哥哟,离线,有人找我吗?
kaiyu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:770 积分:7825 威望:0 精华:0 注册:2014/4/21 15:16:00
[求助]文件路径  发帖心情 Post By:2014/11/27 8:30:00 [显示全部帖子]

Dim p As String = ProjectPath & "Attachments\jh.xls"
Dim Book As New XLS.Book("& p &")

Dim Book As New XLS.Book(ProjectPath & "Attachments\jh.xls")

这两咱写法都是报错,请问如何写系统目录这个路径?


 回到顶部
帅哥哟,离线,有人找我吗?
kaiyu
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:770 积分:7825 威望:0 精华:0 注册:2014/4/21 15:16:00
  发帖心情 Post By:2014/11/27 8:45:00 [显示全部帖子]

Dim p As String = ProjectPath & "Attachments\jh.xls"
Dim Book As New XLS.Book(p)
Dim Sheet As XLS.Sheet = Book.Sheets("jh")
sheet(8,8).value = 8
Book.Save(p)

Dim Proc As New Process '打开工作簿
Proc.File = ProjectPath & "Attachments\jh.xls"
Proc.Start()


 回到顶部
帅哥哟,离线,有人找我吗?
kaiyu
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:770 积分:7825 威望:0 精华:0 注册:2014/4/21 15:16:00
  发帖心情 Post By:2014/11/27 8:45:00 [显示全部帖子]

还是不行

 回到顶部
帅哥哟,离线,有人找我吗?
kaiyu
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:770 积分:7825 威望:0 精华:0 注册:2014/4/21 15:16:00
  发帖心情 Post By:2014/11/27 8:52:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:{da894111-bf63-4dcb-9ecf-0a9a31ed0731}.bmp
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
kaiyu
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:770 积分:7825 威望:0 精华:0 注册:2014/4/21 15:16:00
  发帖心情 Post By:2014/11/27 9:08:00 [显示全部帖子]

我只执行下面打开文件的是可以执行,我用的是office.


 回到顶部
帅哥哟,离线,有人找我吗?
kaiyu
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:770 积分:7825 威望:0 精华:0 注册:2014/4/21 15:16:00
  发帖心情 Post By:2014/11/27 9:49:00 [显示全部帖子]

Dim Proc As New Process '打开工作簿
Proc.File = ProjectPath & "Attachments\jh.xls"
Proc.Start()

甜版主:为什么在命令窗口执行这个可以打开文件呢.


 回到顶部
帅哥哟,离线,有人找我吗?
kaiyu
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:770 积分:7825 威望:0 精华:0 注册:2014/4/21 15:16:00
  发帖心情 Post By:2014/11/27 10:09:00 [显示全部帖子]

Dim Book As new XLS.Book(ProjectPath & "jh.xls")
Dim Sheet As XLS.Sheet = Book.Sheets("jh")
sheet(8,8).value = 8
Book.Save(ProjectPath & "jh.xls")


Dim Proc As New Process '打开工作簿
Proc.File = ProjectPath & "jh.xls"
Proc.Start()

 

改成这样子就行.


 回到顶部
帅哥哟,离线,有人找我吗?
kaiyu
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:770 积分:7825 威望:0 精华:0 注册:2014/4/21 15:16:00
  发帖心情 Post By:2014/11/27 16:50:00 [显示全部帖子]

又遇到一个新问题,把这个表的数据改写后,另一个工作表引它的数据不会自动更新,我在工作薄打开事件加入以下代码还是不行,

    Application.Calculation = xlCalculationAutomatic

有没有办法一打开这个表格,公式引用的数据就自动更新呢?


 回到顶部