请问如何用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两列如何做呢?)
用什么方法实现最好?

谢谢。
...全文
679 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
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操作实现,谢谢。

2,503

社区成员

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

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