一个简单导入txt文本

fxtest · 发表于 2007-3-7 21:41:00

在大家的帮助下，把我想要的效果做了出来。还是想大家再帮一下，在浏览打开里，只能打开ＴＸＴ文本。多谢了！

fxtest · 发表于 2007-3-8 20:21:00

多谢了！

andymark · 发表于 2007-3-7 22:06:00

Set dlg = Application.FileDialog(1)
With dlg
      .AllowMultiSelect = False
      .Filters.Clear
      .Filters.Add "文本文件", "*.txt"
      .Show
End With
If dlg.SelectedItems.Count > 0 Then
      Me.Text4 = dlg.SelectedItems(1)
End If
Set dlg = Nothing

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[与其它组件] 一个简单导入txt文本

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)