Foxtable(狐表) → 用户栏目 → 专家坐堂 → EXCEL自动更新表


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

主题：EXCEL自动更新表
帅哥哟，离线，有人找我吗？
有点甜
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/28 10:34:00 [显示全部帖子]

 看23楼

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/28 11:00:00 [显示全部帖子]

以下是引用发财在2014-8-28 10:50:00的发言：
为什么不能粘贴回数值了？

 

代码应该是没有问题的，你好好调试一下，加入msgbox，看哪里的代码没有执行
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/1 15:30:00 [显示全部帖子]

 你用msgbox定位一下哪句代码有问题。

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/1 15:33:00 [显示全部帖子]

以下是引用发财在2014-9-1 15:29:00的发言：
  代码：For i1 As Integer = 1 To 9
            Ws(i1) = Wb.WorkSheets(aa1(i1-1))
        Next

 

如果报错，自己检查一下

 

1、aa1的表名写错了；

 

2、msgbox弹出看一下i的值，看哪一个错了

 

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/1 20:40:00 [显示全部帖子]

以下是引用发财在2014-9-1 20:36:00的发言：
为什么生成表在快盘中的链接路径亦自动改成快盘？

 

什么意思
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/1 23:49:00 [显示全部帖子]

以下是引用发财在2014-9-1 22:36:00的发言：
如何用代码改变Exce1表中链接路径？

 

你是说修改公式？那你就得每个单元格每个单元格的改。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/2 9:06:00 [显示全部帖子]

以下是引用发财在2014-9-2 8:40:00的发言：
EXCEL表：编辑－链接－更改源，狐表应该可以用代码来完成的吧？

 

给你说个窍门吧：1、你在excel里面录制一段宏；2、拷贝代码出来改成foxtable的vba的代码，就可以用了。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/2 9:29:00 [显示全部帖子]

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.open("d:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Dim path As String = ws.cells(2,2).Formula.split("]")(0).replace("=", "").replace("[","").replace("'", "")

wb.ChangeLink(Name:= _
        path, NewName:= _
        "C:\Documents and Settings\Administrator\My Documents\Book1.xls", Type:= _
        MSExcel.XlLinkType.xlLinkTypeExcelLinks)

App.Visible = True
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/2 14:42:00 [显示全部帖子]

楼主，你就不能看懂代码？

 

1、路径自己搞一下；

 

2、单元格坐标自己搞一下
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/2 16:29:00 [显示全部帖子]

以下是引用发财在2014-9-2 16:27:00的发言：
对不起，老师！真的看不懂里面的代码！

 

那就算了，不要做这个功能了。看不懂就算了。

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.open("d:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Dim path As String = ws.cells(2,2).Formula.split("]")(0).replace("=", "").replace("[","").replace("'", "")

wb.ChangeLink(Name:= _
        path, NewName:= _
        "C:\Documents and Settings\Administrator\My Documents\Book1.xls", Type:= _
        MSExcel.XlLinkType.xlLinkTypeExcelLinks)

App.Visible = True

[此贴子已经被作者于2014-9-2 16:29:34编辑过]
 回到顶部
总数 46 上一页 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 5 次数据查询