Office中国论坛/Access中国论坛

标题: 向版主求救二个问题，救急啊。 [打印本页]

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

[attach]2996[/attach]

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

作者: cg1 时间: 2004-1-4 18:26
1、是出错还是无效？贴出你得代码来
2、无需判断，直接用错误陷阱捕捉即可。

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

作者: rogertian 时间: 2004-1-4 18:30
我现在改为输出前先做一个判断，但我不知如何删。 v是我输出的文件名。
If Dir(CurrentProject.Path & "\" & v) = v Then
MsgBox "

lease rename exist files,Then try again！", vbInformation, "Warring"
   Else
   。。。。
   END IF
可不可以举例说明一下。
谢谢。

作者: cg1 时间: 2004-1-4 18:41
Function delf()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile "filename.xls"
End Function

作者: rogertian 时间: 2004-1-4 18:47
需要放在模块里还是放在FORM里就可以。怎么用？能不能说详细些。谢谢

作者: cg1 时间: 2004-1-4 18:50
未发现什么问题，可以导出啊？

退出EXCEL后只要写过 APP.QUIT 也没问题，不过记得退出也需要一定时间得

作者: rogertian 时间: 2004-1-4 19:01
我这里第一次运行没有问题，但第二次运行就不行了。就会出错的。
'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 时间: 2004-1-4 19:04
删除文件的我搞定了。真的多谢你了，你己经帮了我几次忙了。有了你们这些无私的前辈，我们这些初学者上手就容易多了。

作者: rogertian 时间: 2004-1-4 19:29
不行啊，我等了三分钟了，输出还是会出错中断。好象和时间没关系。应该是我的程序没有完全退出的原因。

作者: cg1 时间: 2004-1-4 21:15
未知你那里具体情况如何。

如果不能解决可以考虑用以下方法：
生成XLS时无需显示EXCEL界面。生成后立即保存为文件，然后直接用SHELL打开xls就不会存在未关闭进程了

另外，你也可以试验用API 强制关闭EXCEL看看

作者: rogertian 时间: 2004-1-4 21:59
我的大哥啊,这次真的要靠你救命了,可不可以告诉我你的邮件地址,我把程序给你.你帮我看一看到底怎么回事?

作者: rogertian 时间: 2004-1-4 22:15
我去掉了xlApp.Visible = True 也是不行.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)