从Excel工作表中的数据复制到另一个使用宏

我有一个片滚动计划在copy.xls worksheet.I想将它复制到Book1.xls的工作表在表NO1在范围A1：H6从Excel工作表中的数据复制到另一个使用宏

宏Book.xls

Sub CopytoPS() 
    Dim sfil As String 
    Dim owbk As Workbook 
    Dim sPath As String 

    sPath = "C:\Users\Nirmala\Desktop\website" 'Change the file path for your purposes 
    sfil = Dir(sPath & "copy.xls") 

    Range("B6:H6").Copy 
    Set owbk = Workbooks.Open(sPath & sfil) 
    owbk.Sheets("RollinPlan").Range("B6:H6").End(xlUp).Offset(1, 0). 
    PasteSpecial xlPasteValues 
    owbk.Close True 'Save opened workbook and close 
    sfil = Dir

结束子

来源

2012-02-19 coder25

你面临的问题到底是什么？它不复制？它复制到不正确的范围？ – 2012-02-19 13:10:25

它不是复制和错误是下标超出范围错误 – coder25 2012-02-19 13:24:23

这将执行以下操作：

1）打开copy.xls和复制数据在范围B6:H6

2）将粘贴数据到工作簿Book1范围内A1:H6上表NO1

Sub CopyData() 
    Dim filePath As String, wb As Workbook 

    filePath = "C:\Users\Nirmala\Desktop\website" 'Change the file path for your purposes 
    Set wb = Workbooks.Open(Filename:=filePath & "\" & "copy.xls") 

    wb.Worksheets("Rolling Plan").Range("B6:H6").Copy Destination:=ThisWorkbook.Worksheets("NO1").Range("A1:H6") 
    wb.Close 
End Sub

注意，我不明白为什么数据范围复制目标（即A1:H6）远大于实际复制的范围（即B6:H6）。

来源

2012-02-19 14:08:47

我已经改变了A1：H6到B5：H5它工作正常。我想实际上从MPP复制数据到excel.How will I do that – coder25 2012-02-19 14:19:24

@prerna - Great东东！如果你快乐，我可以请你接受答案吗？这样，其他有类似问题的用户可以对提供的答案有信心。 – 2012-02-19 14:23:52

是的，但我有一个问题，关于复制MPP文件excel.will此代码适用于MPP.Do你有任何想法 – coder25 2012-02-19 14:28:50

从Excel工作表中的数据复制到另一个使用宏

回答

相关问题