Excel VBA复制范围从另一个电子表格转置

Question

我想从工作簿中复制一个范围，并将其转置到当前工作表中。

工作簿（“库\document\book1.xlsx”）。工作表（“sheet1”）。范围（“A1:A5”）。复制

Sub PasteSpecial_Examples()
'https://stackoverflow.com/questions/8852717/excel-vba-range-copy-transpose-paste
'https://www.excelcampus.com/vba/copy-paste-cells-vba-macros/

    Workbooks("Libraries\Documents\Book1.xlsx").Worksheets("Sheet1").Range("A1:A5").Copy
    ActiveSheet.Range("A1").PasteSpecial Transpose:=True

End Sub

Answer 1

>

Excel只允许同时打开一个具有特定文件名的工作簿，即使这些工作簿存在于不同的目录中（它们必须存在，或者它们不能具有相同的文件名）。

workbooks集合的索引只是文件名，而不是完全限定的路径和名称。

我不确定第一点是否是第二点的原因，或者第二点是否是第一点的原因，但它们会有关联。

Sub PasteSpecial_Examples()
    Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1:A5").Copy
    ActiveSheet.Range("A1").PasteSpecial Transpose:=True    
End Sub

Sub PasteSpecial_Examples()
    Dim wsDst As WorkSheet
    Set wsDst = ActiveSheet        
    Workbooks.Open "Libraries\Documents\Book1.xlsx"
    Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1:A5").Copy
    wsDst.Range("A1").PasteSpecial Transpose:=True    
End Sub

Sub PasteSpecial_Examples()
    Dim wbSrc As WorkBook
    Dim wsDst As WorkSheet
    Set wsDst = ActiveSheet        
    Set wbSrc = Workbooks.Open("Libraries\Documents\Book1.xlsx")
    wbSrc.Worksheets("Sheet1").Range("A1:A5").Copy
    wsDst.Range("A1").PasteSpecial Transpose:=True    
End Sub

它指定工作簿对象引用新打开的工作簿，然后在copy语句中使用该对象。

注意：在此代码中，“libraries\documents\book1.xlsx”是对文件的相对引用，例如，如果当前目录是C:\temp，那么它将查找文件C:\temp\libraries\documents\book1.xlsx。如果可能，您应该认真考虑使用绝对引用。