从个人所得税专项扣除信息表中提取资料。

柠檬味的柠檬靖

XDJ2003_2000 发表于 2019-3-11 04:53
br(item - 1, 3) = br(item - 1, 3) + 1000 * Val(ar(10 + c * 4, 7)) / 100 加上val

补充：
总表是否可再加上老人出生日期？
老人未满60周岁，即使填写了信息，个税系统里也不会进行扣除

柠檬味的柠檬靖

hyz00001 发表于 2019-1-15 11:23
按照要求增加一个2003的模板。
还有增加了合并表与添加目录两个按钮。

补充：
总表是否可再加上老人出生日期？
老人未满60周岁，即使填写了信息，个税系统里也不会进行扣除

dssrmyh

能否在合并表时，对工作表重新命名，就是只用姓名作为工作表的名称

小花鹿

楼主把这么多工作薄中的工作表放在一个工作薄中再汇总，没必要，直接放在一个文件夹中就行了
还有一个受保护的视图问题没有解决，用代码打开时会出错
我也写了一个，只提取手机号:
Sub 手机号()
Dim thispath, thisname, myfile, myxls, r&
Call 去除受保护视图
thispath = ThisWorkbook.Path & "\专项附加扣除信息(导出)\"
thisname = ThisWorkbook.Name
myfile = Dir(thispath)
[a1] = "姓名"
[b1] = "身份证号"
[c1] = "手机号"
r = 1
Application.ErrorCheckingOptions.NumberAsText = False
Do While myfile <> ""
    Set myxls = Workbooks.Open(thispath & myfile)
    r = r + 1
    Cells(r, "a") = myxls.Sheets(1).Range("b4")
    Cells(r, "b") = myxls.Sheets(1).Range("c6")
    Cells(r, "c") = myxls.Sheets(1).Range("g5")
    myxls.Close False
    myfile = Dir
Loop
r = Range("a65536").End(3).Row
Range("A1:C" & r).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
    xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    SortMethod:=xlPinYin, DataOption1:=xlSortNormal
End Sub
Sub 去除受保护视图()
    Dim v, objwmi
    Const HKEY_CURRENT_USER = &H80000001
    Set objwmi = GetObject("winmgmts:\\.\root\default:StdRegProv")
    v = Application.Version
    objwmi.CreateKey HKEY_CURRENT_USER, "Software\Microsoft\Office\" & v & "\Excel\Security\FileValidation"
    objwmi.SetDWORDValue HKEY_CURRENT_USER, "Software\Microsoft\Office\" & v & "\Excel\Security\FileValidation", "EnableOnLoad", 0
End Sub