Excel获取脚本所需的当前用户名VBA帮助

我有一个Filemaker Pro运行时数据库，导出报告到Excel然后以PDF格式打开，没有任何问题在我的机器上运行，但…..当客户加载到那里机器的VBA代码（当前用户名）需要改变。 对我来说，一个很大的障碍是能够使用我的解决scheme分发Excel表单，并让Excel知道不同的用户名。 所以下面是我的VBA的一部分，我需要能够将SEAQ（用户名）更改为当前用户名…..出口到位置是文件，我不需要改变那部分。

ActiveWorkbook.UpdateLink Name:= _ "C:\Users\seaq\Desktop\LAB 17025\Forms\Particle Distribution\PD FM Exported.xlsx" _ , Type:=xlExcelLinks Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\seaq\Desktop\LAB 17025\Forms\Particle Distribution\Particle Dist Customer Report.pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True 

Answer 1

例如

 ActiveWorkbook.UpdateLink Name:= _ "C:\Users\" & Environ("Username") & _ "\Desktop\LAB 17025\Forms\Particle Distribution\PD FM Exported.xlsx", _ Type:=xlExcelLinks