VB中MSFlexGrid控件 如何实现点击按钮导入文件

Dim str As String
Open "d:\test.txt" For Input As #1
str = ""
msflexgrid1.rows=1
Do Until EOF(1)
Line Input #1, str
str=replace(str,' ',vbtab)'如果你txt中是以空格做分隔符的话,用这个.如果用tab制表位分的话,这行就不用了.
msflexgrid1.add str
Loop
Close #1

从什么格式的文件导入你没说，其实很简单的，以EXCEL为例：
dim xlsApp As new Excel.Application
Dim xlBook As Excel.Workbook
Dim ws As Excel.Worksheet
set xlBook=xlsApp.Workbooks.Open(“d:\test.xls")
set ws=xlBook.sheets(1)
dim r as long
dim c as long
r=2 ’假设从第二行导入
wiith MSFlexGrid1
'假设导入的表格数据中，A列的值不为空
while len(trim(ws.cells(r,1))>0
for c=1 to 10
.TextMatrix(r, c)=ws.cells(r,c)
next
r=r+1
wend
end with
xlsApp.quit
msgbok "OK"

大体思路就是这样，如果从文本文件导入的话，先按行读入文本，再用Split函数将字符串复制到一个数组中，然后写入表格:
MSFlexGrid1.TextMatrix(R, c)= 数组(c)