VB怎样调用打开对话框选择文件，并将选择的txt文件内容导入到ListView控件指定列

添加Command、ListView和CommonDialog：

Private Sub Form_Load()

ListView1.ListItems.Clear '清空列表

ListView1.ColumnHeaders.Clear '清空列表头

ListView1.View = lvwReport '设置列表显示方式

ListView1.GridLines = True '显示网络线

ListView1.LabelEdit = lvwManual '禁止标签编辑

ListView1.FullRowSelect = True '选择整行

ListView1.ColumnHeaders.Add , , "111", 1000

ListView1.ColumnHeaders.Add , , "222", 1000

ListView1.ColumnHeaders.Add , , "333", 1000

ListView1.ColumnHeaders.Add , , "网址", 5000

End Sub

Private Sub Command1_Click()

CommonDialog1.FileName = App.Path

CommonDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*|"

CommonDialog1.DialogTitle = " 打开文件" 'd出窗体的标题

CommonDialog1.ShowOpen

Dim i As Integer

i = 1

Open CommonDialog1.FileName For Input As #1

Do While Not EOF(1)

Line Input #1, strLine

ListView1.ListItems.Add , , i

ListView1.ListItems(i).SubItems(1) = ""

ListView1.ListItems(i).SubItems(2) = ""

ListView1.ListItems(i).SubItems(3) = strLine

i = i + 1

Loop

Close #1

End Sub

方法一:

打开目标数据库，选择文件-获取外部数据-导入，

然后在d出的窗口中，选择源文件，然后挑选你想要导入的数据即可实现

方法二:

通过sql

server数据导入导出工具实现，详情参阅sql帮助

If File = "" Then

MsgBox "没有选择文件！", vbOKOnly, "文件选择"

Exit Sub

elseif right$(File,3)<>"tou"

MsgBox "请检查文件类型",0,"文件选择"

Exit Sub

Else

。

。

。

。

---