Sub xx()
Dim xlApp as Object, wb As Object
On Error Resume NExt
Set xlApp = GetObject(,"Excel.Application") '获取Excel运用环境
If Not xlApp Is Nothing Then '如果Excel环境已经打开或者有Excel文件打开
Set Wb = xlApp.WorkBooks("a.xls")
'那么将Wb对象设置为我们需要工作簿
If Err.Number = 9 Then Set Wb = xl...
