excel学习库

Module Module1    '实例化Excel程序    Public ExcelApp As Excel.Application = Globals.ThisAddIn.Application  'public 是全局的  ，dim是过程内End Module

sub 赋值()    excelapp.activecell.value="字符串"    excelapp.activecell.value=123end sub

sub 读取()    msgbox(excelapp.activecell.value)end sub

sub 创建单元格数组()    dim arr(,)    arr=excelapp.range("A1:C10").valueend sub

sub 创建一维数组()    dim arr()    arr=split("1-2-3-4","分隔符")end sub

sub 提示()    msgbox("提示信息")end sub

sub 输入数据()    dim s as string=inputbox("请输入数据字符串")    msgbox(s)end sub

sub 选择单元格()    dim arr(,)    arr=excelapp.inputbox("请选择单元格区域",type:=8).value    for each rng in arr        msgbox(rng)    nextend sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load        Dim arr As Array = ExcelApp.Range("A1:D10").Value  '过程内变量        Dim 文本 As String
        For Each 数据 In arr            文本 = 文本 & 数据        Next    End Sub