包含vb.net與exce的詞條

vb.net怎么訪問excel表格

我的是2007版本，其它類似

創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供長寧網(wǎng)站建設(shè)、長寧做網(wǎng)站、長寧網(wǎng)站設(shè)計(jì)、長寧網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)與制作、長寧企業(yè)網(wǎng)站模板建站服務(wù)，10多年長寧做網(wǎng)站經(jīng)驗(yàn)，不只是建網(wǎng)站，更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。

1.在工程中引用Microsoft Excel 12.0 Object Library

2、在通用對象的聲明過程中定義EXCEL對象：

Dim xlApp As Excel.Application

Dim xlBook As Excel.WorkBook

Dim xlSheet As Excel.Worksheet

3、在程序中操作VB.NET EXCEL常用命令：

Set xlApp = CreateObject("Excel.Application") '創(chuàng)建EXCEL對象

Set xlBook = xlApp.Workbooks.Open("文件名") '打開已經(jīng)存在的EXCEL工件簿文件

xlApp.Visible = True '設(shè)置EXCEL對象可見（或不可見）

Set xlSheet = xlBook.Worksheets("表名") '設(shè)置活動工作表

xlSheet.Cells(row, col) =值 '給單元格（row,col）賦值

xlSheet.PrintOut '打印工作表

xlBook.Close (True) '關(guān)閉工作簿

xlApp.Quit '結(jié)束EXCEL對象

Set xlApp = Nothing '釋放xlApp對象

xlBook.RunAutoMacros (xlAutoOpen) '運(yùn)行EXCEL啟動宏 xlBook.RunAutoMacros (xlAutoClose) '運(yùn)行EXCEL關(guān)閉宏

還有很多，這個要自己慢慢摸索

VB.NET操作訪問Excel

1、office2003的驅(qū)動應(yīng)該是：Microsoft.Jet.OleDb.4.0.你必須加引用這個包。

2、這個是office自帶的驅(qū)動，不需要打包了，客戶機(jī)器上裝了office就OK了。

根據(jù)客戶機(jī)子的office版本，加載對應(yīng)的驅(qū)動吧。

希望能幫到你。有問題繼續(xù)追問吧。

用VB.NET結(jié)合Excel設(shè)計(jì)統(tǒng)計(jì)生產(chǎn)報(bào)表

