Worksheets(\用料录入\2).Formula = \& wenjianming & \用料录入!R\
Wend
k1 = k1 + n - 1
k2 = k2 + n - 1
n = n + 1
Worksheets(\用料录入\用料录入!R\n & \
While Worksheets(\用料录入\ '开始导入材料用量数据
If Worksheets(\用料录入\2).Value <> 0 And Worksheets(\用料录入\
For i = 1 To 6
Worksheets(\用料录入\用料录入!R\
Worksheets(\用料录入\i).Value = Worksheets(\用料录入\
If Worksheets(\用料录入\i).Value = 0 Then Worksheets(\用料录入\
Next
va1 = va1 + 1
Else
For i = 2 To 6
Worksheets(\用料录入\用料录入!R\
Worksheets(\用料录入\i).Value = Worksheets(\用料录入\
If Worksheets(\用料录入\i).Value = 0 Then Worksheets(\用料录入\
Next
End If
For i = 2 To 6
Worksheets(\用料录入\
Next
If n1 = 40 Then
a1 = \有大量空行数据，是否继续执行导入操作?\
a1 = a1 & \是' 继续导入数据.\
a1 = a1 & \否' 终止导入数据.\
a1 = a1 & \取消' 继续导入数据,不再提示.\
v = MsgBox(a1, 35, \数据导入中??\
If v = 7 Then GoTo w10
If v = 2 Then n2 = 1
n1 = 0
End If
If Worksheets(\用料录入\
k1 = k1 + 1
k2 = k2 + 1
n = n + 1
Worksheets(\用料录入\2).Formula = \& wenjianming & \用料录入!R\
Wend
w10: Worksheets(\用料录入\
'导入定位符
rt_1: v = MsgBox(\、用料数据导入完毕,是否继续导入定位符?\数据导入中??\
Worksheets(\用料录入\
If v = 6 Then
n = 2 '本表的定位符位置
While Worksheets(\统计分析\
n = n + 1
Wend
n1 = 2
n2 = n1 + n - 2
Worksheets(\用料录入\2).Formula = \& wenjianming & \统计分析!R\
Worksheets(\用料录入\2).Value = Worksheets(\用料录入\2).Value
If Worksheets(\用料录入\2).Value = 0 Then Worksheets(\用料录入\
While Worksheets(\用料录入\用料录入\
Worksheets(\统计分析\统计分析!R\
Worksheets(\统计分析\统计分析\16).Value
Worksheets(\统计分析\统计分析!R\
Worksheets(\统计分析\统计分析\17).Value + asrd - 2
Worksheets(\统计分析\统计分析!R\
Worksheets(\统计分析\统计分析\18).Value
If Worksheets(\用料录入\统计分析\17).Value, Worksheets(\统计分析\
Worksheets(\用料录入\统计分析\17).Value, Worksheets(\统计分析\
Worksheets(\统计分析\
va2 = va2 + 1
n1 = n1 + 1
n2 = n1 + n - 2
Worksheets(\用料录入\2).Formula = \& wenjianming & \统计分析!R\
Worksheets(\用料录入\2).Value = Worksheets(\用料录入\
Wend
Call dingwei
End If
'导入本表中没有的材料
v = MsgBox(\、定位符数据导入完毕,是否继续导入材料库数据?\数据导入中??\
If v = 6 Then
Call cailiao
ax = 1 '判定是否有不同的材料
n = 2 '本表的定位符位置
ak = 0 '判断是否有多个余量系数 0没有 1有
Worksheets(\用料录入\2).Formula = \& wenjianming & \材料管理!R\
Worksheets(\用料录入\2).Value = Worksheets(\用料录入\2).Value
If Worksheets(\用料录入\余量系数1\判断导入材料的版本
Worksheets(\用料录入\2).Formula = \& wenjianming & \材料管理!R\
Worksheets(\用料录入\2).Value = Worksheets(\用料录入\2).Value
If Worksheets(\用料录入\2).Value = 0 Then Worksheets(\用料录入\
While Worksheets(\用料录入\alue <> \
For i = 1 To clgeshu
If Worksheets(\用料录入\
ax = 0
Exit For
Else
ax = n
End If
Next
If ax <> 0 Then '导入的材料进行名称排列
axx = yhclgeshu + 2
acd1 = Left(Worksheets(\用料录入\alue, 2) ' 得到添加材料名称的前两个字符
For i = 1 To clgeshu
acd2 = Left(Worksheets(\材料管理\+ 1, 1).Value, 2) ' 得到材料管理中材料名称的前两个字符
If acd1 = acd2 Then
Worksheets(\材料管理\
axx = i + 1 '插入材料的位置
Exit For
End If
Next
clgeshu = clgeshu + 1
yhclgeshu = yhclgeshu + 1
va3 = va3 + 1
Worksheets(\材料管理\1).Value = Worksheets(\用料录入\
Worksheets(\材料管理\材料管理!R\
Worksheets(\材料管理\2).Value = Worksheets(\材料管理\
Worksheets(\材料管理\材料管理!R\
Worksheets(\材料管理\3).Value = Worksheets(\材料管理\
If ak = 0 Then '导入2.3以前版本材料
Worksheets(\材料管理\\材料管理!R\
Worksheets(\材料管理\4).Value = Worksheets(\材料管理\
Worksheets(\材料管理\
Worksheets(\材料管理\
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库Vba读取已关闭的Excel工作薄数据(2)在线全文阅读。
相关推荐：