如何通过VFP程序合并EXCEL表格 - 编程论坛

#2

sdta2021-02-28 08:48

对VFP而言，楼主的问题不是问题

合并后的数据，还是在EXCEL中显示吗？
只有两个EXCEL工作簿？
两个EXCEL合并后，摘要排序的规则是什么？

[此贴子已经被作者于2021-2-28 10:28编辑过]

#3

tonytg2021-02-28 10:29

回复 2楼 sdta

如果用VFP合并，就希望在VFP中显示合并结果，当然需要时也可以导出成为EXCEL表格

#4

tonytg2021-02-28 10:35

回复 2楼 sdta

摘要不需要排序，按日期排序就可以了

#5

吹水佬2021-02-28 11:24

个人觉得：在日记账表增加一个“开户名称”或“开户编码”字段作为合并表比较好处理
可以按“开户名称”查询、分类、统计、排序等，应对开户的变动更加灵活，看起来更简洁直观

#6

sdta2021-02-28 12:54

先在VFP中生成下面的格式

只有本站会员才能查看附件，请登录

#7

wengjl2021-03-01 12:12

@tonytg 你提供的测试数据只有2个银行，按你的C表的处理，随着行的增加要不断增加表的字段，这对数据处理是非常不便的。应当考虑5楼吹版的建议，这样可以使表的字段是固定的，统计处理会变得简易。

你这个数据合并，也可以用EXCEL的宏来处理，也很简单的

[此贴子已经被作者于2021-3-1 12:13编辑过]

#8

wengjl2021-03-04 08:37

程序代码：

Sub 出纳日记帐hz()

   '汇总A表，用整体复制粘贴法

   Sheet3.Select
   Cells(4, 4).Value = "年初结余"
   For i = 1 To 2     '--如果有5个出纳帐，则将此处的循环结束值修改为5
     Sheet3.Cells(4, 7).Value = Sheet3.Cells(4, 7).Value + Sheets("出纳" & i).Cells(4, 7).Value
   Next i     ' 将每个出纳的“年初结余”合在一起，写入到汇总表的结余栏中
   '---
   Sheet1.Select
   x1 = 5
   Do While Not (IsEmpty(Sheet1.Cells(x1, 1).Value))
     x1 = x1 + 1
   Loop
   Range(Cells(5, 1), Cells(x1, 7)).Select
   Selection.Copy
   Sheet3.Select
   Range("A5").Select
   ActiveSheet.Paste
   Sheet3.Cells(4, 2).Value = ""
   Sheet3.Cells(4, 3).Value = ""
   '---完成将出纳1的日记帐复制粘贴到汇总表上
   Sheet2.Select
   x2 = 5
   Do While Not (IsEmpty(Sheet2.Cells(x2, 1).Value))
     x2 = x2 + 1
   Loop
   Range(Cells(5, 1), Cells(x2, 7)).Select
   Selection.Copy
   Sheet3.Select
   Range("A" & x1).Select
   ActiveSheet.Paste
   '---完成将出纳2的日记帐复制粘贴到汇总表上
   x3 = 5
   Do While Not (IsEmpty(Sheet3.Cells(x3, 1).Value))
     N_sr = Sheet3.Cells(x3, 5).Value
     N_zc = Sheet3.Cells(x3, 6).Value
     Sheet3.Cells(x3, 7).Value = Sheet3.Cells(x3 - 1, 7).Value + N_sr - N_zc
     x3 = x3 + 1
   Loop    '--对每日结余额进行重算

End Sub

只有本站会员才能查看附件，请登录

#9

wengjl2021-03-04 08:38

这是用EXCEL的宏来解决的

#10

radiofan2021-03-05 08:46

以下是引用wengjl在2021-3-4 08:38:19的发言：

这是用EXCEL的宏来解决的

高手！