宏编程中如何获取当前目录名称？

我需要知道如何在宏编程中获取当前目录变量。我正在桌面上保存一个文件，如下所示：C:\Users\deadlock\Desktop\data.html。是否可以将 C:\Users\deadlock\Desktop\ 替换为当前的直接变量？

这是我的一小段代码：

 ActiveWorkbook.ShowPivotChartActiveFields = True
With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
    "C:\Users\deadlock\Desktop\data.htm", "Sheet1", "", xlHtmlStatic, "data_9438", "")
    .Publish (True)
    .AutoRepublish = False

任何代码片段都将受到高度赞赏。

提前致谢..

当前目录可通过 VBA 获得curdir()&当前工作簿的目录通过ActiveWorkbook.Path.

Edit;

Dim current As String
current = CurDir$()
'// root dirs have a \ others do not; normalize
If Right$(current, 1) <> "\" Then current = current & "\"

With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
    current & "data.htm", "Sheet1", "", xlHtmlStatic, "data_9438", "")
    .Publish (True)
    ....