为什么总提示下标越界，如何修改 5
Application.ScreenUpdating=FalseApplication.Calculation=xlCalculationManualApplicatio...
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
For i = 1 To 78
Workbooks.Open Filename:="D:\固定资产\固定资产\2017年\201712\分公司上报\" & a(i) & ".xls"
Sheets("固定资产").Select
Range("A1:V1000").Copy
ThisWorkbook.Activate
Sheets(a(i)).Select
Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
fms = a(i) & ".xls"
Windows(fms).Close savechanges = False 展开
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
For i = 1 To 78
Workbooks.Open Filename:="D:\固定资产\固定资产\2017年\201712\分公司上报\" & a(i) & ".xls"
Sheets("固定资产").Select
Range("A1:V1000").Copy
ThisWorkbook.Activate
Sheets(a(i)).Select
Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
fms = a(i) & ".xls"
Windows(fms).Close savechanges = False 展开
展开全部
你这个就是复制数据，粘贴为 数值，到各个分表
在代码窗口，
按F8一句一句的运行，检查
在代码窗口，
按F8一句一句的运行，检查
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
