zhjan518 发表于 2021-8-18 14:16
找到原因了，可以正常打开，表格中怎么加入文件名呢

    xx = Bti(UI)
    xlWs.Range(Chr(65 + UI) & CurRow).Value = Get_Property_value(swDoc, xx)              '转到获取当前模型文档的某个属性的值

这里改成：

    xx = Bti(UI)
    If xx = "文件名" Then
    xlWs.Range(Chr(65 + UI) & CurRow).Value = swDocName
    Else
    xlWs.Range(Chr(65 + UI) & CurRow).Value = Get_Property_value(swDoc, xx)              '转到获取当前模型文档的某个属性的值
    End If

在表格标题名为“文件名”的列，输入文件名。

tg000057 发表于 2021-8-6 14:57
找到原因了，静默打开文件时用的配置是“”，然后获取缩略图用的配置是“默认”，没有对应好。
用了段时 ...

当时没注意，忘记写出具体的问题点，还是你厉害，一下子看出来还解决掉

修复已知漏洞！

感谢楼主分享，很不错！

有点小瑕疵，但瑕不掩瑜！

很不错，找到组织了！

下载来看看情况

这么贵的吗

下载下来看看，应该会有用！

SW机械工程师网，找到组织了！

SolidWorks机械工程师网，顶一下。

给特特甜热热

tg000057 发表于 2021-8-6 14:53
帮你定制一个吧，把数量列更改为统计数量，当标题有“数量”一词时，则将统计的数量写入对应的单元格。
...

请问一下放哪里？没金币下载了

下载了这个破产了，谢谢分享

tg000057 发表于 2021-8-20 07:57
楼上518也是用2016的，所以应该不是sw的问题，你检查一下execl！

2023运行也报错，也是找不到工程或库，改了引用后，点击宏没反应

顶一下，坐等高手！

怎么点击也没反应啊，运行不了

很不错，顶一下！

很不错，顶一下！

SW机械工程师网，找到组织了！

愁死一个属性都没提取出来

不好用，各种错误，修改引用也不行

感谢楼主分享，很不错！

实在是太感谢了

zhjan518 发表于 2021-8-18 13:59
复件下载了，一运行这个宏就奔溃了，系统WIN7 64  sw2016，是哪里的原因呢
这是打开宏的状态，确定后无任 ...

我也是这个错误，可以知道后面是怎么解决的吗？
谢谢！