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

wader

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


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


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

LucasLynn

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

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

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

LucasLynn

wader发表于2005-7-2 8:58:00谢谢二楼楼主，又帮我解决了一个大问题！

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

wader

不好意思，我运行了一下，显示为无效的过程调用或参数，你写的那个是VB下用的吧


在VBA里不知是不是 shell 函数是不是可以直接调用，


call shell() 在前面没有定义 shell 的函数啊？

LucasLynn

是VBA下面用的，shell函数是在VBA库Interaction类里面定义的。


不过上面代码有个错误，标号Exit:是不合法的，占用了关键字，你自己随便改一个就能用了，我刚刚运行通过。


环境：AutoCAD 2005 R16

yj821005

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

LucasLynn

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

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

wader

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

LucasLynn

wader发表于2005-7-2 14:38:00VBA库Interaction类 我在VBA编辑器的引用里找不到啊 请问一下LucasLynn, VBA库Interaction类怎么引用啊

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