Question

excel vba高手来 数据提取问题

我现在有两个Excel表格
其中一个Excel表格名字叫做“2015年5月19日XX部门利润”，在里面的“XX部门利润”Sheet中，有今天的日期2015年5月20日（A1）和相关的利润数据（B1），这个Excel是每天更新的，明天就是“2015年5月20日XX部门利润”，其中的日期和日润也会相应改变。
我现在有另一个Excel文件，名字叫做“每日数据更新”，我想要在这个文件的"表格数据"Sheet里自动提取昨日的最新数据（如5月20日提取"2015年5月19日XX部门利润"中的“XX部门利润”Sheet中B1数据到这个表格"表格数据"中的B1）。
请问什么样的VBA代码可以实现，万分感谢！
补充一下，每日更新的“2015年5月19日XX部门利润”中数据在B1，每日更新的“2015年5月20日XX部门利润”中数据就在B2了

Answer 1

你是不是考虑复杂了？这个直接用日期函数就可以实现的呀。每日数据更新表中，用NOW（）函数使日期自动更新，再利用查询函数便可从另外一张表中查询到所要的数据。再如果你的“……利润表中数据也是每日都有记录且有规律，那就更简单了，用日期计算出所要的数据所在行，直接用INDEX函数调用数据就行了

追问

我只要能够实现的VBA代码啊，思路其实有很多的，谢谢啦

Answer 2

Sub xx()
    On Error Resume Next
    ph = ThisWorkbook.Path & "\"
    fn = Format(Date - 1, "yyyy年m月d日") & "XX部门利润.xlsx"
    If Workbooks(fn) Is Nothing Then
        Workbooks.Open ph & fn
    End If
    ThisWorkbook.Sheets("每日数据更新").[b1] = Workbooks(fn).Sheets("XX部门利润").[b1]
    Workbooks(fn).Close False
End Sub

追问

我好像失败了，数据没变。。

追答

文件名没问题吗？
excel什么版本的

追问

版本是2010，要不你加我Q Q吧 421194587 我给你截图

追答

10版应该不会有问题，我自己电脑上试过的

Answer 3

看起来不难，可看不到文件格式，还真不知道从哪说起。

追问

这和文件格式没有关系啊 都是Excel表格 我觉得我描述的很清楚啦