紧急求助大神帮助！！！！

一摸就乐888

一摸就乐888

需求： 1.在US GAAP TB 中筛选 B 列FS item 为1，并且筛选 C列account number 不为空，复制粘贴筛选结果的A 列到G 列到GAAP difference。2. 在PRC GAAP TB 中筛选 B 列FS item 为10，并且筛选C 列account number 不为空，复制粘贴筛选结果的A列到G列到GAAP difference的A 到G 列，追加结果在1 之后。

一摸就乐888

各位大神谁能帮忙看一下，跪谢！

1.在US GAAP TB 中筛选 B 列FS item 为1，并且筛选 C列account number 不为空，复制粘贴筛选结果的A 列到G 列到GAAP difference
2. 在PRC GAAP TB 中筛选 B 列FS item 为10，并且筛选C 列account number 不为空，复制粘贴筛选结果的A列到G列到GAAP difference的A 到G 列，追加结果在1 之后

sdytsxd991122

参与一下

512008404

参与一下！

一摸就乐888

512008404 发表于 2023-7-20 12:11
参与一下！

大神能不能发一下代码，RAR文件打不开，非常感谢！

一摸就乐888

sdytsxd991122 发表于 2023-7-20 10:27
参与一下

为什么.Cells(en, 1).CopyFromRecordset Cn.Execute(StrSQL) 这句运行报错呢？

512008404

一摸就乐888 发表于 2023-7-20 13:33
大神能不能发一下代码，RAR文件打不开，非常感谢！

Sub 数据提取()
    On Error GoTo FLGE
    ' 连接到数据库
    Dim strCon As String
    Dim cnn As New ADODB.Connection
    Dim sql As String
    Dim rs As New ADODB.Recordset
   
    tStar = Timer
    Filename = ThisWorkbook.FullName
    ' 设置连接字符串和Sheet页名称
    strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Filename & ";Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=2;ReadOnly=False;CursorLocation=adUseClient"";"
    cnn.Open strCon
   
    Set Rng = Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) '数据存放位置
    sql = "SELECT * FROM [US GAAP TB$A:G] where [Financial Statement Item] = '1' and [Account Number] <> '';"
'    Debug.Print sql
    rs.Open sql, cnn, 1, 3
    Rng.CopyFromRecordset rs
    rs.Close
   
    Set Rng = Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) '数据存放位置
    sql = "SELECT * FROM [PRC GAAP TB$A:G] where [FS Item] = '10' and [Account] <> '';"
'    Debug.Print sql
    rs.Open sql, cnn, 1, 3
    Rng.CopyFromRecordset rs
   
FLGE:
    Debug.Print Err.Description
'     关闭连接和对象
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
    Debug.Print "用时:" & Format(Timer - tStar, "0.00秒")
End Sub

512008404

一摸就乐888 发表于 2023-7-20 13:33
大神能不能发一下代码，RAR文件打不开，非常感谢！

Sub 数据提取()
    On Error GoTo FLGE
    ' 连接到数据库
    Dim strCon As String
    Dim cnn As New ADODB.Connection
    Dim sql As String
    Dim rs As New ADODB.Recordset
   
    tStar = Timer
    Filename = ThisWorkbook.FullName
    ' 设置连接字符串和Sheet页名称
    strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Filename & ";Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=2;ReadOnly=False;CursorLocation=adUseClient"";"
    cnn.Open strCon
   
    Set Rng = Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) '数据存放位置
    sql = "SELECT * FROM [US GAAP TB$A:G] where [Financial Statement Item] = '1' and [Account Number] <> '';"
'    Debug.Print sql
    rs.Open sql, cnn, 1, 3
    Rng.CopyFromRecordset rs
    rs.Close
   
    Set Rng = Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) '数据存放位置
    sql = "SELECT * FROM [PRC GAAP TB$A:G] where [FS Item] = '10' and [Account] <> '';"
'    Debug.Print sql
    rs.Open sql, cnn, 1, 3
    Rng.CopyFromRecordset rs
   
FLGE:
    Debug.Print Err.Description
'     关闭连接和对象
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
    Debug.Print "用时:" & Format(Timer - tStar, "0.00秒")
End Sub

一摸就乐888

512008404 发表于 2023-7-20 12:11
参与一下！

请教问下为什么我把代码复制到另外一个workbook后就报错，显示用户定义类型没有定义？