用EXCEL做企業(yè)生產(chǎn)報(bào)表的理由 Excel表格生成和公式設(shè)置十分強(qiáng)大便利 是一個強(qiáng)有力的信息分析與處理工具 特別是EXCEL的公式 函數(shù) VBA語言 功能極其強(qiáng)大 我試用過其他電子表格軟件 在功能上和EXCEL根本沒有可比性 Visual Studio NET也同樣是MicroSoft的產(chǎn)品 Visual Studio NET調(diào)用EXCEL做企業(yè)報(bào)表十分方便 證明當(dāng)時(shí)我選Visual Studio NET作為首選開發(fā)工具是正確的 軟件構(gòu)思 先在EXCEL里定制好名為《統(tǒng)計(jì)表》的樣表（模版） 在樣表中設(shè)置好各種格式 填寫好固定項(xiàng) 在窗體上放很三個控件 兩個DateTimePicker控件 用來選擇開始統(tǒng)計(jì)時(shí)間和結(jié)束統(tǒng)計(jì)時(shí)間 一個Button以啟動程序 軟件欲實(shí)現(xiàn)的功能是 點(diǎn)擊Button 自動查找符合日期符合日期范圍的生產(chǎn)計(jì)劃工作表 然后利用SortedList統(tǒng)計(jì)各個辦事處的計(jì)劃數(shù)量和未完成數(shù)量 及各個產(chǎn)品型號的計(jì)劃數(shù)量和未完成數(shù)量 再把SortedList的數(shù)據(jù)讀出寫到《統(tǒng)計(jì)表》中 這里要注意的是 各個生產(chǎn)報(bào)表格式必須規(guī)范統(tǒng)一 因?yàn)槌绦蚴前凑展潭▎卧裎恢米x取數(shù)據(jù)的 SortedList類 除了具備VB NET調(diào)用EXCEL的基礎(chǔ)知識外 本例主要用到SortedList類 SortedList類表示鍵/值對的集合 這些鍵和值按鍵排序并可按照鍵和索引訪問 SortedList 是 Hashtable 和 Array 的混合 當(dāng)使用 Item 索引器屬性按照元素的鍵訪問元素時(shí) 其行為類似于 Hashtable 當(dāng)使用 GetByIndex 或 SetByIndex 按照元素的索引訪問元素時(shí) 其行為類似于 Array SortedList 在內(nèi)部維護(hù)兩個數(shù)組以將數(shù)組存儲到列表中 即 一個數(shù)組用于鍵 另一個數(shù)組用于相關(guān)聯(lián)的值 每個元素都是一個可作為 DictionaryEntry 對象進(jìn)行訪問的鍵/值對 鍵不能為空引用（Visual Basic 中為 Nothing） 但值可以 SortedList 的容量是列表可擁有的元素?cái)?shù) 隨著向 SortedList 中添加元素 容量通過重新分配按需自動增加 可通過調(diào)用 TrimToSize 或通過顯式設(shè)置 Capacity 屬性減少容量 SortedList 的元素將按照特定的 IComparer 實(shí)現(xiàn)（在創(chuàng)建 SortedList 時(shí)指定）或按照鍵本身提供的 IComparable 實(shí)現(xiàn)并依據(jù)鍵來進(jìn)行排序 不論在哪種情況下 SortedList 都不允許重復(fù)鍵 VB NET結(jié)合EXCEL統(tǒng)計(jì)生產(chǎn)報(bào)表 以下是實(shí)現(xiàn)代碼 供參考 為方便初學(xué)者 部份地方加以注釋 Private Sub Form _Load(ByVal sender As Object ByVal e As System EventArgs) Handles MyBase LoadDateTimePicker MaxDate = Date NowDateTimePicker MinDate = # / / #DateTimePicker MaxDate = Date NowDateTimePicker MinDate = # / / #End SubPrivate Sub 灶具分析統(tǒng)計(jì)()Call killEXCEL()Dim excelApp As New Excel ApplicationDim 佳尼 灶具生產(chǎn)計(jì)劃 As Excel WorkbookDim 行號 As Integer = Dim 列號 As Integer = Dim 辦事處計(jì)劃數(shù)統(tǒng)計(jì) As New SortedListDim 辦事處完成數(shù)統(tǒng)計(jì) As New SortedListDim 型號計(jì)劃數(shù)統(tǒng)計(jì) As New SortedListDim 型號完成數(shù)統(tǒng)計(jì) As New SortedListDim 統(tǒng)計(jì)表 As Excel Worksheet Try佳尼 灶具生產(chǎn)計(jì)劃 = excelApp Workbooks Open( E:\my documents\生產(chǎn)計(jì)劃\佳尼 灶具生產(chǎn)計(jì)劃 xls )統(tǒng)計(jì)表 = CType(佳尼 灶具生產(chǎn)計(jì)劃 Worksheets( 統(tǒng)計(jì)表 ) Excel Worksheet)統(tǒng)計(jì)表 Cells( ) value = DateTimePicker Value ToShortDateString 統(tǒng)計(jì)開始日期統(tǒng)計(jì)表 Cells( ) value = DateTimePicker Value ToShortDateString 統(tǒng)計(jì)結(jié)束日期統(tǒng)計(jì)表 Range( c :z ) Value = 先清空統(tǒng)計(jì)表中原來有關(guān)數(shù)據(jù)統(tǒng)計(jì)表 Range( c :z ) Value = Dim 生產(chǎn)計(jì)劃表 As Excel WorksheetFor Each 生產(chǎn)計(jì)劃表 In 佳尼 灶具生產(chǎn)計(jì)劃 Worksheets 遍歷生產(chǎn)計(jì)劃表If Strings Left(生產(chǎn)計(jì)劃表 Name ) = Or Strings Left(生產(chǎn)計(jì)劃表 Name ) = Then 如果是 或 開頭的表名 因生產(chǎn)計(jì)劃表名是 或 開頭 MsgBox(生產(chǎn)計(jì)劃表 Name)行號 = 生產(chǎn)計(jì)劃表中生產(chǎn)數(shù)據(jù)從第四行開始列號 = 第 列是計(jì)劃下發(fā)日期 從計(jì)劃下發(fā)日期判斷是否是所要數(shù)據(jù)Dim 臨時(shí)行號 As Integer = 求得工作表中最后一行所在的行號 從第四行開始往下計(jì)算While 生產(chǎn)計(jì)劃表 Cells(臨時(shí)行號 列號) value Nothing MsgBox(生產(chǎn)計(jì)劃表 Cells(行號 列號) value 行號)臨時(shí)行號 += End While臨時(shí)行號 = 得到生產(chǎn)計(jì)劃表中 最后數(shù)據(jù)行所在的行號 MsgBox(臨時(shí)行號)For 行號 = To 臨時(shí)行號 生產(chǎn)計(jì)劃標(biāo)準(zhǔn)格式行號從 開始 到工作表中最后一行If (CDate(DateTimePicker Value ToShortDateString) = CDate(生產(chǎn)計(jì)劃表.Cells(行號, 列號).value)) And (CDate(DateTimePicker2.Value.ToShortDateString) = CDate(生產(chǎn)計(jì)劃表 Cells(行號 列號) value)) Then 如果日期在規(guī)定范圍內(nèi) 灶具各城市分布情況Dim 城市 As String = 生產(chǎn)計(jì)劃表 Cells(行號 ) value 第 列是城市名稱Dim 計(jì)劃數(shù) As Decimal = CType(生產(chǎn)計(jì)劃表 Cells(行號 ) value Decimal) 第 列是計(jì)劃數(shù)Dim 完成數(shù) As Decimal = CType(生產(chǎn)計(jì)劃表 Cells(行號 ) value Decimal) 第 列是實(shí)際完成數(shù)Dim 未完成數(shù) As Decimal = 用Decimal是因?yàn)楹竺嬉有?shù)If 完成數(shù) 計(jì)劃數(shù) Then '如果沒有完成未完成數(shù) = 計(jì)劃數(shù) - 完成數(shù)End IfIf 城市 "" ThenIf InStr(城市, "沈陽") 0 Or InStr(城市, "鞍山") 0 Or InStr(城市, "哈爾濱") 　 0 Or InStr(城市, "葫蘆島") 0 ThenIf 辦事處計(jì)劃數(shù)統(tǒng)計(jì).Contains("沈陽") Then辦事處計(jì)劃數(shù)統(tǒng)計(jì).Item("沈陽") += 計(jì)劃數(shù)Else辦事處計(jì)劃數(shù)統(tǒng)計(jì).Add("沈陽", 計(jì)劃數(shù))End IfIf 辦事處完成數(shù)統(tǒng)計(jì).Contains("沈陽") Then辦事處完成數(shù)統(tǒng)計(jì).Item("沈陽") += 未完成數(shù)Else辦事處完成數(shù)統(tǒng)計(jì).Add("沈陽", 未完成數(shù))End IfElseIf 辦事處計(jì)劃數(shù)統(tǒng)計(jì).Contains(城市) Then辦事處計(jì)劃數(shù)統(tǒng)計(jì).Item(城市) += 計(jì)劃數(shù)Else辦事處計(jì)劃數(shù)統(tǒng)計(jì).Add(城市, 計(jì)劃數(shù))End IfIf 辦事處完成數(shù)統(tǒng)計(jì).Contains(城市) Then辦事處完成數(shù)統(tǒng)計(jì).Item(城市) += 未完成數(shù)Else辦事處完成數(shù)統(tǒng)計(jì).Add(城市, 未完成數(shù))End IfEnd IfElseMsgBox(生產(chǎn)計(jì)劃表.Name "沒有城市名稱", MsgBoxStyle.Critical, "生產(chǎn)計(jì)劃中要有城市名稱")excelApp.Visible = True生產(chǎn)計(jì)劃表.Activate()生產(chǎn)計(jì)劃表.Select()End If'以下計(jì)算灶具型號分布情況Dim 型號 As String = Strings.Left(生產(chǎn)計(jì)劃表.Cells(行號, 2).value, 3) '灶具型號在第3列If 型號計(jì)劃數(shù)統(tǒng)計(jì).Contains(型號) Then型號計(jì)劃數(shù)統(tǒng)計(jì).Item(型號) += 計(jì)劃數(shù)Else型號計(jì)劃數(shù)統(tǒng)計(jì).Add(型號, 計(jì)劃數(shù))End IfIf 型號完成數(shù)統(tǒng)計(jì).Contains(型號) Then型號完成數(shù)統(tǒng)計(jì).Item(型號) += 未完成數(shù)Else型號完成數(shù)統(tǒng)計(jì).Add(型號, 未完成數(shù))End IfEnd IfNextEnd IfNextDim 城市數(shù) As Integer = 辦事處計(jì)劃數(shù)統(tǒng)計(jì).CountDim 城市數(shù)clone As Integer = 辦事處計(jì)劃數(shù)統(tǒng)計(jì).Count行號 = 4'依計(jì)劃數(shù)大小排序Dim 辦事處計(jì)劃數(shù)統(tǒng)計(jì)副本 As New SortedListDim asa As Decimal = 0.001 '加上此數(shù)是為了防止鍵值的重復(fù)，在工作表中可選不顯示小數(shù)Dim 辦事處計(jì)劃數(shù)Enum As IDictionaryEnumerator = 辦事處計(jì)劃數(shù)統(tǒng)計(jì).GetEnumeratorWhile 辦事處計(jì)劃數(shù)Enum.MoveNext辦事處計(jì)劃數(shù)統(tǒng)計(jì)副本.Add(辦事處計(jì)劃數(shù)Enum.Value + asa, 辦事處計(jì)劃數(shù)Enum.Key)asa += 0.001End While'這里利用SortedList自動排序的功能Dim i As Integer = 1For 列號 = 3 To 3 + 城市數(shù) - 1 '從第三列開始填寫數(shù)據(jù)，這是預(yù)先定義的格式統(tǒng)計(jì)表.Cells(行號, 列號).value = 辦事處計(jì)劃數(shù)統(tǒng)計(jì)副本.GetByIndex(城市數(shù)clone - i) '城市統(tǒng)計(jì)表.Cells(行號 + 1, 列號).value = 辦事處計(jì)劃數(shù)統(tǒng)計(jì)副本.GetKey(城市數(shù)clone - i) '計(jì)劃數(shù)統(tǒng)計(jì)表.Cells(行號 + 2, 列號).value = 辦事處完成數(shù)統(tǒng)計(jì).Item(辦事處計(jì)劃數(shù)統(tǒng)計(jì)副本　.GetByIndex(城市數(shù)clone - i)) '計(jì)劃數(shù)i += 1Next'以型號計(jì)劃數(shù)多少排序Dim 型號計(jì)劃數(shù)統(tǒng)計(jì)副本 As New SortedList辦事處計(jì)劃數(shù)Enum = 型號計(jì)劃數(shù)統(tǒng)計(jì).GetEnumeratorWhile 辦事處計(jì)劃數(shù)Enum.MoveNext型號計(jì)劃數(shù)統(tǒng)計(jì)副本.Add(辦事處計(jì)劃數(shù)Enum.Value + asa, 辦事處計(jì)劃數(shù)Enum.Key)asa += 0.001' MsgBox(辦事處計(jì)劃數(shù)Enum.Valu lishixinzhi/Article/program/net/201311/11282

