各位大哥大姐帮帮俺，vba里录制的宏贴到VB里咋就不中了捏

xqn616

在vba里运行着没有问题啊，怎么到vb里就不行了呢
图片不清楚代码如下

Dim swApp As Object
Dim swPart As Object
Dim boolstatus As Boolean
Dim warning As Long
Dim error As Long
Private Sub Command1_Click()
Set swApp = CreateObject("SldWorks.Application")
swApp.Visible = True
Set swPart = swApp.OpenDoc6("Cocuments and SettingsAll UsersApplication DataSolidWorksSolidWorks 2012templates零件.prtdot", swDocPART, swOpenDocOptions_Silent, "", error, warning)
Set swPart = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("前视基准面", "LANE", 0, 0, 0, False, 0, Nothing, 0)
Part.ShowNamedView2 "*正视于", 0
Part.ClearSelection2 True
Dim vSkLines As Variant
vSkLines = Part.SketchManager.CreateCornerRectangle(0, 0, 0, 8.62425012410598E-02, 0.049498336979904, 0)
Part.SetPickMode
Part.ClearSelection2 True
Part.ShowNamedView2 "*上下二等角轴测", 8
Part.ClearSelection2 True
Dim myFeature As Object
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.01, 0.01, False, False, False, False, 1.74532925199433E-02, 1.74532925199433E-02, False, False, False, False, True, True, True, 0, 0, False)
Part.SelectionManager.EnableContourSelection = False
End Sub
2013-3-20 00:56:08 上传
下载次数: 3

仲孙婷

引用的库不同；
不知道你在VB里是不是也引用了VBA里同样的库；

半拍。

老哥您说的是怎么个意思，我菜鸟啊，怎么就能让它们引用的库就相同了呢

wangxiaofei

如果说这样，建议你还是使用VBA；
或者好好学习下VB的教程；
因为我们的程序中是会调用其他的库文件的，就必须要引用这些库；

凤姐他哥

   经典案例图书

好像是在工具→引用里，有很多选项对应的不同的程序的借口吧

tq820911

您能不能简单告我一下调用库的步骤呢，感激不尽

风云吧

   经典案例图书

木有啊

topcnc

你也是个小菜，没有找到问题所在。
此问题出在"前视基准面"上，你使用的图模板与此名称不相同，可能是“前视”或英文
只要模板中的基准面与此描述相同即可。

牵手看日出

也许吧；