Function ReadtxtFile(strPathName As String) As String
On Error GoTo Exit_Err
Dim strFile As String

Open strPathName For Input As #1
ReadtxtFile = ""
strFile = ""

Do While Not EOF(1)
Line Input #1, strFile ' = Input(1, #1)
if ReadtxtFile="" then
ReadtxtFile = strFile
else
ReadtxtFile = ReadtxtFile & vbCrLf & strFile
end if
Loop
Close #1

Exit Function
Exit_Err:
MsgBox Err.Description
Exit Function
End Function

调用方法：
Private Sub 命令4_Click()
Me.txt1 = ReadtxtFile("c:\file1.txt")
End Sub

(责任编辑：admin)

• ·Access 获取office的安装路径【函数】
• ·导入导出Excel(.Xlsx)或(.Xls)数据到SQ
• ·浅析Access与Office其他成员之间交流数
• ·Access2003设置压缩和修复数据库的方法
• ·Access2003设置启动窗体与恢复原始设置
• ·妙用Office合并列数据 快速完成报表
• ·对 Microsoft Office 命令栏进行更多编
• ·SQL Server日期计算
• ·SQL语法参考
• ·XLS与MDB文件格式互换全攻略
• ·在Access中调用Excel无法彻底关闭
• ·Access导出到Excel提速之法
• ·Access朗读任意文本/使Access真人发声
• ·解决ACCESS XP 粘贴数字到EXCEL XP会变
• ·用VBA代码下载网络上的文件
• ·把子窗体的内容复制到EXCEL（子窗体可