第一次機房收費系統 匯出Excel表

2021-09-29 23:31:22 字數 1058 閱讀 6490

機房中有幾個窗體用到了匯出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.如何...

第一次機房收費系統 總攻

前言 今天終於驗完了機房收費系統,驗完後感覺如釋重負 終於結束了。這次的驗專案相比上次的完善功能相比,更多的是對邏輯 使用者體驗的要求,所以這次的驗證相比上次來說要重要的多 因為後面我們會不斷進行機房收費系統的重構,而第一遍的邏輯若能梳理好,那麼後面不僅會輕鬆,更會少走不必要的彎路。首先我先來總結一...