从单元格中命名文件夹和文件，并将文件保存在文件夹中

Question

这就是我想要宏做的事情：

1. 在 Excel 中创建由单元格定义的新文件夹。
2. 打开 xxx 个 word 文档以更新链引用。
3. 用 Excel 中的单元格定义的不同文件名保存 Word 文档。
4. 使用 Excel 中单元格定义的不同文件名保存 Word 文档（在新文件夹中）。
5. 关闭 Word 文档。

几乎一切正常，但到目前为止我只能将文件保存到现有文件夹中（新客户）。

代码如下：

Dim folderPath As String
folderPath = "C:\Users\klebg\OneDrive\Zitekick\Kunder\Byg & Brand\TEST\New customer"
'Check if the folder exists
If Dir(folderPath, vbDirectory) = "" Then

 'Folder does not exist, so create it
 MkDir folderPath
 
  Else
     MsgBox "Mappe med samme navn eksisterer allerede"
     
End If
 
Set wordapp = CreateObject("word.Application")
 wordapp.Documents.Open "C:\Users\klebg\OneDrive\Zitekick\Kunder\Byg & Brand\TEST\test.docx"
 wordapp.Visible = True
 'Auto save

 wordapp.ActiveDocument.SaveAs "C:\Users\klebg\OneDrive\Zitekick\Kunder\Byg & Brand\TEST\New customer\" & Sheets("Testark").Range("A8")
 wordapp.Documents.Close
 

 wordapp.Documents.Open "C:\Users\klebg\OneDrive\Zitekick\Kunder\Byg & Brand\TEST\test2.docx"
 wordapp.Visible = True
 'Auto save
 wordapp.ActiveDocument.SaveAs "C:\Users\klebg\OneDrive\Zitekick\Kunder\Byg & Brand\TEST\New customer\" & Sheets("Testark").Range("B8")
 wordapp.Documents.Close
    
    
End Sub```
               

Answer 1

您的线路：

folderPath = "C:\Users\klebg\OneDrive\Zitekick\Kunder\Byg & Brand\TEST\New customer"

告诉您的代码将其保存在何处。如果要保存在其他位置，则需要将文件夹路径的定义更改为“新客户”以外的其他内容。

即类似...

Dim strFolder as String
Let strFolder = Cell1.value
folderPath = "C:\Users\klebg\OneDrive\Zitekick\Kunder\Byg & Brand\TEST\" & strFolder