第一步：

Public c As Form

第二步：注意c的位置

Public Sub export()
    Dim xlapp As Excel.Application          '宣告excel物件
    Dim xlbook As Excel.Workbook            '宣告工作簿物件
    Dim xlsheet As Excel.Worksheet          '宣告工作表
    
    
    Dim i As Long
    Dim j As Long
    
    
    Set xlapp = CreateObject("excel.application")        '建立應用程式
    Set xlbook = xlapp.Workbooks.Add                     '建立新的空白工作簿
    Set xlsheet = xlbook.Worksheets(1)                   '設定應用表
    
    
    xlapp.Rows(1).Font.Bold = True     '修改字型
     For i = 0 To c.myFlexgrid.Rows - 1        '通過迴圈來新增控制元件中的資料到Excel表中
        For j = 0 To c.myFlexgrid.Cols - 1    '由於第一行是表頭，所以新增資料從第二行開始。
            xlsheet.Cells(i + 1, j + 1) = "'" & c.myFlexgrid.TextMatrix(i, j)
        Next j
    Next i
    xlapp.Visible = True
End Sub
 

第三步：在你的各個窗體中新增以下的資料，set c=你想要呼叫的窗體

Private Sub cmdExport_Click()
   	
   	Set c = frmInquiryLineRecord
  	'匯出資料到excel表中
   	Call export
   
  
End Sub