Question

VB如何调用EXCEL里面的VBA代码

EXCEL VBA代码开始
Sub 复制放样坐标12()
'
' 复制放样坐标12 Macro
'

'
If Range("C23").Value < Range("G24") Then
MsgBox ("圆管1长度L1数值太小，请重新输入参数")
ElseIf Range("C24").Value < Range("G24") Then
MsgBox ("圆管2长度L2数值太小，请重新输入参数")
Else
Columns("EE:EE").Select
Selection.Copy
Range("C27:D27").Select
End If
End Sub
Sub 复制放样坐标11()
'
' 复制放样坐标11 Macro
'

'
If Range("c26").Value < 12 Then
MsgBox ("圆周等分数n不能小于12且为4的倍数，请重新输入参数")
Else
Columns("EE:EE").Select
Selection.Copy
Range("C26:D26").Select
End If
End Sub
EXCEL VBA代码开始

请问大神，在VB里面的代码要如何写并生成DLL文件

Answer 1

vb可以调用Excel，并运行其中的宏的：
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsSheet As Excel.Worksheet

Set xlsApp = New Excel.Application
Set xlsBook = xlsApp.Workbooks.Open(App.Path + "\test.xls") '打开你的EXCEL文档
Set xlsSheet = xlsBook.Worksheets(1)
xlsApp.Visible = False

Call xlsApp.Run("复制放样坐标12")　'运行你的宏

Answer 2

那得用VSTO，而不是VBA