Attribute VB_Name = "modRowCol"
'錄入數(shù)據(jù)，并生成數(shù)據(jù)文件
'數(shù)據(jù)文件格式：
'   1?！傲袛?shù)”占第1行的第1列，其余列用******填充，必須，自動獲取
'   2。“行數(shù)”占第2行的第1列，其余列用******填充，必須，自動獲取
'   3?！翱傂袛?shù)”占第3行的第1列，其余列用******填充，必須，自動計(jì)算
'   4。標(biāo)題，占第4行的第1列，其余列用******填充，可選，由用戶填寫
'   5。行標(biāo)，其所占行數(shù)與行數(shù)相同，只占第1列，其余列用******填充，可選，由用戶填寫
'   6。列標(biāo)，占1行的所有列，可選，由用戶填寫
'   7。數(shù)據(jù)部分，其所占行數(shù)與行數(shù)相同，占所有列，由用戶填寫
'在標(biāo)題、行標(biāo)、列標(biāo)中，標(biāo)題優(yōu)先，行標(biāo)其次。有行標(biāo)必須有標(biāo)題，有列標(biāo)必須有標(biāo)題、行標(biāo)
'
Option Explicit
Public intRow As Integer            '行數(shù)
Public intRowAll As Integer         '包括標(biāo)題、行標(biāo)和列標(biāo)的總行數(shù)
Public intCol As Integer            '列數(shù)
Public blnTitle As Boolean          '是否有標(biāo)題
Public blnRowLabel As Boolean       '是否有行標(biāo)
Public blnColLabel As Boolean       '是否有列標(biāo)
Public strFileName                  '文件名
Public intFileNumber As Integer     '文件號