Question

我有一个Excel表单，我经常需要使用其他文件名和表单中的更改数据。我需要编写创建文件夹的代码，并使用表单中更改的文本将Excel文件保存在其中。（文本在另一个Excel文件中）

我有什么：

我有一个Excel文件，其中包含我需要填写空表单的姓名，数字和文字列表。
我有一个表格，我必须手动编写这些内容。

我知道如何在表单中获取数据，但我不知道如何更改数据，以便循环并保存数据。

我知道如何保存Excel文件，但我不确定它是否是最佳方式，因为我不需要新保存的表格中的任何宏。

最终结果应该是所有Excel表单都保存在用户决定的路径或Excel宏文件所在的位置.Excel文件应该位于与表单同名的文件夹中。

请告诉我如何实现这一点的想法。

我发现这个代码可以创建文件夹，但我不确定如何绑定它，因为它只保存了具有相同名称的文件。

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

自行创建工作簿，并在新创建的文件夹中自动保存

0 个答案: