?? ? ? ? ? ? ??機(jī)房收費系統(tǒng)在緩慢的進(jìn)行著，很多功能都需要一點一點的實現(xiàn)，通過上網(wǎng)查找一些實現(xiàn)功能的方法，也都實現(xiàn)了，這個是實現(xiàn)將MSHFLEXGRID表格中數(shù)據(jù)導(dǎo)入到Excel中，方便保存起來和對數(shù)據(jù)進(jìn)行處理。

?? ? ? ? 實現(xiàn)這個導(dǎo)入數(shù)據(jù)功能并不向想象中的那么難，就是用代碼來模仿我們手動導(dǎo)入的過程，用來實現(xiàn)，具體代碼如下：

?? ? ? ? 首先，我是把代碼卸載導(dǎo)出按鈕的單擊事件里了，還可以寫成一個函數(shù)，進(jìn)行調(diào)用。

Private Sub cmdExcel_Click()'將MSHFLEXGRID表格中的數(shù)據(jù)導(dǎo)入到Excel電子表格中Dim TempExcel As Excel.Application '聲明一個EXCEL應(yīng)用程序?qū)ο驞im TempSheet As Excel.Worksheet '聲明一個EXCEL工作簿Dim intI As Integer '循環(huán)變量Dim intJ As Integer '循環(huán)變量'先判斷MSHFLEXGRIDRECORD表中有沒有數(shù)據(jù)If MSHFlexGridRecord.Rows > 1 Then'實例化Excel應(yīng)用程序，并使其可見Set TempExcel = New Excel.ApplicationTempExcel.Application.Visible = True'在Excel應(yīng)用程序中中增加一個工作簿TempExcel.Workbooks.Add (1)'實例化一個表單，并使其成為Excel程序中活動工作簿下的活動表單Set TempSheet = TempExcel.ActiveWorkbook.ActiveSheet'將MSHFLEXGRID表格中的數(shù)據(jù)，導(dǎo)入到活動表單中For intI = 0 To MSHFlexGridRecord.Rows - 1For intJ = 0 To MSHFlexGridRecord.Cols - 1TempSheet.Cells(intI + 1, intJ + 1) = MSHFlexGridRecord.TextMatrix(intI, intJ)Next intJNext intIElse'表中沒有數(shù)據(jù)MsgBox "沒有可導(dǎo)出的數(shù)據(jù)！", vbOKOnly + vbExclamation, "警告"Exit SubEnd IfEnd Sub?? ? ? ? ? 還有一種方法是寫一個導(dǎo)出函數(shù)，函數(shù)的主要功能代碼和上面的一樣，只是我想了半天也不知道從何寫起，寫函數(shù)要確定包含哪些參數(shù)、返回值問題，想了一下應(yīng)該有一個參數(shù)是窗體類型，因為，我們需要確定在哪個窗體中來調(diào)用，其次，要在這個窗體中可以訪問MSHFLEXGRID控件，可以利用窗體控件數(shù)據(jù)Controls()集合和Form（）集合。

'將下列代碼寫在到一個模塊里面，進(jìn)行調(diào)用，調(diào)用方法：Call Export(Me,"MSHFLEXGRID")Public Sub Export(formname As Form, flexgridname As String)dim xlapp as object '保存excel.application對象dim xlbook as object '保存excel.workbook對象dim xlsheet as object '保存excel.worksheet對象 '鼠標(biāo)指針的形狀變?yōu)樯陈┬?#xff0c;表明正在導(dǎo)入數(shù)據(jù)Screen.Mousepointer=vbhouglass'錯誤處理過程 on error goto Err_PROCset xlapp=createobject("excel.application")set xlbook=xlapp.workbooks.addset xlsheet =xlbook.worksheets(1)'開始將數(shù)據(jù)導(dǎo)入到Excel中dim i as longdim j as integerwith formname.controls(flexgridname)for i=0 to .rows-1for j=0 to .cols-1xlsheet.cells(i+1,j+1).value="'" & .textmatrix(i,j)next jnext i end withxlapp.visible=truescreen.mousepointer=vbdefaultexit sub Err_PROC'鼠標(biāo)回復(fù)默認(rèn)形狀screen.mousepointer=vbdefaultmsgbox "請確認(rèn)您的電腦已安裝Excel!"，vbexclamaition,"提示"end sub?? ? ? ? ? 程序中每個功能看似難，只要我們一點一點的分析，就會變的簡單，離做完收費系統(tǒng)還有一段距離，還有很多功能需要去實現(xiàn)，相信我們會把它做完。

?

轉(zhuǎn)載于:https://www.cnblogs.com/lilongsheng/archive/2011/08/12/3226154.html

總結(jié)

以上是生活随笔為你收集整理的将MSHFLEXGRID表格中数据导入Excel方法的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。