使用VS 2015軟件利用VB.NET編程操作excel 怎么樣像Excel VBA那樣將區(qū)域單元格直接讀入數(shù)組？

'首先通過菜單[項(xiàng)目] -- [添加引用]，選擇[COM]選項(xiàng)卡，選擇“Microsoft Excel XX.0 Object Library”，[確定]。

成都創(chuàng)新互聯(lián)是一家專注于網(wǎng)站設(shè)計(jì)、成都網(wǎng)站設(shè)計(jì)與策劃設(shè)計(jì),岳池網(wǎng)站建設(shè)哪家好?成都創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設(shè)10多年,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:岳池等地區(qū)。岳池做網(wǎng)站價格咨詢:18982081108

添加一個按鈕：

試試下面的代碼：注意版本；先建立以個EXCEL文件保存到c:\下面，我的計(jì)算機(jī)是安裝OFFICE 2010。

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim AppXls As Microsoft.Office.Interop.Excel.Application '聲明Excel對象

Dim AppWokBook As Microsoft.Office.Interop.Excel.Workbook '聲明工作簿對象

Dim AppSheet As New Microsoft.Office.Interop.Excel.Worksheet '聲明工作表對象

AppXls = New Microsoft.Office.Interop.Excel.Application '實(shí)例化Excel對象

AppXls.Workbooks.Open("C:\工作簿1.xlsx") '打開已經(jīng)存在的EXCEL文件

AppXls.Visible = False '使Excel不可見

'AppWokBook = New Microsoft.Office.Interop.Excel.Workbook '實(shí)例化工作簿對象

'AppSheet = New Microsoft.Office.Interop.Excel.Worksheet '實(shí)例化工作表對象

AppWokBook = AppXls.Workbooks(1) 'AppWokBook對象指向工作簿"C:\學(xué)生成績.xls"

AppSheet = AppWokBook.Sheets("Sheet1") 'AppSheet對象指向AppWokBook對象中的表“Sheet1”，即："C:\學(xué)生成績.xls"中的表“Sheet1”

'下面舉一些例子：

'1、如果不聲明工作表對象 AppSheet ，那么應(yīng)用AppWokBook對象中的表“Sheet1”的語句就是：AppWokBook.Sheets("Sheet1")

'2、如果不聲明工作簿對象 AppWokBook ，那么應(yīng)用"C:\學(xué)生成績.xls"中的表“Sheet1”的語句就是：AppXls.Workbooks("C:\學(xué)生成績.xls").Sheets("Sheet1")

'要讀取數(shù)據(jù)表"Sheet1"中的單元格“A1”的值，到變量S1里

Dim S1 As String

'方法一

S1 = AppXls.Workbooks(1).Sheets("Sheet1").Range("A1").Value

MsgBox(S1)

'方法二

S1 = AppWokBook.Sheets("Sheet1").Range("A1").Value

MsgBox(S1)

'方法三

S1 = AppSheet.Range("A1").Value

MsgBox(S1)

'把數(shù)據(jù)寫入到單元格“H2”，就是第2行第8個單元格

'方法一

AppXls.Workbooks(1).Sheets("Sheet1").Cells(2, 8).Value = "您好！"

S1 = AppXls.Workbooks(1).Sheets("Sheet1").Cells(2, 8).Value '為了驗(yàn)證，讀取并顯示它

MsgBox(S1)

'方法二

AppWokBook.Sheets("Sheet1").Cells(2, 8).Value = "你們好！"

S1 = AppWokBook.Sheets("Sheet1").Cells(2, 8).Value '為了驗(yàn)證，讀取并顯示它

MsgBox(S1)

'方法二

AppSheet.Cells(2, 8).Value = "大家好！"

S1 = AppSheet.Cells(2, 8).Value '為了驗(yàn)證，讀取并顯示它

MsgBox(S1)

'使用完畢必須關(guān)閉EXCEL，并退出

AppXls.ActiveWorkbook.Close(SaveChanges:=True)

AppXls.Quit()

'完成此程序，打開EXCEL檢查，可以看到在“Sheet1”表的單元格“H2”里是文本“大家好！”

End Sub

End Class

VB中如何截取輸入文本中的中間字符串。。

用Mid(),left(),right()這三個函數(shù)，要知道中文在vb里也按一個字節(jié)算！但存儲卻是兩個字節(jié)！

用VS2015，創(chuàng)建的VB.NET應(yīng)用程序，如何同時操作兩個EXCEL工作簿

首先定義

Public xlApp As Excel.Application

Public xlBook As Excel.Workbook Public xlSheet As Excel.Worksheet然后創(chuàng)建對象

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

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

xlSheet = xlBook.Worksheets("sheet1")

新裝的VB.NET，啟動時出現(xiàn)錯誤需要對程序集的引用，請?jiān)陧?xiàng)目中添加一個

這是說你缺少引用一個程序

就是說你項(xiàng)目用到了一些控件，但是你項(xiàng)目本身沒有引用它

可以添加using

或者在頁面最上面添加System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=969db8053d3322ac

或者在你項(xiàng)目中BIN目錄下右鍵添加引用

下面給你的列子

%@ Page Language="C#" AutoEventWireup="true" CodeFile="Default.aspx.cs" Inherits="_Default" %

%@ Register Assembly="System.Web.Extensions, Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"

Namespace="System.Web.UI" TagPrefix="asp" %

vb6.0與vs2015的差別大嗎？ 大學(xué)上課老師用的是VB6.0講步驟，可我的電腦系統(tǒng)安裝不了V

差別很大，雖然兩者在Basic語法上一脈相承，但vb.net已經(jīng)是完全面向?qū)ο蟮恼Z言，轉(zhuǎn)換有很大的思維轉(zhuǎn)變！不過凡是vb6能完成的，vb.net通常能更容易地完成，所以建議你把老師教的在vs2015上實(shí)現(xiàn)一遍。