首先需要引用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 & "導(dǎo)出.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 "導(dǎo)出完畢"

End Sub