我创建了一个VBA代码,该代码创建了一个文件夹,该文件夹以引用的单元格命名,然后在该文件夹中创建了多个子文件夹。我现在想要的是一个新代码,可以将excel工作表保存到具有特定名称的子文件夹之一中,这就是我到目前为止所拥有的。我想我写的路径错误,或者使用了错误的语法。请帮忙;)
我提供了一份代码副本和一张图片,希望它可以正确上传。
Private Sub CommandButton1_Click()
' automates the saving
Dim path As String
Dim filename1 As String
path = "T:\Estimating\Williaam Cox Project Enquiries 2018\" & Range("SaveRef") & "\Costings"
filename1 = Range("SaveRef").Text
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=path & "Costing Sheets" & ".xlsm", FileFormat:=52
Application.DisplayAlerts = True
End Sub
答案 0 :(得分:1)
您在路径末尾缺少一个“ \”。