[求助]复制xlsx表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]复制xlsx表

共有2412人关注过本帖树形打印复制链接主题：[求助]复制xlsx表

yupeng

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：350 积分：2927 威望：0 精华：0 注册：2015/4/23 19:53:00

[求助]复制xlsx表 发帖心情

Post By：2015/10/29 14:19:00 [只看该作者]

请教师傅们

button按钮

当我点击此按钮时可以达到以下效果

1.复制项目Attachments文件夹的（表.xlsx ）到当B文件夹并重命名

2.命名方式为，当前行的款号列的值

3. B文件夹的路径在网络上面

谢谢

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/29 14:21:00 [只看该作者]

参考，网络什么意思，什么路径。

http://www.foxtable.com/help/topics/0342.htm

yupeng

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：350 积分：2927 威望：0 精华：0 注册：2015/4/23 19:53:00

Post By：2015/10/29 14:49:00 [只看该作者]

哪不要管第3条

刚刚你发的帮助文件里面没有动态重命名

第2条是关键

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/29 15:08:00 [只看该作者]

FileSys.CopyFile(projectPath & "Attachments\test.xls", "C:\test\" & Tables("表A").current("第一列") & ".xls",True)

yupeng

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：350 积分：2927 威望：0 精华：0 注册：2015/4/23 19:53:00

Post By：2015/11/23 15:43:00 [只看该作者]

以下是引用大红袍在2015/10/29 15:08:00的发言：

FileSys.CopyFile(projectPath & "Attachments\test.xls", "C:\test\" & Tables("表A").current("第一列") & ".xls",True)

谢谢

请问能不能让重命名后的xls工作簿的A表的B3单元格的值等于Tables("表A").current("第一列") ，E3单元格的值等于current("第二列")

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/23 16:10:00 [只看该作者]

打开excel，然后设置值。

Dim dpath As String = "C:\test\" & Tables("表A").current("第一列") & ".xls"
FileSys.CopyFile(projectPath & "Attachments\test.xls", dpath,True)
Dim Book As New XLS.Book(dpath) '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
sheet(2, 1).Value = Tables("表A").current("第一列")
sheet(2, 4).Value = Tables("表A").current("第二列")
book.save(dpath)