objcreat.mac

来自「vc脚本代码~~~大家多支持」· MAC 代码 · 共 29 行

Sub Test()

	Dim obj

	Set obj = CreateObject("Excel.Application")

	If Not obj Is Nothing Then

		obj.Visible = True
		MsgBox "Excel is running"
		obj.Quit
		Set obj = Nothing

	End If

	Set obj = CreateObject("Word.Application")

	If Not obj Is Nothing Then

		obj.Visible = True
		MsgBox "Word is running"
		obj.Quit
		Set obj = Nothing

	End If

End Sub

Test