代码运行没错，为什么没有值？

小鹿一样

请教各位老师，我需要复制子文件夹下对应excel文件第一列文件名的第 三 六 九 十二列数字到目标excel中。为什么代码不运行呢？

kimmyyang

给自己挖的坑不少啊，好好看看，你的sheets(1)真的是你的目标位置？

fanyoulin

有几个明显的错误，我把你代码全部复制在下面并给你修改了：Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set fso = CreateObject("scripting.filesystemobject")
Set ff = fso.getfolder("C:\Users\Ting\Desktop\test\9.13")

    For Each f In ff.Files
    For i = 6 To 21
    If Left(ThisWorkbook.Sheets(2).Cells(i, 1).Value, 1) = Left(f.Name, 1) Then   '是第二个表，第一个表是 360Qex，把sheets(1)改成sheets(2)

    Set wo = Workbooks.Open(f)
'    r = wo.Sheets(1).Cells(wo.Rows.Count, 1).End(xlUp).Row    '这一行不对，用下面的写法
     r = wo.Sheets(1).[a10000].End(xlUp).Row

     ThisWorkbook.Sheets(2).Cells(i, 2) = wo.Sheets(1).Cells(r - 1, 3)    '我建议的写法，你原来的用法仍然保留了，你对比下效果
     ThisWorkbook.Sheets(2).Cells(i, 3) = wo.Sheets(1).Cells(r, 3)         '这种写法不会把格式带过来，复制会把主表的排版搞得很混乱
     wo.Sheets(1).Cells(r - 1, 6).Copy Destination:=ThisWorkbook.Sheets(2).Cells(i, 6)
     wo.Sheets(1).Cells(r, 6).Copy Destination:=ThisWorkbook.Sheets(2).Cells(i, 7)
     wo.Sheets(1).Cells(r - 1, 9).Copy Destination:=ThisWorkbook.Sheets(2).Cells(i, 10)
     wo.Sheets(1).Cells(r, 9).Copy Destination:=ThisWorkbook.Sheets(2).Cells(i, 11)
     wo.Sheets(1).Cells(r - 1, 12).Copy Destination:=ThisWorkbook.Sheets(2).Cells(i, 14)
     wo.Sheets(1).Cells(r, 12).Copy Destination:=ThisWorkbook.Sheets(2).Cells(i, 15)
     wo.Close True
        End If
        Next
        Next

            Application.ScreenUpdating = True
End Sub

我是来讨说法的

sheets(1)是从左往右的第一个sheet表
sheets("1")是工作表的名称(name属性)为1的工作表
sheets1是工作表的 名称属性 为sheet1的工作表

小鹿一样

fanyoulin 发表于 2019-10-16 15:37
有几个明显的错误，我把你代码全部复制在下面并给你修改了：Application.ScreenUpdating = False
Applicat ...

谢谢！ 我才看到工作簿隐藏了一个工作表，真的很奇怪，不会是病毒吧。。之前都没注意的。。

小鹿一样

kimmyyang 发表于 2019-10-16 15:12
给自己挖的坑不少啊，好好看看，你的sheets(1)真的是你的目标位置？

才注意到隐藏了一个工作表。。。我都没有注意到。。谢谢啊。

小鹿一样

我是来讨说法的 发表于 2019-10-16 15:40
sheets(1)是从左往右的第一个sheet表
sheets("1")是工作表的名称(name属性)为1的工作表
sheets1是工作表 ...

谢谢指导。。那个工作表隐藏了 没看到 谢谢