对应数据表导入无法切换页

richard0238

前提，想将data中的数据导入到vba这个文件中。
比如data的A页导入到VBA的A页，B页到B页。保证每个工作簿都一一对应的导入进数据   
例子是3个页的文件，每页分别有7，6，5行数据。

问题：发现只导入第一页的数据，第2页，第3页数据读取了，但并没有写入VBA这个文件，为什么呢？该如何解决？
（用range("a11"）=lr,看了下，显示为5，也就是第3页表的行数，读取了，但没写到新文件对应位置。。）
两个文件在附件中，请高人帮忙，谢谢。

For Each sht In wb.Sheets
        With sht
            lc = .Range("IV1").End(xlToLeft).Column
            arr = .Range("a1").Resize(1, lc)
            lr = .Range("a65536").End(xlUp).Row
            If lr > 1 Then
                brr = .Range("a2").Resize(lr - 1, lc)
                For i = 1 To lc
                    If d(arr(1, i)) <> "" Then
                    sht.Select
                    Cells(2, d(arr(1, i))).Resize(lr - 1) = WorksheetFunction.Index(brr, 0, i)
                    End If
                Next
            End If
        End With
    Next

richard0238

Cells(2, d(arr(1, i))).Resize(lr - 1) = WorksheetFunction.Index(brr, 0, i)
自己想了下，在这行前加了sht.Select，就是想选中目前激活的页进行写入，但为什么还是不成功呢？

我在想是不是这个选中是只被打开文件的这个页被选中？而当前vba这个文件依旧只是选中目前打开时的那一页！？
请高人解释。

lb_bn

For Each sht In wb.Sheets
        With sht
            lc = .Range("IV1").End(xlToLeft).Column
            arr = .Range("a1").Resize(1, lc)
            lr = .Range("a65536").End(xlUp).Row
            If lr > 1 Then
                brr = .Range("a2").Resize(lr - 1, lc)
                For i = 1 To lc
                    If d(arr(1, i)) <> "" Then
                    .Cells(2, d(arr(1, i))).Resize(lr - 1) = WorksheetFunction.Index(brr, 0, i)
                    End If
                Next
            End If
        End With
    Next

这样？？？

richard0238

不行的，如果用.Cells(2, d(arr(1, i))).Resize(lr - 1) = WorksheetFunction.Index(brr, 0, i)那么任何数据都无法导入了，可能是cells前加不了"."？？我也不知道。。。

richard0238

ActiveWorkbook.sht.Select我也试过了，结果是打开了要导入的data文件。。。

zhaogang1960

这个代码主体是我以前写的，代码要在工作表代码区运行，Cells前面没有加工作表对象是指本工作表
而sht是打开工作簿中的一个工作表(For Each sht In wb.Sheets)
如果代码在模块中运行，数据就写进打开工作簿中被激活的那个工作表了，由于后面有一个wb.Close False不保存关闭，数据不会被保存
如果要将数据保存到指定工作表，可以在Cells前面指定工作表对象
如：ThisWorkbook.Sheets("Sheet2").Cells(2, d(arr(1, i))).Resize(lr - 1) = WorksheetFunction.Index(brr, 0, i)

richard0238

我的代码是放在工作表代码区运行呀。。。。
我按你说的放在木块中，并加入了ThisWorkbook.Sheets("Sheet2").，将"sheet2"改为了sht，结果无法运行。。。

zhaogang1960

“将"sheet2"改为了sht”是不对的
在For Each sht In wb.Sheets循环中，sht是打开工作簿中的一个工作表
要指定一个本工作簿工作表对象，6楼中工作表对象前面加上了一个ThisWorkbook就是指本工作簿
可以这样：

For Each sht In wb.Sheets
  ……

ThisWorkbook.Sheets(sht.name).Cells(2, d(arr(1, i))).Resize(lr - 1) = WorksheetFunction.Index(brr, 0, i)
'在使用ThisWorkbook.Sheets(sht.name)之前最好加上一个判断这个工作表是否存在
……
next

richard0238

太感谢了，测试成功，非常感谢前辈的指点。

richard0238

又出问题了，本来好好的3个页面都可以导入了的。。。
结果现在又无法使用了。。。
第一个页面可以全部导入，第二个页面什么都不导入，第三个页面导入2个数据。。。

这也太灵异了，开始导入好好的都成功了的，请专家看看附件。