请问如何把一个EXCEL文件中的SHEET1复制到SHEET2?

iamsoweak 2004-07-09 09:28:45
有一个已经设定了一定格式的EXCEL文件
我现在要通过VB实现以下过程:
打开EXCEL,新建一个SHEET2,把SHEET1的格式复制到SHEET2,用来自数据库的内容填充SHEET1,再把SHEET2复制到SHEET3,再填充SHEET2……

另外,由于之前乱试代码,我的OFFICE现在响应速度变得奇慢,双击一个“.XLS”或“.DOC”要等三四分钟才能打开,但是如果先从“程序”中打开OFFICE程序,再从“打开”菜单里选择文件速度就很正常……

求解,谢谢大家!
...全文
给本帖投票
2052 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
iamsoweak 2004-07-12
  • 打赏
  • 举报
回复
谢谢流星雨!谢谢大家!
结帖
flyingZFX 2004-07-09
  • 打赏
  • 举报
回复
Sub Marco1()
Dim a As Worksheet

Sheet1.UsedRange.Copy
Set a = ThisWorkbook.Sheets.Add
a.Paste
Set a = Nothing
End Sub
iamsoweak 2004-07-09
  • 打赏
  • 举报
回复
各位大哥大姐帮忙想想吧,有急用,第二个问题能不能解决都没问题,我已经打算呆会儿重装OFFICE了……
Baalwhat 2004-07-09
  • 打赏
  • 举报
回复
帮你顶一下
sqfeiyu 2004-07-09
  • 打赏
  • 举报
回复
用下面的语句:
Sheets("Sheet1").Copy Before:=Sheets(1)
Sheets(Sheets.Count -1).Name = "newsheet"
sqfeiyu 2004-07-09
  • 打赏
  • 举报
回复
代码都给你了,你试过吗?
再写一次
Sheets("Sheet1").Copy Before:=Sheets("Sheet1")
Sheets(Sheets.Count -1).Name = "newsheet"
Sheet1是你的设定了一定格式的EXCEL表。
flyingZFX 2004-07-09
  • 打赏
  • 举报
回复
Sub Macro1()


Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)

End Sub

意思是将 Sheet1 作一个副本 放到 最后
flyingZFX 2004-07-09
  • 打赏
  • 举报
回复
Sub Macro1()


Sheets("Sheet1").Copy After:=Sheets(3)

End Sub
iamsoweak 2004-07-09
  • 打赏
  • 举报
回复
这样只拷贝了合并单元格的格式,有没有方法可以把行高、列宽、隐藏这些属性也都拷贝下来呢?

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧

手机看
关注公众号

关注公众号

客服 返回
顶部