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


Excel Get current user name VBA help needed for script

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

1
2
3
4
5
6
7
8
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
相关讨论

例如

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