怎么從excel中隨機抽取數據？

1。如何實現VB與EXCEL的無縫連接

VB 是常用的應用軟件開發工具之一，由于VB的報表功能有限，而且一旦報表格式發生變化，就得相應修改程序，給應用軟件的維護工作帶來極大的不便。因為有很多程序員現在已經充分利用Excel的強大報表功能來實現。

但由于VB與Excel分別屬于不同的應用系統，如何把它們有機地結合在一起，是一個值得我們研究的課題。

筆者在軟件開發工作中，對VB的自動化功能和Excel的宏功能進行了一定的研究，實現了VB與Excel的有機結合。現提出來與大家探討。

一、VB讀寫Excel表

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。CloseTrue ’關閉工作薄

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脫節。

二、Excel的宏功能

Excel 提供了一個Visual Basic編輯器，打開Visual Basic編輯器，其中有一工程屬性窗口，點擊右鍵菜單的“插入模塊”，則增加一個“模塊1”，在此模塊中可以運用Visual Basic語言編寫函數和過程并稱之為宏。

其中，Excel有兩個自動宏：一個是啟動宏（Sub Auto_Open()），另一個是關閉宏（Sub Auto_Close()）。它們的特性是：當用Excel打開含有啟動宏的工作薄時，就會自動運行啟動宏，同理，當關閉含有關閉宏的工作薄時就會自動運行關閉宏。

但是通過VB的自動化功能來調用Excel工作表時，啟動宏和關閉宏不會自動運行，而需要在VB中通過命令 xlBook。RunAutoMacros（xlAutoOpen）和xlBook。RunAutoMacros（xlAutoClose）來運行啟動宏和關閉宏。

三、VB與Excel的相互溝通：

充分利用Excel的啟動宏和關閉宏，可以實現VB與Excel的相互溝通，其方法如下：

在Excel的啟動宏中加入一段程序，其功能是在磁盤中寫入一個標志文件，同時在關閉宏中加入一段刪除此標志的程序。

VB程序在執行時通過判斷此標志文件存在與否來判斷Excel是否打開，如果此標志文件存在，表明Excel對象正在運行，應該禁止其它程序的運行。如果此標志文件不存在，表明Excel對象已被關閉，此時如果要使用Excel對象運行，必須重新創建Excel對象。

四、舉例

1、在VB中，建立一個FORM，在其上放置兩個命令按鈕，將Command1的Caption屬性改為Excel，Command2的Caption屬性改為End。然后在其中輸入如下程序：

Dim xlApp As Excel。

Application '定義Excel類

Dim xlBook As Excel。Workbook '定義工作薄類

Dim XlSheet As Excel。Worksheet '定義工作表類

Private Sub Command1_Click() '打開Excel過程

If Dir（“D:\temp\ ”）= “”Then '判斷Excel是否打開

Set xlApp = CreateObject（“Excel。

Application”） '創建Excel應用類

xlApp。Visible = True '設置Excel可見

Set xlBook = xlApp。Workbooks。Open（“D:\temp\bb。xls”） '打開Excel工作薄

Set xlSheet = xlBook。

Worksheet(1) '打開Excel工作表

xlSheet。Activate '激活工作表

xlSheet。Cells(1，1) = “abc” '給單元格1行駛列賦值

xlBook。RunAutoMacros（xlAutoOpen） '運行Excel中的啟動宏

Else

MsgBox（“Excel已打開”）

End If

End Sub

Private Sub Command2_Click()

If Dir（“D:\temp\ ”）<> “” Then '由VB關閉Excel

xlBook。

RunAutoMacros（xlAutoClose） '執行Excel關閉宏

xlBook。Close（True）關閉Excel工作薄

xlApp。Quit '關閉Excel

End If

Set xlApp = Nothing '釋放Excel對象

End

End Sub

2、在D盤根目錄上建立一個名為temp的子目錄，在temp目錄下建立一個名為“bb。

xls”的Excel文件。

3、在“bb。xls”中打開Visual Basic編輯器，在工程窗口中點鼠標鍵選擇插入模塊，在模塊中輸入以下程序存盤：

Sub auto_open()

Open “d:\temp\ ” For Output As #1

Close #1

End Sub

Sub auto_close()

Kill “d:\temp\ ”

End Sub

4、運行VB程序，點擊Excel按鈕可以打開Excel系統，打開Excel系統后，VB程序和Excel分別屬兩個不同的應用系統，均可同時進行操作，由于系統加了判斷，因此在VB程序中重復點擊Excel按鈕時會提示Excel已打開。

如果在Excel中關閉Excel后再點Excel按鈕，則會重新打開Excel。而無論Excel打開與否，通過VB程序均可關閉Excel。這樣就實現了VB與Excel的無縫連接。

2。用VB。NET結合Excel設計統計生產報表

用EXCEL做企業生產報表的理由

Excel表格生成和公式設置十分強大便利，是一個強有力的信息分析與處理工具。

特別是EXCEL的公式、函數、VBA語言，功能極其強大。我試用過其他電子表格軟件，在功能上和EXCEL根本沒有可比性。

Visual Studio ，NET也同樣是MicroSoft的產品，Visual Studio ，NET調用EXCEL做企業報表十分方便。

證明當時我選Visual Studio ，NET作為首選開發工具是正確的。

軟件構思

先在EXCEL里定制好名為《統計表》的樣表（模版），，在樣表中設置好各種格式，填寫好固定項。

在窗體上放很三個控件，兩個DateTimePicker控件，用來選擇開始統計時間和結束統計時間。

一個Button以啟動程序。

軟件欲實現的功能是：點擊Button1，自動查找符合日期符合日期范圍的生產計劃工作表，然后利用SortedList統計各個辦事處的計劃數量和未完成數量，及各個產品型號的計劃數量和未完成數量。再把SortedList的數據讀出寫到《統計表》中。

這里要注意的是，各個生產報表格式必須規范統一，因為程序是按照固定單元格位置讀取數據的。

SortedList類

除了具備VB，NET調用EXCEL的基礎知識外，本例主要用到SortedList類。

SortedList類表示鍵/值對的集合，這些鍵和值按鍵排序并可按照鍵和索引訪問。

SortedList 是 Hashtable 和 Array 的混合。當使用 Item 索引器屬性按照元素的鍵訪問元素時，其行為類似于 Hashtable。當使用 GetByIndex 或 SetByIndex 按照元素的索引訪問元素時，其行為類似于 Array。

SortedList 在內部維護兩個數組以將數組存儲到列表中；即，一個數組用于鍵，另一個數組用于相關聯的值。每個元素都是一個可作為 DictionaryEntry 對象進行訪問的鍵/值對。鍵不能為空引用（Visual Basic 中為 Nothing），但值可以。

SortedList 的容量是列表可擁有的元素數。隨著向 SortedList 中添加元素，容量通過重新分配按需自動增加。可通過調用 TrimToSize 或通過顯式設置 Capacity 屬性減少容量。

SortedList 的元素將按照特定的 IComparer 實現（在創建 SortedList 時指定）或按照鍵本身提供的 IComparable 實現并依據鍵來進行排序。

不論在哪種情況下，SortedList 都不允許重復鍵。

VB，NET結合EXCEL統計生產報表

以下是實現代碼，供參考。為方便初學者，部份地方加以注釋。

現在讓我們來試用一下，先選擇開始統計時間和結束統計時間，點擊Button1，程序就自動統計出各個辦事處的及各個產品的有關計劃數量及未完成數量，是不是很方便。

。