请问如何用VB将一个Excel的Workbook中Sheet1的2列复制到Sheet2的指定列?谢谢

hityu 2004-05-06 07:26:12
假定已经有了:
Dim xlApp As Excel.Application '定义Excel类
Dim xlBook As Excel.Workbook '定义工作薄类
Dim xlSheet As Excel.Worksheet '定义工作表类
Set xlApp = CreateObject("Excel.Application") '创建Excel应用类
Set xlBook = xlApp.Workbooks.Open("e:\source1.xls") '打开Excel工作薄

现在将Sheet1中的C,D两列全部复制到Sheet2的A,B列中。(如果要顺便删除Sheet1的A,B两列如何做呢?)
用什么方法实现最好?

谢谢。
...全文
447 6 点赞 打赏 收藏 举报
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
heruo 2004-09-15
11
  • 打赏
  • 举报
回复
heavensonic 2004-05-11
set xlsheet=xlbook.worksheets("sheet1")
xlsheet.range("B:C").copy
set xlsheet=xlbook.worksheets("sheet2")
xlsheet.cells(1,1).PasteSpecial xlPasteAll
  • 打赏
  • 举报
回复
flyingZFX 2004-05-11
同意楼上的办法!
  • 打赏
  • 举报
回复
ezlj 2004-05-07
Set xlSheet= xlbook.Worksheets("sheet1")
xlSheet.Activate
Columns("B:C").Select '你自己选具体的列
Selection.Copy
Sheets("Sheet2").Select
Range("C1").Select '你可以自己选择具体位置
ActiveSheet.Paste
  • 打赏
  • 举报
回复
ezlj 2004-05-07
Set exsheet = xlbook.Worksheets("sheet1")
exsheet.Activate
Columns("B:C").Select
Selection.Copy
Sheets("Sheet2").Select
Range("C1").Select '你可以自己选择具体位置
ActiveSheet.Paste
  • 打赏
  • 举报
回复
hityu 2004-05-06
希望能在VB中对EXCEL操作实现,谢谢。
  • 打赏
  • 举报
回复
相关推荐
发帖
VBA
加入

2112

社区成员

VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
申请成为版主
帖子事件
创建了帖子
2004-05-06 07:26
社区公告
暂无公告