[已解决]提取数据不成功，高手给看看

hhxq001

想提取工资表的数据到薪金表，没成功，请高手指点

0327求助.rar (360.27 KB, 下载次数: 2)

2021-3-27 16:32 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

砂海

2021-3-28 13:33

arr = Sheets(yf & "月工资").[a1].CurrentRegion ' 范围不对 , 实测 只有4行

arr = Sheets(yf & "月工资").Range("A1:X" & Sheets(yf & "月工资").Range("E65536").End(xlUp).Row)
===================================================
退出程序 用 EXIT SUB
if xx then exit sub
===================================================
工作表没写 , 有风险
'清空原数据
sheets("??").Range("b4:w1000").ClearContents
===================================================
代码缩进不对
If [h1] <> "月初" Then
MsgBox ("选择的期间不是“月初”，无法提取数据！")
Else
--------------------
If [h1] <> "月初" Then
    MsgBox ("选择的期间不是“月初”，无法提取数据！")
Else
    ...
end if

本处 msgbox 是if 内的
并且 可以 改为

If [h1] = "月初" Then
    MsgBox ("选择的期间不是“月初”，无法提取数据！")
    exit sub
end if
只有 结构 简短 易读

跳转到最佳答案楼层

hhxq001

'想加一句：如果arr(i,18)=0,弹窗提示“月初无数据，无法提取”，然后就自动退出执行，
'但是不知道怎么加才好，求助各位。

0328求助 - 副本.zip (355.21 KB, 下载次数: 3)

2021-3-27 23:09 上传

点击文件名下载附件

砂海

arr = Sheets(yf & "月工资").[a1].CurrentRegion ' 范围不对 , 实测 只有4行

arr = Sheets(yf & "月工资").Range("A1:X" & Sheets(yf & "月工资").Range("E65536").End(xlUp).Row)
===================================================
退出程序 用 EXIT SUB
if xx then exit sub
===================================================
工作表没写 , 有风险
'清空原数据
sheets("??").Range("b4:w1000").ClearContents
===================================================
代码缩进不对
If [h1] <> "月初" Then
MsgBox ("选择的期间不是“月初”，无法提取数据！")
Else
--------------------
If [h1] <> "月初" Then
    MsgBox ("选择的期间不是“月初”，无法提取数据！")
Else
    ...
end if

本处 msgbox 是if 内的
并且 可以 改为

If [h1] = "月初" Then
    MsgBox ("选择的期间不是“月初”，无法提取数据！")
    exit sub
end if
只有 结构 简短 易读