如何添加保存excel宏生成的.svg文件的位置

我有以下excel VBA宏，它将excel行批量保存为.svg文件。我基本上在互联网上搜索了一些有用的东西，发现了这个VBA宏。除选择要保存的文件夹外，我已对其进行了调整，使其适用于我。我想定义一个保存.svg文件的路径。我注意到它正在我的文档文件夹中保存它们。我需要定义文件夹，但我完全不知道如何实现

Sub SaveRowsAsSVGs()

Dim wb As Excel.Workbook, wbNew As Excel.Workbook
Dim wsSource As Excel.Worksheet, wsTemp As Excel.Worksheet
Dim r As Long, c As Long
Set wsSource = ThisWorkbook.Worksheets("worksheet")

Application.DisplayAlerts = False 'will overwrite existing files without asking

r = 1
Do Until Len(Trim(wsSource.Cells(r, 1).Value)) = 0
ThisWorkbook.Worksheets.Add ThisWorkbook.Worksheets(1)
Set wsTemp = ThisWorkbook.Worksheets(1)

For c = 2 To 7
    wsTemp.Cells((c - 1) * 2 - 1, 1).Value = wsSource.Cells(r, c).Value
Next c

wsTemp.Move
Set wbNew = ActiveWorkbook
Set wsTemp = wbNew.Worksheets(1)
wbNew.SaveAs wsSource.Cells(r, 1).Value & ".svg", xlCSV
wbNew.Close
ThisWorkbook.Activate
r = r + 1
Loop
Application.DisplayAlerts = True
End Sub

从文件中：

参数：

Filename：指示要保存的文件名的字符串。您可以包含完整路径；如果没有，Microsoft Excel会将文件保存在当前文件夹中

改变

wbNew.SaveAs wsSource.Cells(r, 1).Value & ".svg", xlCSV

到

Dim myPath作为字符串
myPath=“\…\…\…\”
Dim myPath as string
myPath = "\...\...\...\" <~ Your path here, ending in a backslash

wbNew.SaveAs myPath & wsSource.Cells(r, 1).Value & ".svg", xlCSV