以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] excel复制  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186963)

--  作者:leoli
--  发布时间:2023/6/11 19:34:00
--  [求助] excel复制
老师,

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

--  作者:有点蓝
--  发布时间:2023/6/11 20:34:00
--  
删除C:/text1.xlsx 的sheet2:http://www.foxtable.com/webhelp/topics/1465.htm、或者使用vba:http://www.foxtable.com/webhelp/topics/2121.htm

然后复制:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=175599

--  作者:leoli
--  发布时间:2023/6/13 12:07:00
--  
老师,可以不删除原来的表sheet2, 可以用清除sheet2中的内容吗 ?
--  作者:有点蓝
--  发布时间:2023/6/13 12:10:00
--  
清除sheet2中的内容,和删除后重新添加一个有什么区别?
--  作者:leoli
--  发布时间:2023/6/13 20:39:00
--  
老师,我的是xlsx,如下不行


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

--  作者:有点蓝
--  发布时间:2023/6/13 20:42:00
--  
Dim Book As New XLS.Book("c:\\reports\\test.xlsx")
--  作者:leoli
--  发布时间:2023/6/14 12:52:00
--  

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

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

--  作者:有点蓝
--  发布时间:2023/6/14 13:27:00
--  
没有保存
--  作者:leoli
--  发布时间:2023/6/14 13:34:00
--  
老师,要怎样保存 ?
--  作者:有点蓝
--  发布时间:2023/6/14 13:35:00
--  
http://www.foxtable.com/webhelp/topics/1151.htm