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

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

请问各位大哥,我编了一个程序,读取CAD的一些文字,然后自动写入事先建好的记事本中,


但是我想让她写完后自动打开,却不知道怎么办,在此请教各位.先谢过!


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

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

本帖最后由 作者 于 2005-7-2 10:23:14 编辑

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 8:58:00static/image/common/back.gif谢谢二楼楼主，又帮我解决了一个大问题！


<BR>二楼楼主……


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

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

yj821005发表于2005-7-2 11:20:00static/image/common/back.gif晕，它竟然提示说路径未找到，我保证文件名路径绝对对的


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

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

VBA库Interaction类 我在VBA编辑器的引用里找不到啊


请问一下L<FONT color=#000066>ucasLynn,</FONT>


VBA库Interaction类怎么引用啊

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

wader发表于2005-7-2 14:38:00static/image/common/back.gifVBA库Interaction类 我在VBA编辑器的引用里找不到啊



请问一下LucasLynn,


VBA库Interaction类怎么引用啊


<BR>……


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