كپي فايل ها توسط اكسل. آيا اكسل اينقدر قدرت دارد؟!

[afshin3a]

سلام
من تعداد زيادي فايل پي دي اف درون يك پوشه دارم. هر روز بايد يه تعدادي از اين فايل ها را كپي و در پوشه اي ديگر پيست كنم. بايد بشينم تك تك فايل ها را سرچ كنم و بعد كپي كنم. (چون نزديك 4644 فايل هست! و از شماره 1 تا 4644 نامگذاري شدند.). مي خواهم ليست مواردي را كه مي خواهم، به اكسل بدم (مثلا در ستون A) و بهشم بگم در يك پوشه خاص كپي كنه. يعني بهش بگم كه اگر فايل هايي با اين نام (نام هاي تعيين شده در ستون A) ديدي، در فلان پوشه،كپي كن! اكسل اينقدر قدرتمند هست كه بتونه از پس اين كار بر بياد؟!

[iranweld]

با سلام

لیست کردن فایلها از یک دایرکتوری مشخص را تهیه کردم
مراحل بعدی خواسته شما ان شاالله توسط دوستان تکمیل میگردد

[afshin3a]

جواب را پيدا كردم

Sub Test()
  Dim R As Range
  Dim SourcePath As String, DestPath As String, FName As String
   'Setup source and dest path (Note: must have a trailing backslash!)
  SourcePath = "C:\temp\CopyFrom\"
  DestPath = "C:\Temp\CopyTo\"
   'Visit each used cell in column A
  For Each R In Range("A1", Range("A" & Rows.Count).End(xlUp))
    'Search the file with the file mask from the cell (Note: can contain wildcards like *.xls)
    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
End Sub