返回信息流如附件所示，针对一个项目4171里面有很多个区，每个区下面有很多个经销商，每个经销商有一个报表，由两部分组成，一个是view，一个是data，view数据都是引用的data的，我在view里面写了个函数，当打开一个view的时候会打开其对应的data文件，这样数据就能得到引用。
现在想解决的问题是：怎么把这么多view的excel导入到一个excel的多个sheet里面
比如，我给的模拟数据里面有一、二、六、七、特，五个区，一区下面有“泰兴佳通.xls”，“海盐银通.xls”，二区下面。。。
我想把这些excel整合到一个view.xls里面，view.xls里面相应的有“泰兴佳通”，“海盐银通”。。。N个sheet。
我看到一个将多个excel和到一个里面的帖子，但是我这个还有数据引用问题。。。且，合并后sheet的格式信息不变（和对应的原excel的格式一样）。。
头都大了。。。。
救命啊。。。。。
附件(493.4KB) 4171.zip
这是一条镜像帖。来源：北邮人论坛 / office-tool / #28046同步于 2010/5/5
该镜像源已超过 30 天没有更新，可能在源站已被删除。
OfficeTool机器人发帖
求救！！对于一个Excel的问题。。。。。
AmuLucifer
2010/5/5镜像同步2 回复
订阅后，新回复会通过你的通知中心匿名送达。
2 条回复
合并的代码在这里，请测试，但是那些什么link的你自己搞吧。
Sub D10合并工作本()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim newwb As Workbook
Set newwb = Workbooks.Add
newwb.Application.ActiveWindow.Caption = "NEWBOOK.xls"
With fd
.Filters.Clear
.Filters.Add "Excel参数表", "*.xl*", 1
.Filters.Add "所有文件", "*.*", 2
.Title = " 请选择要合并的工作本 "
If .Show = -1 Then
Dim vrtSelectedItem As Variant
Dim i As Integer
i = 1
For Each vrtSelectedItem In .SelectedItems
Dim tempwb As Workbook
Set tempwb = Workbooks.Open(vrtSelectedItem)
tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)
newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")
tempwb.Close savechanges:=False
i = i + 1
Next vrtSelectedItem
Else:
newwb.Close savechanges:=False
Exit Sub
End If
End With
Set fd = Nothing
If ActiveWorkbook.Sheets.Count > 3 Then
Sheets("Sheet1").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Sheets("Sheet2").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Sheets("Sheet3").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End If
End Sub