本文目录一览：
- 1、如何在vb中打开Excel
- 2、如何VB中打开文件
- 3、用VB打开文件
- 4、vb 打开一个文件
- 5、VB如何打开一个文本文件？
如何在vb中打开Excel
Visual Basic开发工具模式可以直接从Excel表格中进入，不需要另外打开。
具体步骤：
1、在电脑上桌面上找到Excel表格图标，双击打开。
2、打开Excel软件后，点击左上角按钮。
3、点击后会弹出一个菜单，在菜单中点击Excel选项按钮。
4、然后在弹出的对话框中勾选自定义功能区中的“开发工具”。
5、然后点击右下方确定按钮。
6、点击确定后，会返回Excel页面。
7、然后在Excel上方的导航栏中点击开发工具按钮。
8、然后在开发工具页面，点击Visual Basic选项。
9、点击后就会进入Visual Basic开发模式。
10、点击左侧导航栏中的Excel中的sheet表格，就可以在Visual Basic中打开了。
如何VB中打开文件
我不知道你是否只需要打开文件还是需要对文件进行其他操作，如下是打开文件的的方法：Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long '首先利用API中的ShellExecute函数，使用此函数可打开任意后缀名的文件-用vb打开文件
Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", "D:\123.txt", vbNullString, vbNullString, vbNormalFocus ‘具体打开指定目录的文件
End Sub
附ShellExecute函数说明：VB声明Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long说明 查找与指定文件关联在一起的程序的文件名返回值Long，非零表示成功，零表示失败。会设置GetLastError参数表参数类型及说明hwndLong，指定一个窗口的句柄，有时候，windows程序有必要在创建自己的主窗口前显示一个消息框lpOperationString，指定字串“open”来打开lpFlie文档，或指定“Print”来打印它lpFileString，想用关联程序打印或打开一个程序名或文件名lpParametersString，如lpszFlie是可执行文件，则这个字串包含传递给执行程序的参数lpDirectoryString，想使用的完整路径nShowCmdLong，定义了如何显示启动程序的常数值。参考ShowWindow函数的nCmdShow参数-用vb打开文件
用VB打开文件
你看这个可不可以，似乎符合你的要求～（有错误的话记得告诉我）
'查找与一个指定文件关联在一起的程序的文件名。
Private Declare Function FindExecutable Lib "shell32.dll" _
Alias "FindExecutableA" (ByVal lpFile As String, _
ByVal lpDirectory As String, _
ByVal lpResult As String) As Long
Private Sub File1_DblClick()
Static FileOpen As String, FileName As String, Files As Boolean
Dim Result As String
Result = Space(256)
If Right(File1.Path, 1) = "\" Then
FileOpen = File1.Path File1.FileName
Else
FileOpen = File1.Path "\" File1.FileName
End If
If Files = True Then
Label1.Caption = "任务执行代码：" Shell(FileOpen " " FileName)
Files = False
File1.Pattern = "*.*"
Else
If FindExecutable(FileOpen, "", Result) = 31 Then '返回31表示不存在文件类型的关联
Files = True
FileName = FileOpen
Label1.Caption = "请选择用于打开该文件的程序"
File1.Pattern = "*.exe;*.bat;*.com"
Else
If LCase$(Right$(FileOpen, 4)) = ".exe" Or LCase$(Right$(FileOpen, 4)) = ".bat" Or LCase$(Right$(FileOpen, 4)) = ".com" Then-用vb打开文件
Label1.Caption = "任务执行代码：" Shell(FileOpen)
Else
Label1.Caption = "任务执行代码：" Shell(Left$(Result, Len(Trim$(Result)) - 1) " " FileOpen)-用vb打开文件
End If
End If
End If
End Sub
vb 打开一个文件
VB打开文件有三种方法:
1.如果读取的是文本型文件(用记事本打开没有乱码的)，就是顺序文件读法：
open app.path "\index.pps" for input as #1
顺便说，app.path是反回当前程序路径的函数，故不能加引号，如果加了，若无其它错误，程序一定会报文件错误，因它找不到 "app.path\index.pps"这样的路径与文件
2.如果打开的是乱码，写什么完全看不懂(不是英文之类的看不懂，是乱),那就是二进制文件，可以用随机文件或二进制读取。
随机读取，如果知道文件数据存放格式/结构才能用：
open app.path "\index.pps" for random as #1
二进制文件读取：
open app.path "\index.pps" for binary as #1
但这open只是打开而已，相当于VB程序与文件建立传输通道，怎么读还是自已写代码。
******
这就是没反应的原因：光建立通道不传输，有何用？
******
具体的请自已参考VB的“文件”章节，这里以一个顺序读取文本文件
c:\a.txt(当然扩展名可以不是.txt,只要内容是文本就行),内容是以下文本：
1234567
abcdefg
I am a boy
我很帅
如果以一行一行顺序读出，可以写如下代码(写在form_load()也行)，有注释：
dim y as integer:y=freefile '取得空闲的文件号
dim ReadData as string '用来放读出的数据
open "c:\a.txt" for input as #y '打开文件
do
if eof(y) then exit do '如果读到文件末就退出此循环
line input #y,ReadData '从文件中读出一行并放入ReadData
msgbox readdata '显示读出的数据
loop
close #y '关闭文件
VB如何打开一个文本文件？
1、获取文本文件路径\x0d\x0a2、通过流的方式打开文本文件\x0d\x0a示例：\x0d\x0aDim MyString\x0d\x0aPrivate Sub Command1_Click() ’按钮事件\x0d\x0a Open App.Path + "\Myfile.txt" For Input As #1 '打开文本文件，读取。\x0d\x0a Do While Not EOF(1) '是否没到文件末尾\x0d\x0a Input #1, MyString '读取文件内容\x0d\x0a Loop\x0d\x0a Close #1\x0d\x0aEnd Sub-用vb打开文件
