Excel VBA宏定义复制的文件和单元格数

时间:2018-01-22 16:58:15

标签: excel vba excel-vba excel-formula

我目前有一个宏,它从一个范围复制给定数量的单元格并将它们粘贴到一个新的工作簿中。 这些单元格中的值也是从源路径复制到dest路径的文件。 我通过改变2部分(Range("D2:D16")中的范围来定义我想要的数字,它工作正常。

但是我必须每天大约30次重复此任务以获取不同数量的文件,因此我希望我复制的数字由我定义 - 可能是某个电子表格上的数字 - ie 如果A1 = 20,那么如果A2 = 35,它将运行以下宏为20个文件,那么它将是35等。

当然这很简单,但我无法解决这个问题,所以我给你留下了"清洁"适用于手动过程的代码!帮助感激地接受了:)

  Dim r As Range
  Dim SourcePath As String, DestPath As String, FName As String

  SourcePath = "C:Unique ISRCs\"
  DestPath = "C:old rope\"

  For Each r In Range("D2:D16", Range("D2:D16").End(xlUp))
    'Searches the file with the file mask from the cell (Change this range depending how many tracks I want to copy, in this instance 15)
    FName = Dir(SourcePath & r)
    'Loop while files found
    Do While FName <> ""
      'Copy the file
      FileCopy SourcePath & FName, DestPath & FName
      'Search the next file
      FName = Dir()
    Loop
  Next

Workbooks("English Metadata Template.xlsm").Worksheets("METADATA TEMPLATE").Range("AJ15:AJ60").Value = _
    Workbooks("ISRC's for Comps.xlsm").Worksheets("English").Range("D2:D16").Value

End Sub

0 个答案:

没有答案