要用word或者excel 然后(word例子) private Wrd As Word.ApplicationOn Error Resume Next '忽略错误 Set Wrd = GetObject(, "Word.Application") '查找一个正在运行的Excel拷贝 If Err.Number <> 0 Then '如果 Excel 没有运行则 Set Wrd = CreateObject("Word.Application") '运行它 End If Err.Clear '清除发生错误的 Err 对象 On Error GoTo 0 '保留普通错误进程 '把你的宏粘贴到这即可
然后(word例子)
private Wrd As Word.ApplicationOn Error Resume Next '忽略错误
Set Wrd = GetObject(, "Word.Application") '查找一个正在运行的Excel拷贝
If Err.Number <> 0 Then '如果 Excel 没有运行则
Set Wrd = CreateObject("Word.Application") '运行它
End If
Err.Clear '清除发生错误的 Err 对象
On Error GoTo 0 '保留普通错误进程 '把你的宏粘贴到这即可