在VB中把EXCEL文件导入MSFLEXGRID

首先需要引用Excel库：

从"工程"菜单中选择"引用"栏；选择Microsoft Excel 11.0 Object Library（EXCEL2003），然后选择"确定"。表示在工程中要引用EXCEL类型库。



Private Sub Command1_Click()

Dim ExcelApp As Excel.Application

Set ExcelApp = CreateObject("excel.application")

ExcelApp.Workbooks.Open (App.Path & " est2.xls")

With MSFlexGrid1

.Rows = ExcelApp.Sheets(1).UsedRange.Rows.Count

.Cols = 4

For r = 0 To .Rows - 1

For c = 1 To .Cols

If c = 1 Then

.TextMatrix(r, c - 1) = Year(Date) & "-" & ExcelApp.Sheets(1).Cells(r + 1, c + 1) & "-" & ExcelApp.Sheets(1).Cells(r + 1, c)

Else

.TextMatrix(r, c - 1) = ExcelApp.Sheets(1).Cells(r + 1, c + 1)

End If

Next

Next

End With

ExcelApp.Quit

End Sub



Private Sub Command2_Click()

Open App.Path & "导出.txt" For Output As #1

With MSFlexGrid1

For r = 0 To .Rows - 1

For c = 0 To .Cols - 1

Print #1, .TextMatrix(r, c);

If c < .Cols - 1 Then Print #1, ",";

Next

Print #1,

Next

End With

Close #1

MsgBox "导出完毕"

End Sub