想做个可以按日期调取数据并分别求和，同时可以导出所调取数据到另个表

limao720605

各位老大老师：

   想做个可以按日期调取数据并分别求和，同时可以导出所调取数据到另个表
    有附件和图示

limao720605

老师们，，，我这个导出使用在给我领导上传单独新的Excel

ykcbf1100

日报查询写好了。。。

limao720605

ykcbf1100 发表于 2025-12-1 19:38
日报查询写好了。。。

老师，，，怎么导出呢？

ykcbf1100

报销查询也写好了。。。

ykcbf1100

1. Sub ykcbf2()   '//2025.12.1
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     p = ThisWorkbook.Path & Application.PathSeparator
   
5.     arr = Sheets("报销汇总").UsedRange.Value
   
6.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
7.     xm = "报销查询"
   
8.     On Error Resume Next
   
9.     With Sheets(xm)
   
10.         rq1 = .[d8].Value
    
11.         rq2 = .[f8].Value
    
12.         For i = 2 To UBound(arr)
    
13.             rq = CDate(Split(arr(i, 1))(0))
    
14.             If rq >= rq1 And rq <= rq2 Then
    
15.                 m = m + 1
    
16.                 brr(m, 1) = CDate(arr(i, 1))
    
17.                 For j = 2 To UBound(arr, 2)
    
18.                     brr(m, j) = arr(i, j)
    
19.                 Next
    
20.             End If
    
21.         Next
    
22.         .[a12:g10000].ClearContents
    
23.         .[a12].Resize(m, UBound(arr, 2)) = brr
    
24.     End With
    
25.     Sheets(xm).Copy: Set wb = ActiveWorkbook
    
26.     With wb.Sheets(1)
    
27.         .Name = xm
    
28.         .DrawingObjects.Delete
    
29.     End With
    
30.     wb.SaveAs p & xm & ".xlsx", 51
    
31.     wb.Close False
    
32.     Application.ScreenUpdating = True
    
33. End Sub
    
34. 
    

复制代码

ykcbf1100

limao720605 发表于 2025-12-1 19:41
老师，，，怎么导出呢？

一键完成数据查询+工作表导出。
导出的工作表文件在当前目录下。

limao720605

ykcbf1100 发表于 2025-12-1 19:49
一键完成数据查询+工作表导出。
导出的工作表文件在当前目录下。

老师，，，导出最好另存为那样的

limao720605

ykcbf1100 发表于 2025-12-1 19:49
一键完成数据查询+工作表导出。
导出的工作表文件在当前目录下。

也就是说，，，点导出弹出另存为某某盘符Excel格式

ykcbf1100

limao720605 发表于 2025-12-1 20:00
也就是说，，，点导出弹出另存为某某盘符Excel格式

导出的是Excel文件，你可以看一下。