Excel VBA生成含PO号的HTM文件报错‘Object Required’，求解决

你的代码触发「Object Required」错误的核心原因：字符串变量不能用Set关键字赋值，Set仅用于对象类型（比如Worksheet、Range这类），而path和ponummer都是字符串类型，直接赋值即可。

修正后的完整代码：

Private Sub LinkButton5_Click()

    Dim path As String
    Dim ponummer As String
    path = "C:\Users\Don\Documents\"
    ponummer = TextBox1.Value

    ' 可添加空值判断，避免生成无意义文件名
    If ponummer = "" Then
        MsgBox "请输入PO编号"
        Exit Sub
    End If
   
    With ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceRange, _
    Filename:=path & ponummer & ".htm", Sheet:="HTML Link", Source:="$B$2:$B$7", _
    HtmlType:=xlHtmlStatic)
        .Publish (True)
        .AutoRepublish = False
    End With

End Sub

额外注意事项：

• 确认TextBox1是当前窗体或工作表上存在的控件，名称拼写无误
• 检查目标路径C:\Users\Don\Documents\是否有写入权限，避免因权限问题导致生成失败
• 确认工作表「HTML Link」存在，且$B$2:$B$7是有效数据区域

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