0

我正在尝试解决以下问题

我有 9 个文件夹，标题为 PROS_2010 到 PROS_2019。它们每个都有大约 500 个子文件夹，其名称结构如下，例如 PROS_201001211_FIRM NAME_number。每个子文件夹都有各种不同名称的 pdf 文件。

我在 VBA 中创建了另一个名为 sample 的文件夹，其中包含大约 400 个子文件夹，每个子文件夹都被命名为特定的 FIRM NAME。为此，我使用了以下代码：

    Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub

我现在想将原始子文件夹 PROS_201001211_FIRM NAME_number 中的所有 pdf 文件移动到仅标题为 FIRM NAME 的文件夹中。基本上，每个原始子文件夹都包含有关特定年份（2010 年至 2019 年）的公司的报告，我想将所有年份的所有公司报告都放在一个名为 FIRM NAME 的文件夹中

为了方便起见，我已经有一个 excel 文件，它基本上包含完整的子文件夹列表，如下所示：

数据结构：公司名称是我要移动当前所在文件的文件夹的名称

数据结构：公司名称是我要移动当前在“附件文件夹”中的文件的文件夹的名称。attachment1 是 pdf 文件名（它总是会发生变化，因此理想情况下，代码会提取附件文件夹中的所有文件并将它们移动到带有公司名称的文件中

提前致谢，

西蒙

4

1 回答 1

0

好的，多亏了一位伙伴的帮助，我发现在 Windows 中使用“command”命令解决这个问题非常容易

基本上创建一个具有以下结构的文本文件（在记事本中）

移动“原始pdf文件目录”“新pdf文件位置\”...

重复每个文件的结构（这需要一些基本的 excel 字符串操作）

然后将 .txt 文件保存为 .cmd 文件并打开它。完毕

于 2020-02-14T08:22:44.660 回答