VBA转换为vb.net vba转换为文本的函数
您好请问如何将vba改成vb.net呢?谢谢啦) Dim swApp As Object Dim Part As Object Dim boolstatus As Boo
swApp.ActiveDoc是什么东西?word的吗?
在成都网站制作、做网站中从网站色彩、结构布局、栏目设置、关键词群组等细微处着手,突出企业的产品/服务/品牌,帮助企业锁定精准用户,提高在线咨询和转化,使成都网站营销成为有效果、有回报的无锡营销推广。创新互联建站专业成都网站建设10年了,客户满意度97.8%,欢迎成都创新互联客户联系。
如果是ord的东西,那么将set去掉就可以了,其他的不需要做任何更改。
set gp = RDGp() 在VBA 中是什么意思?改写成VB.net 应该怎么写呢?
RDGp()在vba中没有这个函数,这个应该人定义的函数的,set gp = RDGp()很明显就是将gp设置这个函数。如果这个是类模块的,就要新建对象,在又对象调用函数。不过从这句话中,这个应该是模块里面的自定义的函数。具体的还要看代码结构。改成VB.net写法是一样的
用VBA写的代码可以转化成电脑直接安装的软件吗?就像普通的其他软件一样,打开这个软件之后就可以处理excel
所谓VBA就是要在微软特定的Application(比如excel,word等)中运行的VB代码,离开了这个环境它什么也干不了。你是说要“转化成电脑直接安装的exe程序”吗,那你需要在独立的VB编程环境(比如vb6.0, vb.net等)将VBA代码的功能完成实现,再编译成exe代码。
将Word 中的VBA代码转换成VB.Net代码?
Public Function DrawDot(ByVal x1 As Double, ByVal y1 As Double, Optional ByVal r As Double = 1) As Object
Dim oWord As Word.Application
Dim TempX As Double
Dim TempY As Double
Dim TempR As Double
TempX = Ox + (x1 * 10)
TempY = Oy - (y1 * 10)
TempR = r * 10
DialogDisplay = False
If (TempX - TempR Ox - Lx / 2) Or (TempX + TempR Ox + Lx / 2) Or (TempY - TempR Oy - Ly / 2) Or (TempY + TempR Oy + Ly / 2) Then
DialogDisplay = True
MsgBox("超出了边界!", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "提示")
DrawFlag = False
DrawDot = Nothing
Exit Function
End If
DrawDot = oWord.ActiveDocument.Shapes.AddShape(9, TempX - TempR, TempY - TempR, 2 * TempR, 2 * TempR)
DrawFlag = True
End Function
网页标题:VBA转换为vb.net vba转换为文本的函数
文章链接:http://pwwzsj.com/article/dooohps.html