使用VB.NET 編寫EXCEL VBA 代碼時遇到DELETE函數(shù)無法作用的問題

這個地方缺少參數(shù)才報錯的，刪除要定義這么個刪除法，如，刪除后右邊的單元格左移來補充。

成都創(chuàng)新互聯(lián)公司主要從事網(wǎng)站設(shè)計制作、成都網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務。立足成都服務白云鄂,十余年網(wǎng)站建設(shè)經(jīng)驗,價格優(yōu)惠、服務專業(yè),歡迎來電咨詢建站服務:028-86922220

學VB.NET對EXCEL2016的VBA學習有很大的幫助么？

之所以叫VBA（Visual Bassic Application）說明跟VB肯定是有關(guān)的，也就是語法和VB是一樣的，VBA的特殊之處就是要結(jié)合Office來使用，不能獨立存在，所以學了VB再學VBA肯定容易些，或者可以說，學了VB后再學VBA只要露弄清楚Excel文件結(jié)構(gòu)就OK了，所謂結(jié)構(gòu)也就是，Excel的WorkBook，Worksheets，cells，Range等等

關(guān)于VB.net加載程序集的動態(tài)引用

把程序集的那個DLL復制到程序的根目錄，在“添加引用”的后面一欄就有顯示具體路徑

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

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

添加一個按鈕：

試試下面的代碼：注意版本；先建立以個EXCEL文件保存到c:\下面，我的計算機是安裝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 '實例化Excel對象

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

AppXls.Visible = False '使Excel不可見

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

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

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

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

'下面舉一些例子：

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

'2、如果不聲明工作簿對象 AppWokBook ，那么應用"C:\學生成績.xls"中的表“Sheet1”的語句就是：AppXls.Workbooks("C:\學生成績.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 '為了驗證，讀取并顯示它

MsgBox(S1)

'方法二

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

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

MsgBox(S1)

'方法二

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

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

MsgBox(S1)

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

AppXls.ActiveWorkbook.Close(SaveChanges:=True)

AppXls.Quit()

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

End Sub

End Class