怎样复制EXCEL的SHEET

wsyyq 2007-09-17 08:27:53
我建了一个ExceL,SHHET1中是一个公共表,怎样在VB中新建EXCEL的SHHET,把SHEET1中的内容复制到新建的SHEET,然后再把有关数据填到新建的SHHET中。请高手指点一下。
...全文
467 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
ynkmgog 2007-09-23
  • 打赏
  • 举报
回复
有一个最笨的办法,用excel的宏,然后用脚本编辑器查看源代码,你要什么样的操作代码都行。
carefire 2007-09-21
  • 打赏
  • 举报
回复

Sub 复制表()

'Sheet1是公共表

'复制Sheet1到 -> 与Sheet1在一起的工作簿的表
Sheets("Sheet1").Select
Sheets("Sheet1").Copy after:=Sheet1
ActiveSheet.Name = "与Sheet1在一起的表"


'复制Sheet1到 -> 新建的工作簿的表
Sheets("Sheet1").Select
Sheets("Sheet1").Copy
ActiveSheet.Name = "新建的工作簿的表"

End Sub
fa_ge 2007-09-20
  • 打赏
  • 举报
回复
我給你一段吧

dim wb as workbook
dim ws as worksheet
dim cn as new adodb.connection
dim rs as new adodb.recordset
dim cnstr as string
dim sql as string

on error resume next

set wb =thisworkbook
set ws=wb.sheets("sheet1")

cnstr= "provider=microsoft.jet.oledb.4.0" _
& "extended properties=excel 8.0 " _
& "data source=" & thisworkbook.fullname
cn.connectionstring=cnstr
cn.open
sql ="select * from [sheet1$]"
set rs=new adodb.recordset
set rs=cn.execute(sql,adcmdtext)

set ws=worksheet("新工作表") '創建新工作表
ws.range("a1").copyfromrecordset rs '復制數據

rs.close
cn.close
set rs=nothing
set cn=nothing



Denorth 2007-09-19
  • 打赏
  • 举报
回复
Dim wsTemp as worksheet
Set wsTemp=thisworkbook.sheets.add() '在工作簿中创建一个工作表
thisworkbook.worksheets("sheet1").Range("column1:column2").cop _
y Destination:=wsTemp.Range("colum1:colum2")
'colum1是你公共表中所在数据源的首列,colum2是最后列

你看看吧,我以前是用这种方法解决问题的

2,461

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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