程序运行后，不但无法保存excel文件，另外，程序就没法应了，类似假死。
Private Sub Command1_Click()
Form11.WindowState = 1
    FileName1 = "test.xlsx"
     On Error Resume Next
   
      Set xlApp = GetObject(, "Excel.Application")    '判断Excel是否打开
    If Err.Number <> 0 Then
        Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
        xlApp.Visible = False '设置EXCEL对象不可见
    End If
    Err.Clear
   
    If Dir(App.Path & "\" & FileName1) = "" Then '判断文件是否存在
        MsgBox App.Path & "\" & FileName1 & "未找到！", vbOKOnly, "友情提示"
        Exit Sub
    End If
      For Each xlBook In xlApp.Workbooks
        If xlBook.Name = "test.xlsx" Then
            MsgBox "文件已打开！请不要重复打开。", vbOKOnly, "友情提示"
             xlBook.Activate
             Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表
             xlApp.Cells(6, 4) = Form11.Text1.Text
             'Exit Sub
              
            Else
             Set xlBook = xlApp.Workbooks.Open(App.Path & "\" & FileName1) '打开工件簿文件
             xlBook.Activate
             Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表
             xlApp.Cells(6, 4) = Form11.Text1.Text
           End If
            Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表
            xlSheet.Cells(6, 4) = Form11.Text1.Text
    Next
   
    xlApp.DisplayAlerts = False     '不显示警告信息
    xlBook.Save
   xlApp.Quit '结束EXCEL对象
   Set xlApp = Nothing '释放xlApp对象
End Sub

Set xlApp = GetObject(, "Excel.Application")   
该为
Set xlApp = GetObject("Excel.Application")   
试试。

还要“引用”两个东东。

引用了呀，excel 对象库

试过了，不行

xlApp.ActiveWorkbook.SaveAs(FileName1)?

另存的时候应该为：xlApp.Activeworkbook.saveas filename:="temp"

不知道你的问题解决了没有，显然，你的循环读取或者打开工作簿的代码是有问题的：
For Each xlBook In xlApp.Workbooks
        If xlBook.Name = "test.xlsx" Then
            MsgBox "文件已打开！请不要重复打开。", vbOKOnly, "友情提示"
             xlBook.Activate
             Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表
             xlApp.Cells(6, 4) = Form11.Text1.Text
             'Exit Sub              
            Else    '你代码这里的Else就表示当前打开的工作簿里面，如果不是名为test.xlsx即触发下面的代码，显然这个循环可能导致重复打开同一个Excel表格而导致错误；例如本身你已经打开了3个名字均不为test.xlsx的工作簿，那么这里的Else不是要运行三次？
             Set xlBook = xlApp.Workbooks.Open(App.Path & "\" & FileName1) '打开工件簿文件
             xlBook.Activate
             Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表
             xlApp.Cells(6, 4) = Form11.Text1.Text
           End If
            Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表
            xlSheet.Cells(6, 4) = Form11.Text1.Text
    Next


所以：建议做如下修改：

    For Each xlBook In xlApp.Workbooks
        If xlBook.Name = "test.xlsx" Then
            MsgBox "文件已打开！请不要重复打开。", vbOKOnly, "友情提示"
            Goto FileHasOpened
        End if
    Next
        Set xlBook = xlApp.Workbooks.Open(App.Path & "\" & FileName1) '打开工件簿文件
FileHasOpened:
       xlBook.Activate
       Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表
       xlsheet.Cells(6, 4) = Form11.Text1.Text  

改成如上才符合逻辑！

[ 本帖最后由 unsamesky 于 2015-1-1 23:58 编辑 ]