VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 1063|回复: 1

[求助] VB中有类似这样的函数吗?

[复制链接]
发表于 2017-12-7 21:54:44 | 显示全部楼层 |阅读模式
我在WORD的宏模块中写:
  1. sub abb()
  2.     Call Application.Run("A" & 1)
  3. End Sub

  4. Sub A1()
  5.     MsgBox 1
  6. End Sub
  7. Sub A2()
  8.     MsgBox 2
  9. End Sub
复制代码


    运行abb时,能够跳出想要的msgbox 1.
当我把上述写代码用在VB中,需要引用word或EXCEL.且需要有打开word或EXCEL才能正确。
请问除此外还有更加省事的办法吗,不需要借助word和excel?
 楼主| 发表于 2017-12-12 21:35:40 | 显示全部楼层
看来除了用数组方法的思路,上述思路很不通了。数组方法:dim A1(0 TO 3) ……  call a1(i)
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2018-10-17 02:43

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表