设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 3106|回复: 14
打印 上一主题 下一主题

请教---火急急

[复制链接]
跳转到指定楼层
1#
发表于 2005-4-12 10:27:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
菜鸟请教:

假设已经用程序把格式为DBF 4 (dBASE IV)的文档调出并修改,如何用程序把它保存并关闭呢?(中间弹出太多对换框,实在不知怎么设置),上传一个这种格式的文档。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2005-4-12 16:23:00 | 只看该作者
详细点???表?
3#
发表于 2005-4-12 20:50:00 | 只看该作者
用EXCEL打开修改后再保存试试
4#
 楼主| 发表于 2005-4-12 21:50:00 | 只看该作者
.ant的默认打开方法我就是设为EXCELL的,但修改后保存时出了好几个提示窗口,如何在程序里回应这些窗口?(前提是格式还是原来的)

以下是我尝试关掉它的方法之一,结果都不如意,请指点。

    ActiveWorkbook.SaveAs Filename:= _      '将它另存为FileNames(I) & 3
      FILEPATH & "\" & FileNames(I) & 3, FileFormat _
        :=xlDBF4 ', CreateBackup:=False,
   
   ActiveWindow.Close SaveChanges:=True, Filename:= _ '关闭时有提示窗口,不知怎么关
      FILEPATH & "\" & FileNames(I) & 3
   Kill FILEPATH & "\" & FileNames(I) '删除原文件
   Name FILEPATH & "\" & FileNames(I) & 3 As FILEPATH & "\" & FileNames(I)
5#
发表于 2005-4-13 02:03:00 | 只看该作者
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True
6#
 楼主| 发表于 2005-4-13 12:02:00 | 只看该作者
谢谢鬼哥哥!
7#
 楼主| 发表于 2005-4-16 10:41:00 | 只看该作者
老鬼哥哥,还是不行啊。可以给我写出具体代码吗?麻烦你了。[em27]
8#
发表于 2005-4-16 20:11:00 | 只看该作者
修改后保存用我写的三行代码就可以了,用不着SAVEAS吧?
9#
 楼主| 发表于 2005-4-17 00:40:00 | 只看该作者
老鬼哥哥:

详情见附件

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
10#
发表于 2005-4-17 02:13:00 | 只看该作者
看了你的截图了,将SAVEAS改为SAVE就不会出现那种情况了。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-17 15:54 , Processed in 0.106681 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表