機房---不同窗體呼叫模組中匯出excel表格的程式碼
阿新 • • 發佈:2018-11-25
第一步:
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