VB.NET excel替换重复行

lipton

一个外接程序建立新工作簿,在sheet1表A1 写入值的例子
和VBA的操作一样的。

1. Private Sub Button1_Click(sender As System.Object, e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button1.Click
   
2.         Dim xlapp As Excel.Application = Globals.ThisAddIn.Application
   
3. 
   
4.         'Dim wb As Excel.Workbook = xlapp.Workbooks.Open() '打开一个现有的工作簿
   
5.         Dim wb As Excel.Workbook = xlapp.Workbooks.Add() '添加新工作簿
   
6.         wb.SaveAs("test.xlsx")
   
7.         Dim sh As Excel.Worksheet = wb.Sheets("sheet1")
   
8.         Dim rng As Excel.Range = sh.Cells(1, 1)
   
9.         rng.Value2 = "test"
   
10. 
    
11.         wb.Close(True)
    
12.         rng = Nothing
    
13.         sh = Nothing
    
14.         wb = Nothing
    
15.     End Sub

复制代码

永在战场

看来从vba到vb.net还是有很多知识要学习啊