如何从一个文件夹中查找多个excel表格内容
3个回答
展开全部
找一个空表 右击sheet1查看代码 在代码中输颤绝入
Sub 工作薄间工作表合并()
Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")X = 1While X <= UBound(FileOpen)Workbooks.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Sub
errhadler:MsgBox Err.DescriptionEnd Sub
然后在弹出的对话框中选中所桥颤有你需要合并的表格
这是我收藏茄消姿的一个合并工作簿的方法不知道是否能帮到你
Sub 工作薄间工作表合并()
Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")X = 1While X <= UBound(FileOpen)Workbooks.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Sub
errhadler:MsgBox Err.DescriptionEnd Sub
然后在弹出的对话框中选中所桥颤有你需要合并的表格
这是我收藏茄消姿的一个合并工作簿的方法不知道是否能帮到你
展开全部
1、可建立公式链接。
2、也可把几个表放在一个excel表中。
2、也可把几个表放在一个excel表中。
追问
能不能具体点 我不急 5元是你的
追答
最好有示例的表格。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
可以使用 函数vlookup 表嵌套
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询