老小鱼

2018年9月7日

摘要： Dim sw全名, 另存全名 As String Dim a, b As String Dim 拟转格式, 拟生成文件夹, SheetName As String Dim 当前行 Sub 另存为其他格式(ByVal 拟转格式) '拟转格式 = "dwg" 拟生成文件夹 = Range("A4") & 阅读全文

posted @ 2018-09-07 12:39 老小鱼阅读(338) 评论(2) 推荐(0) 编辑

BOM层次及汇总表=180624

摘要： Sub 格式化项目号() Set 表字典 = CreateObject("Scripting.Dictionary") Call Excel转字典(表字典) 最大级数 = 1 For Each 行 In 表字典.items 行("项目号").Select a = Split(行("项目号"), ". 阅读全文

posted @ 2018-09-07 12:37 老小鱼阅读(2878) 评论(0) 推荐(0) 编辑

查表填表

摘要： Private Sub Workbook_Open() ' Set 当前表 = ActiveSheet ' ' 文件短名称 = "查表填表.xlsm" ' 文件全名 = "D:\余魁\swvba\" & 文件短名称 ' For Each kk In Workbooks ' Debug.Print k 阅读全文

posted @ 2018-09-07 12:29 老小鱼阅读(217) 评论(0) 推荐(0) 编辑

sw+vba非批量操作=180822

摘要： Sub 插入孔() Call sw初始化("") 总数 = SelMgr.GetSelectedObjectCount2(-1) Set 边线1阵列方向 = Nothing For i = 1 To 总数 Set 对象 = SelMgr.GetSelectedObject6(i, -1) nSelT 阅读全文

posted @ 2018-09-07 11:55 老小鱼阅读(1160) 评论(0) 推荐(1) 编辑

2018年4月19日

关于studiostyl.es网站scheme文件无法下载的问题

摘要：转载至 http://blog.sina.com.cn/s/blog_4de61e0d0102wfy8.html 原因是该网页引用（Google的服务，懂了吧）的jquery文件无法加载，导致方法失效。在studiostyl.es中下载scheme文件，点击下载按钮没有响应，查看网页源码，发现下载阅读全文

posted @ 2018-04-19 21:54 老小鱼阅读(832) 评论(0) 推荐(0) 编辑

2018年2月27日

一些solidworks二次开发小程序=设置材质+属性+单位

摘要：基本操作：(如果嫌广告太长就去云盘看) 阅读全文

posted @ 2018-02-27 21:16 老小鱼阅读(1666) 评论(0) 推荐(0) 编辑

2017年12月11日

一些solidworks二次开发小程序

摘要：工作中写的一些小程序，也学着开源看看…… 源程序百度云地址淘宝地址阅读全文

posted @ 2017-12-11 15:38 老小鱼阅读(2665) 评论(0) 推荐(0) 编辑

2017年7月15日

登陆失败:未知的用户名或密码错误

摘要：按下面的方法“把网络安全：LAN管理器身份验证级别从“没有定义”更改为“发送 LM 和 NTLM - 如果已协商，则使用 NTLMv2 会话安全:”即可。”还是不可！！！ http://jingyan.baidu.com/article/f3e34a128cbfaef5eb65352e.html … 阅读全文

posted @ 2017-07-15 21:46 老小鱼阅读(2799) 评论(0) 推荐(0) 编辑

2017年6月28日

VBS中Run和Exec的区别

摘要： http://demon.tw/programming/vbs-run-and-exec.html 阅读全文

posted @ 2017-06-28 08:36 老小鱼阅读(330) 评论(0) 推荐(0) 编辑

vba shell 返回值

摘要： sub Sample1() Dim WSH, wExec, sCmd As String, Result As String Set WSH = CreateObject("WScript.Shell") ''(1) ''(2) Set wExec = WSH.Exec("xcopy /?") '' 阅读全文

posted @ 2017-06-28 08:10 老小鱼阅读(2088) 评论(1) 推荐(1) 编辑

公告