2022年11月19日
递归获取指定文件夹下全部文件的路径
摘要： Dim jg(), k&, tms#, n '因为是递归，所以事先指定存放结果的公用变量数组jg以及计数器k和起始时间tms Dim ar_res(1 To 65535, 1 To 10) Dim k_res As Long Dim dic_cust_yu_e_last As Object Dim 阅读全文
posted @ 2022-11-19 16:49 依云科技 阅读(80) 评论(0) 推荐(0)
一维下料优化
摘要： Sub CutPlan() Me.Select Dim ar, a&(), b(), c&(), d(), dic, tr, i&, i1&, j&, j1&, k&, l&, l1&, m&, m1&, n&, r&, r1&, r2&, s@, t&, u@, u1@, v@, v1@, w$, 阅读全文
posted @ 2022-11-19 08:40 依云科技 阅读(105) 评论(0) 推荐(0)