流程圖

賦值的就不了啦，首先問題彙總一下：

問題一：

• 出現原因：

不能分配記憶體，很簡單，沒有位置了，會發現控制元件的資料都是重複的，資料在不斷的重新整理不斷地填在控制元件中，超過了能給予它的記憶體就會報錯,它可以容納350000個單元格，舉個例子，這個控制元件就是個盒子，填進去的每一條資料都是一個物品，現在它被填滿了，所以就不能再分配記憶體啦。

• 解決方法
  缺少了mrc.MoveNext，所以它會不斷的迴圈，不斷的賦值只到裝不下了，那我們要做什麼呢，可以理解為讓它別佔個這塊兒地，讓它挪挪就搞定啦

問題二：

• 出現原因

MSFlexGrid控制元件的單元格太小了，資料顯示不完全。

• 解決辦法
  太小了怎麼辦，給他加寬以容納資料。設定單元格寬度用ColWidth屬性即可。

問題三：

• 問題描述：
  通過引用excel.exe找不到。

• 解決辦法
  通過瀏覽來手動找到excel.exe。那麼怎麼快速的找到自己的excel.exe呢？（因為每個人的安裝位置不同相應的excel.exe的位置也不同。最準確的方法就是找到自己電腦中的所在，不要一味的糾結別人的路徑你的咋就找不到）
  方法一：
  可以通過我的計算機搜尋此電腦，但是它好慢啊
  
  方法二：
  通過win搜尋
  
  右擊選擇----開啟檔案所在位置即可
  

問題四：

• 問題描述：如何匯出excel表
  -流程圖
  
  首先需要宣告我們需要的變數：

 Dim xlApp As New Excel.Application        '宣告Excel物件
    Dim xlBook As Excel.Workbook              '宣告工作簿物件
    Dim xlSheet As Excel.Worksheet            '宣告工作表單
    Dim i As Integer '定義橫座標
    Dim j As Integer '定義縱座標

判斷是否有記錄可匯出：

If myFlexgrid.Text = "" Then            '判斷是否有記錄可以匯出
        MsgBox "沒有記錄可匯出！", 48, "警告"
 

在有記錄的前提下建立excel表，並賦值

Set xlApp = CreateObject("excel.application")     '呼叫execel程式
        Set xlBook = xlApp.Workbooks.Add(1)               '建立新的空白簿
        Set xlSheet = Excel.ActiveWorkbook.ActiveSheet    '建立新的工作表單
            For i = 0 To myFlexgrid.Rows - 1   '遍歷所有的行         '填入資料
            For j = 0 To myFlexgrid.Cols - 1  '遍歷所有的列
                xlSheet.Cells(i + 1, j + 1) = myFlexgrid.TextMatrix(i, j) '建立新單元格，並新增FlexGrid中的內容
            Next j
            Next i

儲存匯出的excel表

xlApp.ActiveWorkbook.SaveAs App.Path & "\學生查詢上機記錄.xls"         '表格儲存路徑
        xlApp.ActiveWorkbook.Saved = True                                                      '儲存表格
        MsgBox "匯出完成！", 48, "提示"                       '儲存成功提示資訊
        xlApp.Visible = True         '顯示Excel表格
        Set xlApp = Nothing          '交還控制給Excel