混凝土强度报告的汇总，怎么把很多份强度报告中我需要的信息提取出来，并汇总到汇...

被枫带走的记忆

求大神帮忙，混凝土强度报告的汇总，怎么把很多份强度报告中我需要的信息提取出来，并汇总到汇总表格相应的位置。

有4地

没写清楚要求，你手写一个样板出来。我看看，你这个应该不难的。

有4地

要写清楚实验编号对应的那个，施工部位及桩号对应那个，设计等级对应那个等等这些都要写清楚。不然都不知道对应那个东西

lsc900707

至少要在汇总表里填写一个模拟结果，告诉大家数据的对应关系。

fashionon

解决了吗，没解决可以加我QQ969388727，帮你解决

被枫带走的记忆

有4地 发表于 2016-8-26 15:05
没写清楚要求，你手写一个样板出来。我看看，你这个应该不难的。

这是之前别人发我的汇总，只要改一下Cells(n, 2) = "='" & fn & "1'!o20"这里面的某些数据就可以适应不同资料的汇总，现在用不了了，不晓得哪里出问题了

Sub 汇总()
Dim myDialog As FileDialog, oFile As Object, strName As String, n As Integer
Dim FSO As Object, myFolder As Object, myFiles As Object
Dim fn$
Set myDialog = Application.FileDialog(msoFileDialogFolderPicker)
n = 6
With myDialog
If .Show <> -1 Then Exit Sub
Set FSO = CreateObject("Scripting.FileSystemObject")
Set myFolder = FSO.getfolder(.InitialFileName)
Set myFiles = myFolder.Files
For Each oFile In myFiles
strName = UCase(oFile.Name)
strName = VBA.Right(strName, 3)
If strName = "XLS" Then
Cells(n, 1) = oFile.Name
fn = myFolder & "\[" & Cells(n, 1) & "]"
Cells(n, 2) = "='" & fn & "1'!o20"
Cells(n, 3) = "='" & fn & "1'!o21"
Cells(n, 4) = "='" & fn & "1'!o22"
Cells(n, 6) = "='" & fn & "1'!o23"
Cells(n, 10) = "='" & fn & "1'!o24"
Cells(n, 11) = "='" & fn & "1'!o25"
n = n + 1
End If
Next
End With


End Sub

               

被枫带走的记忆

这是汇总后的

被枫带走的记忆

这个是之前用的汇总模板

LMY123

被枫带走的记忆 发表于 2016-8-27 08:43
这个是之前用的汇总模板

试试
Sub 汇总()
Dim wb As Workbook, myfile$, s&
Application.ScreenUpdating = False
myfile = Dir(ThisWorkbook.Path & "\混凝土报告\" & "\*.xls")
s = 1
Do While myfile <> ""
        s = s + 1
        Set wb = GetObject(ThisWorkbook.Path & "\混凝土报告\" & myfile)
        With wb.Sheets(2)
            Cells(s + 2, 1) = Mid(.[G4], 6, 20) & .[K4]
            Cells(s + 2, 2) = .[C5]
            Cells(s + 2, 3) = .[C12]
            Cells(s + 2, 4) = .[B12]
            Cells(s + 2, 8) = .[D12]
            Cells(s + 2, 9) = .[K12]
        End With
        wb.Close False
    myfile = Dir
Loop
Application.ScreenUpdating = True

End Sub

被枫带走的记忆

LMY123 发表于 2016-8-27 16:19
试试
Sub 汇总()
Dim wb As Workbook, myfile$, s&

试了一下，好像用不了啊，是按ALT+F8运行吧