VB6.0中怎样调用"txt"和".xls"

Question

我想在VB6.0中运用"command"按键来调用"txt"".xls" 文件,就象运用"shell"函数来调用"exe"一样?只要我双击"command"就可以直接打开"exe"和"xls"文件. 请那位大虾能够详细的把函数和过程帮我编写下来. 谢谢!!!!

Answer 1

首先，命令按钮只有单击事件，无法双击。

★打开txt文件可以调用“记事本”，这个比较容易，可以使用以下代码。

Private Sub Command_Click()
Shell "notepad.exe C:\1.txt", vbNormalFocus '把其中的 C:\1.txt 改成你需要的路径
End Sub

★要打开xls文件就必须有OFFICE。使用下面代码可以调用Excel打开xls文件，但前提是你得知道Excel的安装位置。

Private Sub Command_Click()
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE C:\1.xls", vbNormalFocus '把其中的 C:\1.xls 改成你需要的路径
End Sub

★如果你不知道OFFICE的安装路径，也可以通过读取注册表来获得，代码如下。

Private Sub Command_Click()
Dim RegEdit As Object
Set RegEdit = CreateObject("WScript.Shell")
Shell RegEdit.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Excel\InstallRoot\Path") & "EXCEL.EXE C:\1.xls", vbNormalFocus '把其中的 C:\1.xls 改成你需要的路径
End Sub

●注：因为我安装的是2003版本，所以路径是OFFICE11、注册表中是11.0 。如果你安装的其他版本，你可以将此处的数字改为你的Office版本号。

Answer 2

你不就是想读取txt的内容吗，你可以采用流的方式读取inputStream