恳请高手师傅们帮忙解决一个导入的问题

qiongmei6

我附件有2个文件，这两个文件所有的工作表的格式都是一样的，其中工作簿文件的名称是不固定的，但是工作簿“2“的名称是固定的，我希望得到一个程序，当他执行的时候，他在“文件”工作簿中的“月无工资产事假名单”会自动寻找”2"工作簿中“月无工资产事假名单”中b2：f30的内容到“文件”工作簿中，之前我用以下的代码
Temp = "'" & ThisWorkbook.Path & "\[2.xls]月无工资产事假名单'!"
    With Sheet6.Range("b2：f30")
        .FormulaR1C1 = "=" & Temp & "RC"
        .Value = .Value
        .Replace 0, "", xlWhole
来导入的，但是现在使用这个代码，b2：b30出现链接公式了，我希望他得到和“2”工作簿中“月无工资产事假名单”工作表一模一样的数据，谢谢各位高手师傅的帮忙。

长安布衣

在代码最后加上代码，选择工作表区域，复制，粘贴为数值
或者，手工选择区域，复制、粘贴为数值

洋务德雷

看一下吧，这个简单。也可以不用使用vba，直接使用sql也可以实现