wader 发表于 2005-7-1 23:39:00

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

请问各位大哥,我编了一个程序,读取CAD的一些文字,然后自动写入事先建好的记事本中,
但是我想让她写完后自动打开,却不知道怎么办,在此请教各位.先谢过!
vba 能不能自动打开一个已知路径的记事本文件?

LucasLynn 发表于 2005-7-2 08:33:00


Private Sub AppNoteBook(FileName As String)
On Error GoTo Err_Handler      Dim stAppName As String       stAppName = "C:\WINDOWS\system32\notepad.exe " & FileName
       Call Shell(stAppName, 1)Err_Exit:
       Exit SubErr_Handler:
       MsgBox Err.Description
       Resume Err_Exit
      
End Sub

wader 发表于 2005-7-2 08:58:00

谢谢二楼楼主，又帮我解决了一个大问题！

LucasLynn 发表于 2005-7-2 10:09:00


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

wader 发表于 2005-7-2 10:15:00

不好意思，我运行了一下，显示为无效的过程调用或参数，你写的那个是VB下用的吧
在VBA里不知是不是 shell 函数是不是可以直接调用，
call shell() 在前面没有定义 shell 的函数啊？

LucasLynn 发表于 2005-7-2 10:22:00

是VBA下面用的，shell函数是在VBA库Interaction类里面定义的。
不过上面代码有个错误，标号Exit:是不合法的，占用了关键字，你自己随便改一个就能用了，我刚刚运行通过。
环境：AutoCAD 2005 R16

yj821005 发表于 2005-7-2 11:20:00

晕，它竟然提示说路径未找到，我保证文件名路径绝对对的

LucasLynn 发表于 2005-7-2 13:12:00


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

wader 发表于 2005-7-2 14:38:00

VBA库Interaction类 我在VBA编辑器的引用里找不到啊
请问一下LucasLynn,
VBA库Interaction类怎么引用啊

LucasLynn 发表于 2005-7-2 15:52:00


……
VBA库是系统自动加载的，不需要引用。直接在对象编辑器中就能查到Interaction类的定义。
页: [1]
查看完整版本: [求助]vba 能不能自动打开一个已知路径的记事本文件?