乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 142|回复： 9

[求助]vba 能不能自动打开一个已知路径的记事本文件?

[复制链接]
wader

6

主题

13

帖子

1

银币

初来乍到

Rank: 1

铜币
37
发表于 2005-7-1 23:39:00 | 显示全部楼层 |阅读模式
请问各位大哥,我编了一个程序,读取CAD的一些文字,然后自动写入事先建好的记事本中,
但是我想让她写完后自动打开,却不知道怎么办,在此请教各位.先谢过!
vba 能不能自动打开一个已知路径的记事本文件?
回复

使用道具 举报

LucasLynn

1

主题

20

帖子

2

银币

初来乍到

Rank: 1

铜币
24
发表于 2005-7-2 08:33:00 | 显示全部楼层 
  1. 

  2.  Private Sub AppNoteBook(FileName As String)

  3. On Error GoTo Err_Handler        Dim stAppName As String       stAppName = "C:\WINDOWS\system32\notepad.exe " & FileName

  4.        Call Shell(stAppName, 1)Err_Exit:

  5.        Exit SubErr_Handler:

  6.        MsgBox Err.Description

  7.        Resume Err_Exit

  8.        

  9. End Sub
回复

使用道具 举报

wader

6

主题

13

帖子

1

银币

初来乍到

Rank: 1

铜币
37
发表于 2005-7-2 08:58:00 | 显示全部楼层
谢谢二楼楼主，又帮我解决了一个大问题！
回复

使用道具 举报

LucasLynn

1

主题

20

帖子

2

银币

初来乍到

Rank: 1

铜币
24
发表于 2005-7-2 10:09:00 | 显示全部楼层

二楼楼主……
我是二楼，你才是楼主……
回复

使用道具 举报

wader

6

主题

13

帖子

1

银币

初来乍到

Rank: 1

铜币
37
发表于 2005-7-2 10:15:00 | 显示全部楼层
不好意思，我运行了一下，显示为无效的过程调用或参数，你写的那个是VB下用的吧
在VBA里不知是不是 shell 函数是不是可以直接调用，
call shell() 在前面没有定义 shell 的函数啊？
回复

使用道具 举报

LucasLynn

1

主题

20

帖子

2

银币

初来乍到

Rank: 1

铜币
24
发表于 2005-7-2 10:22:00 | 显示全部楼层
是VBA下面用的，shell函数是在VBA库Interaction类里面定义的。
不过上面代码有个错误，标号Exit:是不合法的，占用了关键字，你自己随便改一个就能用了，我刚刚运行通过。
环境：AutoCAD 2005 R16
回复

使用道具 举报

yj821005

4

主题

28

帖子

2

银币

初来乍到

Rank: 1

铜币
44
发表于 2005-7-2 11:20:00 | 显示全部楼层
晕，它竟然提示说路径未找到，我保证文件名路径绝对对的
回复

使用道具 举报

LucasLynn

1

主题

20

帖子

2

银币

初来乍到

Rank: 1

铜币
24
发表于 2005-7-2 13:12:00 | 显示全部楼层

这个……调试一下拉，程序应该不会有问题。
回复

使用道具 举报

wader

6

主题

13

帖子

1

银币

初来乍到

Rank: 1

铜币
37
发表于 2005-7-2 14:38:00 | 显示全部楼层
VBA库Interaction类 我在VBA编辑器的引用里找不到啊
请问一下LucasLynn,
VBA库Interaction类怎么引用啊
回复

使用道具 举报

LucasLynn

1

主题

20

帖子

2

银币

初来乍到

Rank: 1

铜币
24
发表于 2005-7-2 15:52:00 | 显示全部楼层

……
VBA库是系统自动加载的，不需要引用。直接在对象编辑器中就能查到Interaction类的定义。
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-4 01:35 , Processed in 0.356391 second(s), 73 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表