VBA 读取数据创建选择分支，输出txt文档

'--専嶕忦審梡峔憿懱
Public Type SearchCondition
    col   As Integer  '--専嶕忦審楍偺巜掕
    val   As String   '--専嶕忦審楍偵懳墳偟偨専嶕忦審
End Type

'--慖戰巿掕媊梡峔憿懱
Public Type Choices
    strLstBox_SheetName As String           '--尦偺僨乕僞偑擖偭偰偄傞僔乕僩柤
    sc()                As SearchCondition  '--専嶕忦審偺巜掕梡乮code_id丄valid_flag偺俀抣傪専嶕忦審偵偡傞側偳乯
    chsPos              As String           '--擖椡僼僅乕儉偱偺慖戰巿昞帵埵抲乽A6:A300乿
End Type


Sub IN_FORM_CREATE()

    '-----------------------------------------------
    ' 曄悢仌掕悢掕媊
    '-----------------------------------------------
    '--曄悢掕媊(嫟捠)
    Dim f_flg As Integer
    f_flg = 0                           '弶婜抣=0
    
    '--曄悢掕媊(擖椡僼僅乕儉梡)
    Dim strInForm_SheetName As String   '僔乕僩柤
    Dim strInForm_FromRange As String   '僔乕僩傊偺僐僺乕尦CSV斖埻 斈梡惈偺偨傔抣奼挘(慡張棟嫟捠壜擻)
    Dim strInForm_ToRange As String     '僔乕僩傊偺僐僺乕愭婲揰僙儖 抣廋惓 斈梡惈(慡張棟嫟捠壜擻)
    Dim strInForm_ClearRange As String  '僔乕僩僋儕傾梡僙儖斖埻 斈梡惈偺偨傔抣奼挘(慡張棟嫟捠壜擻)
    
    strInForm_SheetName = "擖椡僼僅乕儉"
    
    '-- 慖戰巿偺掕媊
    Dim cs_prm(9)      As Choices                  '--慖戰巿偼堦偮

    '儊僯儏乕傊偺儕儗乕僔儑儞
    cs_prm(0).strLstBox_SheetName = "m_menu"        '--慖戰巿偺婎偵側傞僨乕僞偑擖偭偰偄傞僔乕僩
    cs_prm(0).chsPos = "c:c"                        '--擖椡僼僅乕儉偱偺慖戰巿昞帵埵抲乽A6:GZ300000乿
    
    '壙奿僌儖乕僾傊偺儕儗乕僔儑儞
    cs_prm(1).strLstBox_SheetName = "m_price_group" '--慖戰巿偺婎偵側傞僨乕僞偑擖偭偰偄傞僔乕僩
    cs_prm(1).chsPos = "d:d"                        '--擖椡僼僅乕儉偱偺慖戰巿昞帵埵抲乽A6:GZ300000乿
    
    '攝怣廔椆抣扨埵
    cs_prm(2).strLstBox_SheetName = "m_code_item"   '--慖戰巿偺婎偵側傞僨乕僞偑擖偭偰偄傞僔乕僩
    ReDim cs_prm(2).sc(1) As SearchCondition        '--専嶕忦審偺屄悢
    cs_prm(2).sc(0).col = 2                         '-- code_id 傪専嶕忦審偵巜掕
    cs_prm(2).sc(0).val = 60032                     '-- code_id =4
    cs_prm(2).chsPos = "h:h,k:k"                    '--擖椡僼僅乕儉偱偺慖戰巿昞帵埵抲乽A6:GZ300000乿
    
    '掱搙
    cs_prm(3).strLstBox_SheetName = "m_code_item"    '--慖戰巿偺婎偵側傞僨乕僞偑擖偭偰偄傞僔乕僩
    ReDim cs_prm(3).sc(1) As SearchCondition         '--専嶕忦審偺屄悢
    cs_prm(3).sc(0).col = 2                          '-- code_id 傪専嶕忦審偵巜掕
    c