Question

vb 提示“要求对象”，如何解决

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Path As String
If Target <> "" And Target.Value = "OK" Then
Open App.Path & "\Test.txt" For Output As #1
Print #1,
Close #1 '关
End If
End Sub

Answer 1

App是VB的对象，不是VBA的对象。VBA中要用
Open ThisWorkbook.Path & "\Test.txt" For Output As #1

Answer 2

ByVal Target As Range--->Target As Range

追问

出现编译错误，过程编译与事件描述不符

追答

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Path As String
If Target "" And Target.Value = "OK" Then
Open App.Path & "\Test.txt" For Output As #1
Print #1,
Close #1 '关
End If
End Sub

App.Path