Add initial implementation of BOM management classes and data structure
- Created clsBOMManager for managing BOM data - Added clsCategory and clsMaterialItem for category and material representation - Implemented methods for loading and organizing BOM data from Excel - Introduced .gitignore to exclude unnecessary files - Added metadata JSON for module tracking
This commit is contained in:
Misaka_Company
356
VBA/ClassModules/clsBOMManager.cls
Normal file
356
VBA/ClassModules/clsBOMManager.cls
Normal file
@@ -0,0 +1,356 @@
|
||||
' ========================================
|
||||
' 类模块: clsBOMManager
|
||||
' 用途: 管理整个BOM数据结构
|
||||
' 功能:
|
||||
' 1. 加载和组织BOM数据
|
||||
' 2. 建立类别层级关系
|
||||
' 3. 提供物料查询接口
|
||||
' 4. 支持领料逻辑处理
|
||||
' ========================================
|
||||
Option Explicit
|
||||
|
||||
' ========================================
|
||||
' 私有成员变量
|
||||
' ========================================
|
||||
Private dictCategories As Object ' Dictionary对象: 类别名称 -> clsCategory对象
|
||||
' 作用: 快速查找任意类别
|
||||
Private dictAllMaterials As Object ' Dictionary对象: 物料代号 -> clsMaterialItem对象
|
||||
' 作用: 快速查找任意物料
|
||||
Private rootCategories As Collection ' Collection: 存储所有顶层类别(无父类别的类别)
|
||||
' 作用: 遍历完整的类别树结构
|
||||
|
||||
' ========================================
|
||||
' 类初始化
|
||||
' 说明: 创建BOMManager实例时自动调用
|
||||
' ========================================
|
||||
Private Sub Class_Initialize()
|
||||
Set dictCategories = CreateObject("Scripting.Dictionary")
|
||||
Set dictAllMaterials = CreateObject("Scripting.Dictionary")
|
||||
Set rootCategories = New Collection
|
||||
End Sub
|
||||
|
||||
' ========================================
|
||||
' LoadData 方法
|
||||
' 功能: 从Excel工作表加载BOM数据并构建数据结构
|
||||
' 参数:
|
||||
' wsConfig - [领料配置]工作表对象,包含类别层级和需要领料的物料
|
||||
' wsPlatform - [平台配置清单]工作表对象,包含完整的物料信息(代号/名称/数量/条件)
|
||||
' 处理步骤:
|
||||
' 1. 从[平台配置清单]加载所有物料的基础信息到dictAllMaterials
|
||||
' 2. 从[领料配置]加载类别信息,筛选需要领料的物料
|
||||
' 3. 建立类别的父子关系,构建层级树
|
||||
' 注意:
|
||||
' - 只有出现在[领料配置]中的物料才会被添加到类别中
|
||||
' - 未在[领料配置]中的物料表示不需要领料
|
||||
' ========================================
|
||||
Public Sub LoadData(wsConfig As Worksheet, wsPlatform As Worksheet)
|
||||
Dim i As Long, lastRow As Long
|
||||
Dim mat As clsMaterialItem
|
||||
Dim cat As clsCategory
|
||||
|
||||
' ========================================
|
||||
' 第一步: 从平台配置清单加载所有物料的基础信息
|
||||
' 说明:
|
||||
' - 读取C列(代号)、D列(名称)、E列(数量)、F列(选择条件)
|
||||
' - 从第4行开始读取(前3行是标题)
|
||||
' - 所有物料存入dictAllMaterials字典,以代号为键
|
||||
' 目的: 建立完整的物料信息库,供后续按代号查询
|
||||
' ========================================
|
||||
lastRow = wsPlatform.Cells(wsPlatform.Rows.Count, "C").End(xlUp).row
|
||||
For i = 4 To lastRow ' 从第4行开始(跳过标题)
|
||||
Set mat = New clsMaterialItem
|
||||
mat.code = Trim(wsPlatform.Cells(i, "C").Value & "") ' 物料代号
|
||||
mat.Name = Trim(wsPlatform.Cells(i, "D").Value & "") ' 物料名称
|
||||
On Error Resume Next
|
||||
mat.Quantity = CDbl(wsPlatform.Cells(i, "E").Value) ' 物料数量
|
||||
On Error GoTo 0
|
||||
mat.Condition = Trim(wsPlatform.Cells(i, "F").Value & "") ' 选择条件
|
||||
|
||||
' 只保存代号非空的物料
|
||||
If mat.code <> "" Then
|
||||
Set dictAllMaterials(mat.code) = mat
|
||||
End If
|
||||
Next i
|
||||
|
||||
' ========================================
|
||||
' 第二步: 从领料配置加载类别信息并建立层级
|
||||
' 说明:
|
||||
' - 读取A列(代号)、C列(类别)、D列(上层类别)
|
||||
' - 从第2行开始读取(第1行是标题)
|
||||
' - 只有出现在此表中的物料才需要领料
|
||||
' 处理逻辑:
|
||||
' 1. 为每个类别创建clsCategory对象
|
||||
' 2. 从dictAllMaterials中查找对应的物料信息
|
||||
' 3. 将物料添加到对应的类别中
|
||||
' ========================================
|
||||
lastRow = wsConfig.Cells(wsConfig.Rows.Count, "A").End(xlUp).row
|
||||
For i = 2 To lastRow ' 从第2行开始
|
||||
Dim code As String, catName As String, parentCatName As String
|
||||
code = Trim(wsConfig.Cells(i, "A").Value & "") ' 物料代号
|
||||
catName = Trim(wsConfig.Cells(i, "C").Value & "") ' 类别名称
|
||||
parentCatName = Trim(wsConfig.Cells(i, "D").Value & "") ' 上层类别名称
|
||||
|
||||
' 跳过空行
|
||||
If code = "" Then GoTo NextRow
|
||||
|
||||
' 确保类别对象存在(如果类别不存在则创建)
|
||||
If Not dictCategories.Exists(catName) Then
|
||||
Set cat = New clsCategory
|
||||
cat.categoryName = catName
|
||||
cat.ParentCategoryName = parentCatName
|
||||
Set dictCategories(catName) = cat
|
||||
End If
|
||||
|
||||
' 将物料添加到类别
|
||||
' 注意: 必须先在dictAllMaterials中查找到完整的物料信息
|
||||
If dictAllMaterials.Exists(code) Then
|
||||
Set mat = dictAllMaterials(code)
|
||||
mat.Category = catName ' 设置物料所属类别
|
||||
mat.ParentCategory = parentCatName ' 设置物料的上层类别
|
||||
dictCategories(catName).AddMaterial mat ' 将物料添加到类别对象中
|
||||
End If
|
||||
|
||||
NextRow:
|
||||
Next i
|
||||
|
||||
' ========================================
|
||||
' 第三步: 建立类别层级关系
|
||||
' 说明:
|
||||
' - 遍历所有类别,根据ParentCategoryName建立父子关系
|
||||
' - 如果类别有父类别,将自己添加到父类别的SubCategories中
|
||||
' - 如果类别没有父类别,则为根类别,添加到rootCategories中
|
||||
' 结果:
|
||||
' - 构建完整的树形结构
|
||||
' - rootCategories包含所有顶层类别
|
||||
' - 每个类别的SubCategories包含其直接子类别
|
||||
' ========================================
|
||||
Dim key As Variant
|
||||
For Each key In dictCategories.Keys
|
||||
Set cat = dictCategories(key)
|
||||
If cat.ParentCategoryName <> "" Then
|
||||
' 有父类别,建立父子关系
|
||||
If dictCategories.Exists(cat.ParentCategoryName) Then
|
||||
Dim parentCat As clsCategory
|
||||
Set parentCat = dictCategories(cat.ParentCategoryName)
|
||||
parentCat.AddSubCategory cat ' 将当前类别添加为父类别的子类别
|
||||
End If
|
||||
Else
|
||||
' 无父类别,是根类别
|
||||
rootCategories.Add cat, cat.categoryName
|
||||
End If
|
||||
Next key
|
||||
End Sub
|
||||
|
||||
' ========================================
|
||||
' GetRootCategories 方法
|
||||
' 功能: 获取所有顶层类别的集合
|
||||
' 返回: Collection对象,包含所有无父类别的clsCategory对象
|
||||
' 用途:
|
||||
' - 遍历整个BOM结构时的入口点
|
||||
' - 生成领料清单时遍历所有根类别
|
||||
' 示例:
|
||||
' Dim cats As Collection
|
||||
' Set cats = bomMgr.GetRootCategories()
|
||||
' For i = 1 To cats.Count
|
||||
' Debug.Print cats(i).CategoryName
|
||||
' Next i
|
||||
' ========================================
|
||||
Public Function GetRootCategories() As Collection
|
||||
Set GetRootCategories = rootCategories
|
||||
End Function
|
||||
|
||||
' ========================================
|
||||
' GetCategory 方法
|
||||
' 功能: 根据类别名称获取类别对象
|
||||
' 参数:
|
||||
' categoryName - 要查询的类别名称(字符串)
|
||||
' 返回:
|
||||
' clsCategory对象 - 如果找到
|
||||
' Nothing - 如果未找到
|
||||
' 用途: 快速查找特定类别及其下的物料
|
||||
' 示例:
|
||||
' Dim cat As clsCategory
|
||||
' Set cat = bomMgr.GetCategory("部件")
|
||||
' If Not cat Is Nothing Then
|
||||
' Debug.Print cat.Materials.Count & " 个物料"
|
||||
' End If
|
||||
' ========================================
|
||||
Public Function GetCategory(categoryName As String) As clsCategory
|
||||
If dictCategories.Exists(categoryName) Then
|
||||
Set GetCategory = dictCategories(categoryName)
|
||||
Else
|
||||
Set GetCategory = Nothing
|
||||
End If
|
||||
End Function
|
||||
|
||||
' ========================================
|
||||
' GetMaterialsForPicking 方法
|
||||
' 功能: 获取某类别下需要领料的物料清单(考虑层级逻辑)
|
||||
' 参数:
|
||||
' categoryName - 类别名称
|
||||
' useParent - 可选参数,默认True
|
||||
' True: 使用父类别物料(默认领料方式)
|
||||
' False: 使用子类别物料(库存不足时的替代方案)
|
||||
' 返回: Collection对象,包含clsMaterialItem对象
|
||||
'
|
||||
' 业务逻辑说明:
|
||||
' 1. 默认领取父类别的物料(如"低压接头部件")
|
||||
' 2. 当父类别库存不足时,才领取子类别的物料(如"接头"+"弹性元件")
|
||||
' 3. 如果useParent=True但类别有子类别,仍返回父类别物料
|
||||
' 4. 如果useParent=False,递归获取所有子类别的物料
|
||||
'
|
||||
' 示例1: 获取"部件"类别的物料(父类别)
|
||||
' Set mats = bomMgr.GetMaterialsForPicking("部件", True)
|
||||
' ' 返回: 低压接头部件、高压接头部件等组装好的部件
|
||||
'
|
||||
' 示例2: 获取"部件"类别的物料(子类别展开)
|
||||
' Set mats = bomMgr.GetMaterialsForPicking("部件", False)
|
||||
' ' 返回: 径向低压接头、弹簧管、螺旋管等零件
|
||||
' ========================================
|
||||
Public Function GetMaterialsForPicking(categoryName As String, _
|
||||
Optional useParent As Boolean = True) As Collection
|
||||
Dim result As Collection
|
||||
Set result = New Collection
|
||||
|
||||
' 查找指定类别
|
||||
Dim cat As clsCategory
|
||||
Set cat = GetCategory(categoryName)
|
||||
If cat Is Nothing Then
|
||||
' 类别不存在,返回空集合
|
||||
Set GetMaterialsForPicking = result
|
||||
Exit Function
|
||||
End If
|
||||
|
||||
Dim i As Long
|
||||
|
||||
If useParent Then
|
||||
' ========================================
|
||||
' 使用父类别物料(默认领料方式)
|
||||
' 说明:
|
||||
' - 直接返回当前类别下的所有物料
|
||||
' - 即使该类别有子类别,也仍然返回父类别物料
|
||||
' - 这是正常情况下的领料方式(领取组装好的部件)
|
||||
' ========================================
|
||||
Dim m As clsMaterialItem
|
||||
For i = 1 To cat.Materials.Count
|
||||
Set m = cat.Materials(i)
|
||||
result.Add m
|
||||
Next i
|
||||
Else
|
||||
' ========================================
|
||||
' 使用子类别物料(库存不足时的替代方案)
|
||||
' 说明:
|
||||
' - 如果当前类别有子类别,递归获取所有子类别的物料
|
||||
' - 如果当前类别是叶子类别(无子类别),返回本类别物料
|
||||
' - 这用于父类别库存不足,需要领取零件自行组装的情况
|
||||
' 示例:
|
||||
' 当"低压接头部件"库存不足时
|
||||
' 改为领取"径向低压接头"+"弹簧管"零件
|
||||
' ========================================
|
||||
If cat.HasSubCategories Then
|
||||
' 有子类别,递归获取所有子类别的物料
|
||||
Dim subCat As clsCategory
|
||||
Dim j As Long
|
||||
For j = 1 To cat.SubCategories.Count
|
||||
Set subCat = cat.SubCategories(j)
|
||||
Dim subMats As Collection
|
||||
' 递归调用,继续展开子类别
|
||||
Set subMats = GetMaterialsForPicking(subCat.categoryName, False)
|
||||
Dim k As Long
|
||||
For k = 1 To subMats.Count
|
||||
result.Add subMats(k)
|
||||
Next k
|
||||
Next j
|
||||
Else
|
||||
' 叶子类别,返回本类别物料
|
||||
For i = 1 To cat.Materials.Count
|
||||
Set m = cat.Materials(i)
|
||||
result.Add m
|
||||
Next i
|
||||
End If
|
||||
End If
|
||||
|
||||
Set GetMaterialsForPicking = result
|
||||
End Function
|
||||
|
||||
' ========================================
|
||||
' PrintCategoryTree 方法
|
||||
' 功能: 将类别树结构打印到工作表(用于调试和查看)
|
||||
' 参数:
|
||||
' ws - 输出的目标工作表对象
|
||||
' 输出格式:
|
||||
' - 第一列: 类别名称(带缩进显示层级)
|
||||
' - 第二列: 物料数量信息
|
||||
' - 第三列: 选择条件
|
||||
' 说明:
|
||||
' - 使用缩进显示类别层级(每层2个空格)
|
||||
' - 递归打印所有子类别和物料
|
||||
' - 便于验证数据结构是否正确
|
||||
' 示例输出:
|
||||
' 表壳 (物料数:1)
|
||||
' - 01091004312 表壳(本色) 数量:1 条件:
|
||||
' 部件 (物料数:20)
|
||||
' - 01011019001 低压接头部件 数量:1 条件:lcfw=M02...
|
||||
' 接头 (物料数:18)
|
||||
' - 01081013833 径向低压接头 数量:1 条件:gclj=Z12...
|
||||
' ========================================
|
||||
Public Sub PrintCategoryTree(ws As Worksheet)
|
||||
Dim row As Long
|
||||
row = 1
|
||||
ws.Cells(row, 1).Value = "类别层级结构"
|
||||
row = row + 1
|
||||
|
||||
' 遍历所有根类别,递归打印整个树
|
||||
Dim rootCat As clsCategory
|
||||
Dim i As Long
|
||||
For i = 1 To rootCategories.Count
|
||||
Set rootCat = rootCategories(i)
|
||||
Call PrintCategory(ws, rootCat, row, 0)
|
||||
Next i
|
||||
End Sub
|
||||
|
||||
' ========================================
|
||||
' PrintCategory 方法 (私有方法)
|
||||
' 功能: 递归打印单个类别及其子类别(供PrintCategoryTree调用)
|
||||
' 参数:
|
||||
' ws - 输出的工作表对象
|
||||
' cat - 要打印的类别对象
|
||||
' row - 当前输出行号(ByRef,会被修改)
|
||||
' level - 当前层级深度(0=根类别,1=一级子类别...)
|
||||
' 说明:
|
||||
' - 使用递归方式遍历整个类别树
|
||||
' - 根据level参数计算缩进空格数
|
||||
' - 先打印类别名,再打印该类别的所有物料,最后递归打印子类别
|
||||
' ========================================
|
||||
Private Sub PrintCategory(ws As Worksheet, cat As clsCategory, _
|
||||
ByRef row As Long, level As Integer)
|
||||
' 计算缩进(每层2个空格)
|
||||
Dim indent As String
|
||||
indent = String(level * 2, " ")
|
||||
|
||||
' 打印类别名称和物料数量统计
|
||||
ws.Cells(row, 1).Value = indent & cat.categoryName & _
|
||||
" (物料数:" & cat.Materials.Count & ")"
|
||||
row = row + 1
|
||||
|
||||
' 打印该类别下的所有物料
|
||||
Dim mat As clsMaterialItem
|
||||
Dim i As Long
|
||||
For i = 1 To cat.Materials.Count
|
||||
Set mat = cat.Materials(i)
|
||||
' 物料行额外缩进2个空格,并加上"- "前缀
|
||||
ws.Cells(row, 1).Value = indent & " - " & mat.code & " " & mat.Name
|
||||
ws.Cells(row, 2).Value = "数量:" & mat.Quantity
|
||||
ws.Cells(row, 3).Value = "条件:" & mat.Condition
|
||||
row = row + 1
|
||||
Next i
|
||||
|
||||
' 递归打印所有子类别
|
||||
Dim subCat As clsCategory
|
||||
Dim j As Long
|
||||
For j = 1 To cat.SubCategories.Count
|
||||
Set subCat = cat.SubCategories(j)
|
||||
' 递归调用,层级加1
|
||||
Call PrintCategory(ws, subCat, row, level + 1)
|
||||
Next j
|
||||
End Sub
|
||||
40
VBA/ClassModules/clsCategory.cls
Normal file
40
VBA/ClassModules/clsCategory.cls
Normal file
@@ -0,0 +1,40 @@
|
||||
' ========================================
|
||||
' 类模块: clsCategory
|
||||
' 用途: 表示物料类别及其层级关系
|
||||
' ========================================
|
||||
Option Explicit
|
||||
|
||||
Public categoryName As String
|
||||
Public ParentCategoryName As String
|
||||
Public Materials As Collection ' 存储 clsMaterialItem 对象
|
||||
Public SubCategories As Collection ' 存储子类别 clsCategory 对象
|
||||
Public IsLeafCategory As Boolean ' 是否叶子类别(无子类别)
|
||||
|
||||
Private Sub Class_Initialize()
|
||||
Set Materials = New Collection
|
||||
Set SubCategories = New Collection
|
||||
IsLeafCategory = True
|
||||
End Sub
|
||||
|
||||
' 添加物料
|
||||
Public Sub AddMaterial(mat As clsMaterialItem)
|
||||
Materials.Add mat, mat.code
|
||||
End Sub
|
||||
|
||||
' 添加子类别
|
||||
Public Sub AddSubCategory(cat As clsCategory)
|
||||
SubCategories.Add cat, cat.categoryName
|
||||
IsLeafCategory = False
|
||||
End Sub
|
||||
|
||||
' 获取物料(按代号)
|
||||
Public Function GetMaterial(code As String) As clsMaterialItem
|
||||
On Error Resume Next
|
||||
Set GetMaterial = Materials(code)
|
||||
On Error GoTo 0
|
||||
End Function
|
||||
|
||||
' 检查是否有子类别
|
||||
Public Function HasSubCategories() As Boolean
|
||||
HasSubCategories = (SubCategories.Count > 0)
|
||||
End Function
|
||||
12
VBA/ClassModules/clsMaterialItem.cls
Normal file
12
VBA/ClassModules/clsMaterialItem.cls
Normal file
@@ -0,0 +1,12 @@
|
||||
' ========================================
|
||||
' 类模块: clsMaterialItem
|
||||
' 用途: 表示单个物料项
|
||||
' ========================================
|
||||
Option Explicit
|
||||
|
||||
Public code As String ' 代号
|
||||
Public Name As String ' 名称
|
||||
Public Quantity As Double ' 数量
|
||||
Public Condition As String ' 选择条件
|
||||
Public Category As String ' 类别
|
||||
Public ParentCategory As String ' 上层类别
|
||||
0
VBA/DocumentModules/Sheet1.cls
Normal file
0
VBA/DocumentModules/Sheet1.cls
Normal file
0
VBA/DocumentModules/Sheet2.cls
Normal file
0
VBA/DocumentModules/Sheet2.cls
Normal file
0
VBA/DocumentModules/Sheet3.cls
Normal file
0
VBA/DocumentModules/Sheet3.cls
Normal file
0
VBA/DocumentModules/Sheet4.cls
Normal file
0
VBA/DocumentModules/Sheet4.cls
Normal file
0
VBA/DocumentModules/Sheet6.cls
Normal file
0
VBA/DocumentModules/Sheet6.cls
Normal file
0
VBA/DocumentModules/ThisWorkbook.cls
Normal file
0
VBA/DocumentModules/ThisWorkbook.cls
Normal file
180
VBA/Modules/modBOMProcessor.bas
Normal file
180
VBA/Modules/modBOMProcessor.bas
Normal file
@@ -0,0 +1,180 @@
|
||||
' ========================================
|
||||
' 模块: modBOMTest
|
||||
' 用途: 测试和使用BOM数据结构-同步测试2
|
||||
' ========================================
|
||||
Option Explicit
|
||||
|
||||
Sub TestBOMStructure()
|
||||
' 初始化BOM管理器
|
||||
Dim bomMgr As New clsBOMManager
|
||||
|
||||
' 加载数据(假设工作表名称)
|
||||
Dim wsConfig As Worksheet
|
||||
Dim wsPlatform As Worksheet
|
||||
|
||||
Set wsConfig = ThisWorkbook.Worksheets("领料配置")
|
||||
Set wsPlatform = ThisWorkbook.Worksheets("平台配置清单")
|
||||
|
||||
' 加载数据
|
||||
bomMgr.LoadData wsConfig, wsPlatform
|
||||
|
||||
' 打印类别树结构到新工作表
|
||||
Dim wsOutput As Worksheet
|
||||
On Error Resume Next
|
||||
Application.DisplayAlerts = False
|
||||
ThisWorkbook.Worksheets("BOM结构").Delete
|
||||
Application.DisplayAlerts = True
|
||||
On Error GoTo 0
|
||||
|
||||
Set wsOutput = ThisWorkbook.Worksheets.Add
|
||||
wsOutput.Name = "BOM结构"
|
||||
|
||||
'bomMgr.PrintCategoryTree wsOutput
|
||||
|
||||
Dim cats As Collection
|
||||
Dim i As Integer
|
||||
Set cats = bomMgr.GetRootCategories()
|
||||
For i = 1 To cats.Count
|
||||
Debug.Print cats(i).categoryName
|
||||
Next i
|
||||
|
||||
|
||||
|
||||
MsgBox "BOM数据结构加载完成!" & vbCrLf & _
|
||||
"请查看 'BOM结构' 工作表", vbInformation
|
||||
End Sub
|
||||
|
||||
' 示例: 获取特定类别的物料
|
||||
Sub GetCategoryMaterials()
|
||||
Dim bomMgr As New clsBOMManager
|
||||
Dim wsConfig As Worksheet, wsPlatform As Worksheet
|
||||
|
||||
Set wsConfig = ThisWorkbook.Worksheets("领料配置")
|
||||
Set wsPlatform = ThisWorkbook.Worksheets("平台配置清单")
|
||||
|
||||
bomMgr.LoadData wsConfig, wsPlatform
|
||||
|
||||
' 获取"部件"类别的物料(使用父类别)
|
||||
Dim Materials As Collection
|
||||
Set Materials = bomMgr.GetMaterialsForPicking("部件", True)
|
||||
|
||||
Debug.Print "部件类别物料数量(父类别): " & Materials.Count
|
||||
|
||||
' 获取"部件"类别的物料(使用子类别)
|
||||
Set Materials = bomMgr.GetMaterialsForPicking("部件", False)
|
||||
|
||||
Debug.Print "部件类别物料数量(子类别展开): " & Materials.Count
|
||||
|
||||
' 遍历物料
|
||||
Dim mat As clsMaterialItem
|
||||
For Each mat In Materials
|
||||
Debug.Print mat.code & " - " & mat.Name & _
|
||||
" | 数量:" & mat.Quantity & _
|
||||
" | 条件:" & mat.Condition
|
||||
Next mat
|
||||
End Sub
|
||||
|
||||
' 示例: 根据产品型号生成领料清单
|
||||
Sub GeneratePickingList()
|
||||
Dim bomMgr As New clsBOMManager
|
||||
Dim wsConfig As Worksheet, wsPlatform As Worksheet
|
||||
|
||||
Set wsConfig = ThisWorkbook.Worksheets("领料配置")
|
||||
Set wsPlatform = ThisWorkbook.Worksheets("平台配置清单")
|
||||
|
||||
bomMgr.LoadData wsConfig, wsPlatform
|
||||
|
||||
' 创建领料清单工作表
|
||||
Dim wsPickList As Worksheet
|
||||
On Error Resume Next
|
||||
Application.DisplayAlerts = False
|
||||
ThisWorkbook.Worksheets("领料清单").Delete
|
||||
Application.DisplayAlerts = True
|
||||
On Error GoTo 0
|
||||
|
||||
Set wsPickList = ThisWorkbook.Worksheets.Add
|
||||
wsPickList.Name = "领料清单"
|
||||
|
||||
' 写入表头
|
||||
Dim row As Long
|
||||
row = 1
|
||||
wsPickList.Cells(row, 1).Value = "代号"
|
||||
wsPickList.Cells(row, 2).Value = "名称"
|
||||
wsPickList.Cells(row, 3).Value = "类别"
|
||||
wsPickList.Cells(row, 4).Value = "数量"
|
||||
wsPickList.Cells(row, 5).Value = "选择条件"
|
||||
wsPickList.Cells(row, 6).Value = "领料方式"
|
||||
row = row + 1
|
||||
|
||||
' 遍历所有根类别
|
||||
Dim rootCats As Collection
|
||||
Set rootCats = bomMgr.GetRootCategories
|
||||
|
||||
Dim cat As clsCategory
|
||||
Dim Materials As Collection
|
||||
Dim mat As clsMaterialItem
|
||||
Dim i As Long, j As Long
|
||||
|
||||
For i = 1 To rootCats.Count
|
||||
Set cat = rootCats(i)
|
||||
' 默认使用父类别物料
|
||||
Set Materials = bomMgr.GetMaterialsForPicking(cat.categoryName, True)
|
||||
|
||||
For j = 1 To Materials.Count
|
||||
Set mat = Materials(j)
|
||||
wsPickList.Cells(row, 1).Value = mat.code
|
||||
wsPickList.Cells(row, 2).Value = mat.Name
|
||||
wsPickList.Cells(row, 3).Value = mat.Category
|
||||
wsPickList.Cells(row, 4).Value = mat.Quantity
|
||||
wsPickList.Cells(row, 5).Value = mat.Condition
|
||||
wsPickList.Cells(row, 6).Value = "父类别"
|
||||
row = row + 1
|
||||
Next j
|
||||
Next i
|
||||
|
||||
' 格式化表格
|
||||
wsPickList.Range("A1:F1").Font.Bold = True
|
||||
wsPickList.Columns("A:F").AutoFit
|
||||
|
||||
MsgBox "领料清单生成完成!", vbInformation
|
||||
End Sub
|
||||
|
||||
' 示例: 查询特定物料信息
|
||||
Sub QueryMaterialInfo()
|
||||
Dim bomMgr As New clsBOMManager
|
||||
Dim wsConfig As Worksheet, wsPlatform As Worksheet
|
||||
|
||||
Set wsConfig = ThisWorkbook.Worksheets("领料配置")
|
||||
Set wsPlatform = ThisWorkbook.Worksheets("平台配置清单")
|
||||
|
||||
bomMgr.LoadData wsConfig, wsPlatform
|
||||
|
||||
' 查询特定类别
|
||||
Dim cat As clsCategory
|
||||
Set cat = bomMgr.GetCategory("部件")
|
||||
|
||||
If Not cat Is Nothing Then
|
||||
Debug.Print "类别: " & cat.categoryName
|
||||
Debug.Print "父类别: " & cat.ParentCategoryName
|
||||
Debug.Print "物料数: " & cat.Materials.Count
|
||||
Debug.Print "子类别数: " & cat.SubCategories.Count
|
||||
Debug.Print "是否叶子类别: " & cat.IsLeafCategory
|
||||
|
||||
' 列出所有物料
|
||||
Dim mat As clsMaterialItem
|
||||
Dim i As Long
|
||||
For i = 1 To cat.Materials.Count
|
||||
Set mat = cat.Materials(i)
|
||||
Debug.Print " - " & mat.code & ": " & mat.Name
|
||||
Next i
|
||||
|
||||
' 列出所有子类别
|
||||
Dim subCat As clsCategory
|
||||
Dim j As Long
|
||||
For j = 1 To cat.SubCategories.Count
|
||||
Set subCat = cat.SubCategories(j)
|
||||
Debug.Print " 子类别: " & subCat.categoryName & _
|
||||
" (物料数:" & subCat.Materials.Count & ")"
|
||||
Next j
|
||||
End If
|
||||
End Sub
|
||||
65
VBA/vba_metadata.json
Normal file
65
VBA/vba_metadata.json
Normal file
@@ -0,0 +1,65 @@
|
||||
{
|
||||
"source_file": "C:\\Users\\Administrator\\Desktop\\新BOM\\AutoBOM\\YTHN-100.A0.532-BOM-1.2版 Claude.xlsm",
|
||||
"modules": {
|
||||
"ThisWorkbook.cls": {
|
||||
"name": "ThisWorkbook",
|
||||
"type": "DocumentModules",
|
||||
"attributes": {},
|
||||
"file": "DocumentModules\\ThisWorkbook.cls"
|
||||
},
|
||||
"Sheet3.cls": {
|
||||
"name": "Sheet3",
|
||||
"type": "DocumentModules",
|
||||
"attributes": {},
|
||||
"file": "DocumentModules\\Sheet3.cls"
|
||||
},
|
||||
"Sheet1.cls": {
|
||||
"name": "Sheet1",
|
||||
"type": "DocumentModules",
|
||||
"attributes": {},
|
||||
"file": "DocumentModules\\Sheet1.cls"
|
||||
},
|
||||
"Sheet2.cls": {
|
||||
"name": "Sheet2",
|
||||
"type": "DocumentModules",
|
||||
"attributes": {},
|
||||
"file": "DocumentModules\\Sheet2.cls"
|
||||
},
|
||||
"Sheet4.cls": {
|
||||
"name": "Sheet4",
|
||||
"type": "DocumentModules",
|
||||
"attributes": {},
|
||||
"file": "DocumentModules\\Sheet4.cls"
|
||||
},
|
||||
"clsCategory.cls": {
|
||||
"name": "clsCategory",
|
||||
"type": "ClassModules",
|
||||
"attributes": {},
|
||||
"file": "ClassModules\\clsCategory.cls"
|
||||
},
|
||||
"clsMaterialItem.cls": {
|
||||
"name": "clsMaterialItem",
|
||||
"type": "ClassModules",
|
||||
"attributes": {},
|
||||
"file": "ClassModules\\clsMaterialItem.cls"
|
||||
},
|
||||
"modBOMProcessor.bas": {
|
||||
"name": "modBOMProcessor",
|
||||
"type": "Modules",
|
||||
"attributes": {},
|
||||
"file": "Modules\\modBOMProcessor.bas"
|
||||
},
|
||||
"clsBOMManager.cls": {
|
||||
"name": "clsBOMManager",
|
||||
"type": "ClassModules",
|
||||
"attributes": {},
|
||||
"file": "ClassModules\\clsBOMManager.cls"
|
||||
},
|
||||
"Sheet6.cls": {
|
||||
"name": "Sheet6",
|
||||
"type": "DocumentModules",
|
||||
"attributes": {},
|
||||
"file": "DocumentModules\\Sheet6.cls"
|
||||
}
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user