请问一下为什么只汇总了单数月份？

wcj6376tcp

Sub 仅汇总()
    Dim Cn As Object, StrSQL$, Sht As Worksheet, Field$
    Field = "F1,F2,F3,F4,F5,F6,F7,F8,F9,F10,F11,F12,F13,F14,F15,F16,F17,F18,F19,F20,F21,F22,F23,F24,F25,F26,F27,F28,F29"
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=NO';Data Source=" & ThisWorkbook.FullName
    For Each Sht In Worksheets
        If IsNumeric(Sht.Name) Then
            StrSQL = StrSQL & " Union All Select " & Field & " From [" & Sht.Name & "$A5:AC] Where F3 <> "" "
        End If
    Next Sht
    Sheets("仅汇总").Range("A2").CopyFromRecordset Cn.Execute(Mid(StrSQL, 12))
End Sub

借鉴的某大神的代码修改成自己需要的运行后，仅1357911汇总了，这是怎么回事？

fzxba

双数月份工作表名是否不规范，比如有空格？具体得见附件了。

ykcbf1100

用的是IsNumeric(Sht.Name)，你看看sht表名是否规范。
你改用val(Sht.Name)再试一下。

wcj6376tcp

ykcbf1100 发表于 2024-2-13 21:55
用的是IsNumeric(Sht.Name)，你看看sht表名是否规范。
你改用val(Sht.Name)再试一下。

1-12命名的，最后把<> "" 试做去掉了就行了，没有搞明白什么情况.其实主要目的是为了提取某人全年工资明细，没有搞出来，就整的全部汇总来筛选的

ykcbf1100

wcj6376tcp 发表于 2024-2-14 10:04
1-12命名的，最后把 "" 试做去掉了就行了，没有搞明白什么情况.其实主要目的是为了提取某人全年工资明细 ...

主要是你没上传附件，不然，问题早应该解决了。我们也看不到F3是什么啊。

wcj6376tcp

ykcbf1100 发表于 2024-2-14 10:19
主要是你没上传附件，不然，问题早应该解决了。我们也看不到F3是什么啊。

麻烦老师设置一个可以切换用户名的登录界面。准备人事和会计共用，但不同账号登录显示不同的表册。需要的表册我后续逐渐添加完善

wcj6376tcp

最好是初始界面就一个主页，登录后显示不同的表册，其中有些可以共用，有些需要隐藏

ykcbf1100

wcj6376tcp 发表于 2024-2-14 10:54
麻烦老师设置一个可以切换用户名的登录界面。准备人事和会计共用，但不同账号登录显示不同的表册。需要的 ...

以前没试过，先看看吧
不过，其他老师肯定有知道的。