通过点击一个按钮来实现一个文件的读取？

Question

当点击一个按钮的时候，出现一个选择打开文件的对话框，就象Windows 对话框一样的。然后就选择那个文件开始读取文件信息
这个功能要怎么实现呀？还望各位大侠指教！

Answer 1

'把文本文档读到Text里：
Private Sub Command1_Click()
    With CommonDialog1
        .DialogTitle = "读取文件"
        .Filter = "*.txt|*.txt"
        .InitDir = App.Path
        .ShowOpen
        backUpFileName = CommonDialog1.FileName
    End With
    If Dir(CommonDialog1.FileName)="" Then Exit Sub
    Dim strTemp As String
    Open CommonDialog1.FileName For Input As #1
    Do While Not Eof(1)
        Line Input #1,strTemp
        Text1.Text=Text1.Text & strTemp & vbCrlf
    Loop
    Close #1    
End Sub

Answer 2

'把文本文档读到Text里：
Private Sub Command1_Click()
    With CommonDialog1
        .DialogTitle = "读取文件"
        .Filter = "*.txt|*.txt"
        .InitDir = App.Path
        .ShowOpen
    End With
    If Dir(CommonDialog1.FileName)="" Then Exit Sub
    Dim strTemp As String
    Open CommonDialog1.FileName For Input As #1
    Do While Not Eof(1)
        Line Input #1,strTemp
        Text1.Text=Text1.Text & strTemp & vbCrlf
    Loop
    Close #1    
End Sub

Answer 3

在一个EXCEL工作薄中的一个表里实现打开另一个EXCEL文件并同时要读取里面的数据信息！

Answer 4

.DialogTitle = "读取文件"
这里报错，

Answer 5

你没添加CommonDialog控件到窗体上把？
按Ctrl+T，然后在列表里的Microsoft Common Dialog Control6.0钩上，点确定后在左边的工具栏里就有CommonDialog控件了，你把它添加到窗体上