我知道:Set xlBook = xlApp.Workbooks.Open(App.Path & FileName)是去打开一个工作薄.

现在想作一个示例: 在当前已打开的EXCEL中活动工作表中写一个字符...
代码如下:

Public n As Integer '用来记录第1选择了关键后的数字
Public nj As Integer '用来记录第2选择了加总字段的数字
Public mxz As Integer '用来记录2以后没有被选中字段的数字
Public xlApp As Excel.Application '定义EXCEL类
Public xlBook As Excel.Workbook '定义工件簿类
Public xlsheet, xlsheet2, xlsheet3 As Excel.Worksheet '定义工作表类
Private Sub Command1_Click()
 Dim iRow As Integer
 Dim I As Integer
 Dim shzx
  On Error Resume Next
Set xlApp = GetObject(, "Excel.Application") '判断Excel是否打开
If xlApp.xlBook.ActiveWorkbook.Sheets.Count = 0 Then
MsgBox "请打开一个工作簿！", vbInformation, "提示"
Exit Sub
End If   
  Set xlsheet = xlApp.xlBook.ActiveWorksheets(2) '打开sheet1工作表
  xlsheet.Activate
  xlsheet.Cells(2, 3) = "操作已打开的工作表"
   
End Sub  

  为何总是执行了 "请打开一个工作簿！" 这句就没有退出了..我明明打开了两个EXCEL表呀?
请高手帮忙指点一下.

在获取对象的时候可能出错了，而你用了On Error Resume Next
 所以无法捕捉到错误，试试下面的实现

Set xlApp = GetObject(, "Excel.Application")
        If Err.Number <> 0 Then ExcelWasNotRunning = True

        If ExcelWasNotRunning Then                         '没有获取到
            xlApp.Quit: GoTo Errlab
        End If

        If xlApp.Workbooks.Count = 0 Then
            xlApp.Quit: GoTo Errlab
        End If
Errlab:
     msgbox "获取打开文件出错！"
     Err.Clear