请教各位老师：如何将多个工作簿的内容按要求，导入到另一工作簿中对应的工作表里

wujunkaim

请教各位老师：
一、将工作簿“学校信息2”的数据~，工作簿“汇总”里的sheet2；
二、将工作簿“学校信息6”A-T的列数据全部导入，工作簿“汇总”里的sheet6；
三、将工作簿“学校信息5”的部分数据导入，工作簿“汇总”里的sheet5；
并且将工作簿“学校信息5”中（B、F、H、O、P）列从第九行开始的数据，分别全部填入，工作簿“汇总”里的sheet5的（A、B、C、D、E)列


这是我写的打开文件，导入数据源的代码，后面要如何写才能实现上面说的效果啊。

Private Sub CommandButton1_Click()
Files = Application.GetOpenFilename(filefilter:="基础数据文件(*.xls;*.xlsx),*.xls;*.xlsx", FilterIndex:=1, Title:="选择要导入的文件", MultiSelect:=True)
    If Not IsArray(Files) Then
        MsgBox "没有选择要导入的文件"
        Exit Sub
    End If
End Sub

wujunkaim

顶一下，要沉了

cui26896

导入数据
导入数据到对应的sheet.zip (54.88 KB, 下载次数: 29)

2020-1-5 21:07 上传

点击文件名下载附件

wujunkaim

cui26896 发表于 2020-1-5 21:07
导入数据

非常感谢，您的指展！

cui26896

wujunkaim 发表于 2020-1-6 14:41
非常感谢，您的指展！

顺带给你提点建议，每个工作簿都只有一个工作表，应该把表名统一起来，这样便于写代码，没必要三个工作簿的各一张表，表名都不相同。

wujunkaim

cui26896 发表于 2020-1-6 15:00
顺带给你提点建议，每个工作簿都只有一个工作表，应该把表名统一起来，这样便于写代码，没必要三个工作簿 ...

谢谢您建议，我现在只会点VBA，看您里面好像有SQL的内容，我学起来有点吃力，不过还是要感谢您