熊熊生活小知识 分享 vb制作excel插件(excel visual basic插件)

vb制作excel插件(excel visual basic插件)

开发一个属于自己的工具箱

vb制作excel插件(excel visual basic插件)插图vb制作excel插件(excel visual basic插件)插图1

1、实例化excel程序

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

2、单元格赋值

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

3、读取单元格内容

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

4、单元格数组创建

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

5、创建一维数组

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

6、弹窗信息提示

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

7、用户交互数据

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

8、用户自定义选择单元格区域

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

9、遍历数组

    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
返回顶部