excel vba高手来数据提取问题

2024-10-16 04:56:19

推荐回答（3个）

回答1：

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

回答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

回答3：

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

excel vba高手来 数据提取问题

excel vba高手来数据提取问题