機房中有幾個窗體用到了匯出excel的功能,但是要進行這一步,就需要引用,這篇部落格就來分享一下具體步驟。
一、引用部件
工程–引用–
引用成功這個部件之後,進行第二步
二、、**編寫
具體**如下:
dim excelbook as excel.workbook '定義excel**工作簿
dim excelsheet as excel.worksheet '定義excel**工作表
dim i as integer '定義excel表中的行變數
dim j as integer '定義excel表中的列變數
set excelsheet = excelbook.worksheets(1) '建立乙個工作表
doevents
'因以下**執行時間較長,所以轉讓控制權,讓作業系統處理其他事件,避免操作不當誤認為宕機
if msflexgrid.rows <= 1 then
msgbox "沒有可匯出資料", vbokonly + vbexclamation, "提示"
end if
with msflexgrid
for i = 0 to .rows - 1 '迴圈新增行內容
for j = 0 to .cols - 1 '迴圈新增列內容
doevents
next j
next i
end with
msgbox "匯出成功!", vbokonly + vbexclamation, "提示"
set excelbook = nothing
set excelsheet = nothing
只要引用成功那個部件,然後寫出正確**,就可以順利匯出了。
第一次機房收費系統 幽夢
經過了分析需求 基本配置。終於開始敲機房了。第一步就是敲模組,我只能按照學生資訊管理系統的模組照葫蘆畫瓢。稍微改改,雖然當時整學生時把模組的 一句一句的查了一遍,但到現在還是不懂。不管怎樣,接著進行吧。於是,正式開始了!0.0 登入 在敲登入窗體時,還是要參考學生資訊管理系統。這第一句 就讓我一頭霧...
第一次機房收費系統總結
1.sub與function的區別 1 sub 過程,不需要返回值 function 函式,可以帶返回值 2 語法 sub subname 引數1,引數2,end sub function functionname 引數1,引數2,functionname 返回值 end function 2.如何...
第一次機房收費系統 總攻
前言 今天終於驗完了機房收費系統,驗完後感覺如釋重負 終於結束了。這次的驗專案相比上次的完善功能相比,更多的是對邏輯 使用者體驗的要求,所以這次的驗證相比上次來說要重要的多 因為後面我們會不斷進行機房收費系統的重構,而第一遍的邏輯若能梳理好,那麼後面不僅會輕鬆,更會少走不必要的彎路。首先我先來總結一...