我是宏的新手。我想编写一个宏来使用 excel 将 MPP 中的列中的特定数据复制到另一个。
我找到了一个代码,可以将数据从一个 excel 复制到另一个。请帮助
Option Explicit
Sub CopytoPS()
Dim sfil As String
Dim owbk As Workbook
Dim sPath As String
sPath = "C:\Users\HYMC\Excel\Test\" 'Change the file path for your purposes
sfil = Dir(sPath & "Management Report PS.xls")
Range("A2:I22").Copy
Set owbk = Workbooks.Open(sPath & sfil)
owbk.Sheets("Sales Data").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
owbk.Close True 'Save opened workbook and close
sfil = Dir
End Sub
我想将 MPP 中的某些列复制到 Excel 中的一组列中。我还希望用户只提供目标文件路径、源文件、要复制的源单元格和目标单元格