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

[hityu]

假定已经有了：
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两列如何做呢？)
用什么方法实现最好？

谢谢。

[hityu]

希望能在VB中对EXCEL操作实现，谢谢。

• 打赏
• 举报

回复 赞

[ezlj]

Set exsheet = xlbook.Worksheets("sheet1")
exsheet.Activate
Columns("B:C").Select
Selection.Copy
Sheets("Sheet2").Select
Range("C1").Select '你可以自己选择具体位置
ActiveSheet.Paste

• 打赏
• 举报

回复 赞

[ezlj]

Set xlSheet= xlbook.Worksheets("sheet1")
xlSheet.Activate
Columns("B:C").Select '你自己选具体的列
Selection.Copy
Sheets("Sheet2").Select
Range("C1").Select '你可以自己选择具体位置
ActiveSheet.Paste

• 打赏
• 举报

回复 赞

[flyingZFX]

同意楼上的办法!

• 打赏
• 举报

回复 赞

[heavensonic]

set xlsheet=xlbook.worksheets("sheet1")
xlsheet.range("B:C").copy
set xlsheet=xlbook.worksheets("sheet2")
xlsheet.cells(1,1).PasteSpecial xlPasteAll

• 打赏
• 举报

回复 赞

[heruo]

11

• 打赏
• 举报

回复 赞