如何用VBA为合并后的工作簿生成特定格式的唯一文档ID？

以下是修改后的完整VBA代码，在原合并逻辑基础上新增了符合要求的唯一ID生成及应用逻辑：

Dim wb As Workbook, wbAll As Workbook
Dim ws As Worksheet
Dim t As Long
Dim uniqueID As String
Dim randomCode As String

' 创建合并工作簿
Set wbAll = Workbooks.Add

' 合并Book1至Book100工作簿
For t = 1 To 100
    Set wb = Nothing
    On Error Resume Next
    Set wb = Workbooks("Book" & t)
    On Error GoTo 0
    If Not wb Is Nothing Then
        For Each ws In wb.Sheets
            ws.Move after:=wbAll.Sheets(wbAll.Sheets.Count)
        Next
    End If
Next

' 生成唯一ID各组成部分
' 1. 执行日期（DD/MM/YYYY格式）
Dim execDate As String
execDate = Format(Date, "DD/MM/YYYY")

' 2. 当前Windows用户名
Dim userName As String
userName = Environ("USERNAME")

' 3. 6-8位随机唯一编码（示例为7位，可调整位数）
Randomize ' 初始化随机数生成器
randomCode = Format(Int((9999999 - 1000000 + 1) * Rnd + 1000000), "0000000")

' 拼接完整唯一ID
uniqueID = execDate & "_" & userName & "_" & randomCode

' 可选操作1：将ID写入合并工作簿首表的A1单元格
wbAll.Sheets(1).Range("A1").Value = "唯一ID: " & uniqueID

' 可选操作2：重命名并保存工作簿（替换日期中的/为-，避免文件名非法字符）
Dim safeFileName As String
safeFileName = Replace(execDate, "/", "-") & "_" & userName & "_" & randomCode & ".xlsx"
wbAll.SaveAs Environ("USERPROFILE") & "\Desktop\" & safeFileName

' 释放对象
Set wb = Nothing
Set wbAll = Nothing

关键逻辑说明 #

• 日期生成：通过Format(Date, "DD/MM/YYYY")获取系统当前日期并格式化，若用于文件名需替换/为-（Windows文件名不允许包含/）。
• 用户名获取：用Environ("USERNAME")直接读取当前登录的Windows账户名，无需额外权限。
• 随机编码：
  • 用Randomize确保每次运行生成不同的随机序列
  • 示例生成7位随机数，如需6位则调整范围为100000到999999，8位则为10000000到99999999
  • 若需更高唯一性，可替换为GUID片段：

    randomCode = Mid(CreateObject("Scriptlet.TypeLib").GUID, 2, 8) ' 提取GUID前8位
    

• ID应用：代码包含两种常用场景——写入工作表单元格、重命名保存工作簿，可根据需求选择或修改。

内容的提问来源于stack exchange，提问作者MJobbson