合并报表：用友U8多家子公司报表合并思路及实操

505600595

一般的思路和步骤如下。

1. 获取科目余额表数据：
- 使用用友U8系统导出科目余额表的数据，保存为Excel或其他可读取的文件格式。

2. 数据处理与调整分录生成：
- 使用编程语言（如Python）读取科目余额表数据。
- 对于需要调整的子公司，根据需要生成相应的调整分录。这可能涉及到合并抵消、调整差异等操作，具体根据财务准则和公司要求进行处理。
- 将调整分录数据整理成合适的格式，例如将调整分录数据保存为Excel或其他文件格式。

3. 合并报表生成：
- 使用编程语言读取母公司和子公司的调整分录数据。
- 根据财务准则和公司要求，对调整分录数据进行合并计算，生成合并资产负债表、合并利润表、合并现金流量表和合并权益变动表。
- 将合并报表数据整理成合适的格式，例如保存为Excel或其他文件格式。

请有实操经验的跟帖讨论，谢谢

505600595

任务一：合并的逻辑框架

1. 公司层次关系
   - Company1 (母公司)
   - Company2-6 (Company1全资控股)
   - Company7 (Company1持有48%股份)

2. 合并报表的顺序
   - 首先，对Company7进行按照比例合并，将其纳入Company1的范围。
   - 然后，逐层合并Company2-6到Company1，按照全资控股的关系。

任务二：合并报表的公司

合并报表的公司包括Company1、Company2、Company3、Company4、Company5、Company6和Company7。

任务三：使用SQL写代码，从各账套取数，并合并

以下是从各账套取数并合并的示例SQL代码：

```sql
-- 公司1（母公司）
SELECT * FROM Company1.[表名]

-- 公司2-6（全资控股）
SELECT * FROM Company2.[表名]
UNION ALL
SELECT * FROM Company3.[表名]
UNION ALL
SELECT * FROM Company4.[表名]
UNION ALL
SELECT * FROM Company5.[表名]
UNION ALL
SELECT * FROM Company6.[表名]

-- 公司7（48%股份）
SELECT * FROM Company7.[表名]
```

根据具体情况，将上述代码中的[表名]替换为对应的表名，执行SQL语句后，可以获取各账套的数据，并按需要进行合并。

任务四：写段VBA代码，将系统导出的带核算项目余额表报表整理合并

以下是一个示例的VBA代码，用于整理合并系统导出的带核算项目余额表报表：

```vba
Sub MergeBalanceSheet()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currRow As Long
   
    ' 打开系统导出的带核算项目余额表报表
    Set wb = Workbooks.Open("报表文件路径")
    Set ws = wb.Worksheets("报表名称")
   
    ' 获取最后一行
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
   
    ' 从第2行开始逐行处理
    For currRow = 2 To lastRow
        ' 获取公司名称列的数值
        Dim companyName As String
        companyName = ws.Cells(currRow, 1).Value
        
        ' 根据公司名称进行合并操作
        Select Case companyName
            Case "Company1"
                ' 合并到Company1的相关逻辑
                ' ...
               
            Case "Company2", "Company3", "Company4", "Company5", "Company6"
                ' 合并到Company2-6的相关逻辑
                ' ...
               
            Case "Company7"
                ' 合并到Company7的相关逻辑
                ' ...
        End Select
    Next currRow
   
    ' 关闭报表文件
    wb.Close SaveChanges:=False
End Sub
```

需要根据实际情况，根据报表结构和合并要求，编写相关的逻辑代码来实现报表的整合与合并操作。

请注意，以上代码只是一个示例，具体的代码细节需要根据实际情况进行调整和完善。

505600595

在Excel中编写VBA代码，可以通过使用用友U8提供的API来提取多个账套的科目余额表、资产负债表、利润表和现金流量表。下面是一个示例代码，可以帮助你开始：

首先，你需要在VBA编辑器中添加对用友U8的引用。在VBA编辑器中，选择"工具" -> "引用"，然后勾选"UFIDA.U8APIFramework"和"UFIDA.U8APIFrameworkEx"。

然后，你可以使用以下代码来提取科目余额表：

```vba
Sub ExtractAccountBalance()
Dim conn As UFIDA.U8APIFramework.U8ApiConnection
Dim api As UFIDA.U8APIFramework.U8ApiAdapter
Dim result As Object

' 创建U8Api连接
Set conn = New UFIDA.U8APIFramework.U8ApiConnection

' 设置连接参数
conn.Server = "U8服务器地址"
conn.CUCode = "U8账套号"
conn.UserToken = "U8登录令牌"

' 创建U8Api适配器
Set api = New UFIDA.U8APIFramework.U8ApiAdapter
api.BeginTrans

' 调用U8Api接口，提取科目余额表
result = api.Execute("科目余额表查询接口", "查询参数")

' 处理返回结果
' ...

api.CommitTrans
Set api = Nothing
conn.Disconnect
Set conn = Nothing
End Sub
```

类似地，你可以使用类似的代码来提取资产负债表、利润表和现金流量表。只需要调用对应的U8Api接口，并处理返回的结果即可。

cderpll

楼主要懂点财务管理实操， 抵消分录，凭证折算，单集团组织合并，多集团垂直关系和横向关联合并，多币种，对异构系统跨国合并，，炫技意义不大，纯技术人员一抓一把

jinyugang

整理内容有用，总结精辟！

Alicie

有外币的可以讲讲吗

rollbin

谢谢分享

xgzit

纯技术人员一抓一把

huanyannly

技术+财务思维！！！

Marco-1988

逻辑、思维、技术

chyp1123

看看，回帖赚金币！！

q979855094

看看，回帖赚金币！！

wxg4u9

谢谢分享

gm1027

看看，回帖赚金币！！

leanababy

围观学习

gamekid

学习一下！