VB导出EXCEL

　2012-09-17 20:47:53　来源：WEB开发网　闂傚倸鍊搁崐椋庢濮橆兗缂氱憸宥堢亱闂佸湱铏庨崰鏍不椤栫偞鐓ラ柣鏇炲€圭€氾拷

闂傚倸鍊搁崐椋庣矆娓氣偓楠炲鏁撻悩鎻掔€梺姹囧灩閻忔艾鐣烽弻銉︾厵闁规鍠栭。濂告煕鎼达紕校闁靛洤瀚伴獮鎺楀箣濠靛啫浜鹃柣銏⑶圭壕濠氭煙閻愵剚鐏辨俊鎻掔墛缁绘盯宕卞Δ鍐冣剝绻涘畝濠佺敖缂佽鲸鎹囧畷鎺戭潩閹典焦鐎搁梻浣烘嚀閸ゆ牠骞忛敓锟�

婵犵數濮烽弫鍛婃叏椤撱垹绠柛鎰靛枛瀹告繃銇勯幘瀵哥畼闁硅娲熷缁樼瑹閳ь剙岣胯鐓ら柕鍫濇偪濞差亜惟闁宠桨鑳堕崝锕€顪冮妶鍡楃瑐闁煎啿鐖奸崺濠囧即閵忥紕鍘梺鎼炲劗閺呮稒绂掕缁辨帗娼忛埡浣锋闂佽桨鐒﹂幑鍥极閹剧粯鏅搁柨鐕傛嫹闂傚倸鍊搁崐椋庢濮橆兗缂氱憸宥堢亱闂佸湱铏庨崰鏍不椤栫偞鐓ラ柣鏇炲€圭€氾拷　　闂傚倸鍊搁崐鐑芥嚄閼哥數浠氱紓鍌欒兌缁垶銆冮崨鏉戠厺鐎广儱顦崡鎶芥煏韫囨洖校闁诲寒鍓熷铏圭磼濡搫顫岄梺璇茬箲濮樸劑鍩€椤掍礁鍤柛鎾跺枎椤繐煤椤忓嫬鐎銈嗘礀閹冲酣宕滄导瀛樷拺闂侇偆鍋涢懟顖涙櫠椤斿墽纾煎璺猴功缁夎櫣鈧鍠栭…閿嬩繆濮濆矈妲烽梺绋款儐閹瑰洤螞閸愩劉妲堟繛鍡楃箲濞堟﹢姊绘担椋庝覆缂傚秮鍋撴繛瀛樼矤閸撶喖宕洪埀顒併亜閹烘垵鈧綊寮抽鍕厱閻庯綆浜烽煬顒傗偓瑙勬磻閸楀啿顕ｉ崐鐕佹Ь闂佸搫妫寸粻鎾诲蓟閵娾晜鍋嗛柛灞剧☉椤忥拷

核心提示： 经常听别人说导出EXCEL等，现在轮到自己做了，VB导出EXCEL，开始做的时候还是没有点思路，等做完了，<span style="font-size:18px;">'自定义函数'*'**函数名：toexcel'**输入：Gri

经常听别人说导出EXCEL等，现在轮到自己做了，开始做的时候还是没有点思路，等做完了，虽然是小小的一个小功能，还是很高兴的。分享一下吧。
机房收费系统中，好几个窗体都用到了导出为EXCEL，为了方便在模块中定义了一个函数，那个窗体需要就去调用，避免代码多而杂。

<span style="font-size:18px;">'自定义函数
'*************************************************************************
'**函 数 名：toexcel
'**输    入：Grid1(MSHFlexGrid) -
'**输    出：无
'**功能描述：数据导出到Excel表
'**作    者：刘腾腾
'**日    期：2012-09-17 19:54:27
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Public Sub toexcel(Grid1 As MSHFlexGrid)

    On Error GoTo aa:                                 '错误处理
    
    Dim i, j As Integer
    Dim ex As Object
    Dim exwbook As Object
    Dim exsheet As Object
    
    Set ex = CreateObject("Excel.Application")          '创建excel对象
    Set exwbook = ex.Workbooks.Add                      '打开文件
    ex.Visible = True                                   '对象可见
    Set exsheet = exwbook.Worksheets("sheet1")          '设定工作表
                                                        
    For i = 1 To Grid1.Rows                              '在表中显示所有的数据
        For j = 1 To Grid1.Cols
            exsheet.Cells(i, j) = Grid1.TextMatrix(i - 1, j - 1)
        Next j
    Next i

aa:
    Exit Sub

End Sub
</span>

在窗体中调用：

<span style="font-size:18px;">Private Sub cmdOutput_Click()  '输出
           
           '如果行数小于2，就没有数据，如果大于2，就调用函数输出导出excel表
            If Rechargeflexgrid.Rows < 2 Then
                   MsgBox "没有数据！", vbOKOnly + vbExclamation, "警告"
                   Exit Sub
            Else
            
                Call toexcel(Rechargeflexgrid)         '调用模块中定义的函数
            End If
           
End Sub</span>

出现的结果为：