重慶分公司,新征程啟航
為企業提供網站建設、域名注冊、服務器等服務
為企業提供網站建設、域名注冊、服務器等服務
可以在窗體上放一個Lable控件,取名叫Lable1, 那么實現方式就是: private sub form_load() Lable1.Text="今天天氣很好"; end sub 你可以試試!
創新互聯主營吳川網站建設的網絡公司,主營網站建設方案,重慶App定制開發,吳川h5微信小程序搭建,吳川網站營銷推廣歡迎吳川等地區企業咨詢
一、VB讀寫EXCEL表:
能獲取到表的行數的代碼:xlSheet2.UsedRange.Rows.Count
VB本身提自動化功能可以讀寫EXCEL表,其方法如下:
1、在工程中引用Microsoft
Excel類型庫:
從"工程"菜單中選擇"引用"欄;選擇Microsoft
Excel
9.0
Object
Library(EXCEL2000),然后選擇"確定"。表示在工程中要引用EXCEL類型庫。
2、在通用對象的聲明過程中定義EXCEL對象:
Dim
xlApp
As
Excel.Application
Dim
xlBook
As
Excel.WorkBook
Dim
xlSheet
As
Excel.Worksheet
3、在程序中操作EXCEL表常用命令:
Set
xlApp
=
CreateObject("Excel.Application")
'創建EXCEL對象
Set
xlBook
=
xlApp.Workbooks.Open("文件名")
'打開已經存在的EXCEL工件簿文件
xlApp.Visible
=
True
'設置EXCEL對象可見(或不可見)
Set
xlSheet
=
xlBook.Worksheets("表名")
'設置活動工作表
xlSheet.Cells(row,
col)
=值'給單元格(row,col)賦值
xlSheet.PrintOut
'打印工作表
xlBook.Close
(True)
'關閉工作簿
xlApp.Quit
'結束EXCEL對象
Set
xlApp
=
Nothing
'釋放xlApp對象
xlBook.RunAutoMacros
(xlAutoOpen)
'運行EXCEL啟動宏
xlBook.RunAutoMacros
(xlAutoClose)
'運行EXCEL關閉宏
4、在運用以上VB命令操作EXCEL表時,除非設置EXCEL對象不可見,否則VB程序可繼續執行其它操作,也能夠關閉EXCEL,同時也可對EXCEL進行操作。但在EXCEL操作過程中關閉EXCEL對象時,VB程序無法知道,如果此時使用EXCEL對象,則VB程序會產生自動化錯誤。形成VB程序無法完全控制EXCEL的狀況,使得VB與EXCEL脫節。
1。選擇工作表左上角的“全選”按鈕,選定所有單元格,選擇“審閱”選項卡中的“保護單元格”命令,取消所有單元格鎖定。
2。再選擇不允許填充內容的單元格區域,選擇“審閱”選項卡中的“保護單元格”命令,將不允許修改的單元格鎖定。
3。選擇“審閱”選項卡中的“保護工作表”命令,在彈出的對話框中“確定”即可(如果不想讓他人修改,這里可以設置密碼)。