excel 函數(shù) 與vb.net 哪個難

vb.net是變成語言哦~用于寫程序的，最后生成的文件的擴(kuò)展名是.exe。程序的作用不限于計(jì)算數(shù)字等，還能實(shí)現(xiàn)其他復(fù)雜的功能，比如實(shí)現(xiàn)網(wǎng)絡(luò)通信等等，和vb.net語言屬于一類的還有c語言，c++，c#，java，python等等語言。

而excel函數(shù)僅用于計(jì)算公式，他不是一種語言，只能在excel文件中寫，只能用excel運(yùn)行。一旦脫離excel（比如你電腦沒裝excel）那你學(xué)的excel函數(shù)就完全不起作用了。excel文件最后生成的文件的擴(kuò)展名是.xlsx（2010版）。

介于兩者之間的是vba。就是寫excel里面的“宏”的語言。難度高于excel函數(shù)，低于vb.net。你從vba開始學(xué)的話，可以兩頭都了解一點(diǎn)。

文章名稱：包含vb.net與exce的詞條
文章來源：http://muchs.cn/article0/doedeoo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供動態(tài)網(wǎng)站、網(wǎng)站改版、云服務(wù)器、網(wǎng)站導(dǎo)航、品牌網(wǎng)站設(shè)計(jì)、定制開發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)