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


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

主题:[求助] excel复制

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


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
[求助] excel复制  发帖心情 Post By:2023/6/11 19:34:00 [显示全部帖子]

老师,

表问如何将C:/text.xlsx中sheet1表中全部内容 复制到C:/text1.xlsx 的sheet2中 (如sheet2中的内容不询问全部替换掉,包括多余内容) 用按钮代码实现,谢谢。

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


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2023/6/13 12:07:00 [显示全部帖子]

老师,可以不删除原来的表sheet2, 可以用清除sheet2中的内容吗 ?

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


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2023/6/13 20:39:00 [显示全部帖子]

老师,我的是xlsx,如下不行


Dim Book As New XLS.Book("c:\reports\test.xls")
Book.Sheets.RemoveAt(
0
)

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


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2023/6/14 12:52:00 [显示全部帖子]


老师,改成这样,sheet1表还是存在的

Dim Book As New XLS.Book("c:\reports\test1.xlsx")
Book.Sheets.RemoveAt (0)

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


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2023/6/14 13:34:00 [显示全部帖子]

老师,要怎样保存 ?

 回到顶部