带表单控件的几个工作簿合并成一个工作簿

xyz76543

由于病人隐私和科研保密的原因，我将数据简化了。里面有三种表单控件。
我用excel2007，使用“移动或复制工作表”可以实现工作簿合并，但是问题是其中的表单控件的“数据源区域”会出现如“[2.xls]参数!$A$3A$4”这样的带有工作簿名称“[2.xls]”的引用，如何能不出现“[2.xls]”。或者有没有一个宏，能批量删除表单控件的“数据源区域”中的“[2.xls]”字符？

liwen

Sub Macro1()
On Error Resume Next
For j = 6 To Sheets.Count
Sheets(j).Select
For i = 0 To ActiveSheet.Shapes.Count
    ActiveSheet.Shapes(i).Select
    Application.CutCopyMode = False
    With Selection
    If Left(.ListFillRange, 7) = "[2.xls]" Then
    .ListFillRange = Mid(.ListFillRange, 8)
   End If
   '     .LinkedCell = "$L$18"
   '     .DropDownLines = 8
   '     .Display3DShading = True
    End With
    Next
    Next
End Sub

liwen

操作：
通过录制宏可获得更改数据源的代码，通过分析代码再加入循环设置和判断，从而更改全部需要更改的地方。