向版主求救二个问题，救急啊。

rogertian

我写的程序是输出为EXCEL格式的.但输出后EXCEL不能完全退出.CGL兄告诉我的方法我试了半天也没搞定.只好再麻烦各位看一看了.
1、怎样才能在输出EXCEL文件后彻底关掉它。现在它总是留在内存里面退不出去。第二次输出就会出错。我只好是退出ACCESS后再进入才能保证输出不出错。
2、输出EXCEL文件时我想先干掉同名的文件，如果判断是否有同名的EXCEL文件存在,就删掉它再输出，没有同名的就直接输出。删掉文件用什么命令。
多谢各位版主。

[此贴子已经被作者于2004-1-4 10:26:18编辑过]

rogertian

我现在改为输出前先做一个判断，但我不知如何删。 v是我输出的文件名。
      If Dir(CurrentProject.Path & "\" & v) = v Then
            MsgBox "lease rename exist files,Then try again！", vbInformation, "Warring"
       Else     
      。。。。
      END IF
可不可以举例说明一下。
谢谢。           

rogertian

需要放在模块里还是放在FORM里就可以。怎么用？能不能说详细些。谢谢

rogertian

我这里第一次运行没有问题，但第二次运行就不行了。就会出错的。
    'Exit Sub
    LON = 0
    'End If
    b.MoveNext
    Loop
   
   
    Columns("A:H").Select                      '停在这一句出错。
    Selection.ColumnWidth = 10
    With Selection.Font
        .Name = "Arial Narrow"
        .Size = 9
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With

rogertian

删除文件的我搞定了。真的多谢你了，你己经帮了我几次忙了。有了你们这些无私的前辈，我们这些初学者上手就容易多了。

rogertian

不行啊，我等了三分钟了，输出还是会出错中断。好象和时间没关系。应该是我的程序没有完全退出的原因。

rogertian

我的大哥啊,这次真的要靠你救命了,可不可以告诉我你的邮件地址,我把程序给你.你帮我看一看到底怎么回事?

rogertian

我去掉了xlApp.Visible = True 也是不行.