在不关闭form1的情况下继续运行为什么不能写入东西了呢？？继续运行=继续点击command1

程序发过来，我给你看看

COM.麻烦....闪人...

我把程序传上去了，先谢谢大侠了。

Private Sub Command1_Click()
    CreatRpt
End Sub

Public Function CreatRpt(Optional vCondition As Integer = 0)
 
Dim MyDocExcecution As New Word.Application '设置Excel对象
    
    
     On Error Resume Next
    
    '执行打开新的模板
     Set MyDocExcecution = New Document
    ' Set MyDocExcecution = Documents.Open(FileName:=App.Path + "\template" + "\template.dot")
    ' Set MyDocExcecution = GetObject(, "Word.Application")
    MyDocExcecution.Documents.Open FileName:=App.Path + "\template" + "\template.dot"
    
    
    MyDocExcecution.Visible = True   '显示新建文档
'    MyDocExcecution.Documents(0).Activate '激活文档
    
    '向表中填入内容
    
    MyDocExcecution.ActiveDocument.Tables(1).Cell(1, 1).Range.Text = "序号"
    MyDocExcecution.ActiveDocument.Tables(1).Cell(1, 2).Range.Text = "姓名"
    MyDocExcecution.ActiveDocument.Tables(1).Cell(1, 3).Range.Text = "出生年月"
    MyDocExcecution.ActiveDocument.Tables(1).Cell(1, 4).Range.Text = "籍贯"
    MyDocExcecution.ActiveDocument.Tables(1).Cell(1, 5).Range.Text = "工作单位"
    
    MyDocExcecution.ScreenUpdating = True
    MyDocExcecution.ActiveDocument.SaveAs FileName:=App.Path + "\template" + "通知", fileformat:=doc, Password:=""
    MyDocExcecution.Quit
    'Word.Application.Quit
End Function

我就想问一句，你的那么多分是怎么来的啊，你到底行不行啊，不行别逗人玩好不好啊

[quote]
我就想问一句，你的那么多分是怎么来的啊，你到底行不行啊，不行别逗人玩好不好啊[/quote]
。。。

Public Function CreatRpt(Optional vCondition As Integer = 0)
 
    Dim MyDocExcecution As Word.Application  '设置Excel对象
    
    
     On Error GoTo 0
    
    '执行打开新的模板
     Set MyDocExcecution = New Word.Application
    MyDocExcecution.Documents.Open FileName:=App.Path & "\template" & "\template.dot"
    

    MyDocExcecution.Visible = True   '显示新建文档
    '向表中填入内容
    Debug.Print MyDocExcecution.ActiveDocument.Name
    MyDocExcecution.ActiveDocument.Tables(1).Cell(1, 1).Range.Text = "序号"
    MyDocExcecution.ActiveDocument.Tables(1).Cell(1, 2).Range.Text = "姓名"
    MyDocExcecution.ActiveDocument.Tables(1).Cell(1, 3).Range.Text = "出生年月"
    MyDocExcecution.ActiveDocument.Tables(1).Cell(1, 4).Range.Text = "籍贯"
    MyDocExcecution.ActiveDocument.Tables(1).Cell(1, 5).Range.Text = "工作单位"
    
    MyDocExcecution.ScreenUpdating = True
    MyDocExcecution.DisplayAlerts = False
    MyDocExcecution.ActiveDocument.SaveAs FileName:=App.Path & "\template" & "通知", fileformat:=doc, Password:=""
    DoEvents
    MyDocExcecution.ActiveDocument.Close
    MyDocExcecution.Quit
    Set MyDocExcecution = Nothing
End Function

谢谢啊

[quote]作者：jieju
专家分：0



 会员信息
 发短消息  
 所属BLOG 发表时间：2008-3-12 20:11:00    [回复]  [引用] 
6 楼  

我就想问一句，你的那么多分是怎么来的啊，你到底行不行啊，不行别逗人玩好不好啊 [/quote]我实在不知道该说什么了!
[quote]主题：急需，那位大侠帮忙！！！小弟感激不尽[/quote]难道感谢就是这样子的？