求助 VBA程序运行报错：run time error 13 type mismatch

Posted 2023-05-06

因为程序有多人在用，为了减少个人长时间占用，设置了空闲退出。刚开始都能正常运行，后来加入了一段记录员工登录和退出时间就出现报错。thisworkbook下面的代码：Private Sub Workbook_BeforeClose(Cancel As Boolean)'****这一段记录退出程序时间和在线时长是后来加上去的，加上去就报错，删除就正常 ROWAAA = Sheet14.Range("CJ" & Rows.Count).End(xlUp).Row Sheet14.Cells(ROWAAA, "CL") = Format(Now(), "yyyy年mm月dd日-hh:mm:ss") '记录退出时间 Sheet14.Cells(ROWAAA, "CM") = "=Time(Mid(CL" & ROWAAA & ", 13, 2), Mid(CL" & ROWAAA & ", 16, 2), Mid(CL" & ROWAAA & ", 19, 2)) - Time(Mid(CK" & ROWAAA & ", 13, 2), Mid(CK" & ROWAAA & ", 16, 2), Mid(CK" & ROWAAA & ", 19, 2))" '记录在线时长'******************************************************************************** On Error Resume Next Application.OnTime EarliestTime:=TimeValue(Runtime), _ Procedure:="计时器", Schedule:=False On Error GoTo 0End SubPrivate Sub Workbook_Open()Call 登陆窗口.隐藏表登陆窗口.Show '加载登录窗体Lasttime = Now + TimeValue("00:" & Format(Sheet13.Cells(32, "c"), "00") & ":00")Call 计时器End SubPrivate Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Lasttime = Now + TimeValue("00:" & Format(Sheet13.Cells(32, "c"), "00") & ":00") '请在“系统设置”页C32单元格设置好延时时间End Sub计时器模块：Public Runtime, LasttimeSub 计时器() If Now >= Lasttime Then ThisWorkbook.Save If Application.Windows.Count = 1 Then Application.Quit Else ThisWorkbook.Close True End If Exit Sub End If Runtime = Lasttime Application.OnTime Runtime, "计时器"End Sub

参考技术A Sheet14.Cells(ROWAAA, "CL") = Format(Now(), "yyyy年mm月dd日-hh:mm:ss") '记录退出时间
这句代码中，建议你把 Now() 后面的括号去掉再试试看。

npm 报错： npm ERR! Please try running this command again as root/Administrator.

解决方法：

1、

需要删除npmrc文件。

强调：不是nodejs安装目录npm模块下的那个npmrc文件

而是在C:\Users\{账户}\下的.npmrc文件..

 

2、

在win8或者win10下，win+R不是以管理员身份来运行的。在开始菜单中选择command以管理员身份运行即可。

 

3、

其实答案就在你所发的问题当中。只要重新用管理员权限打开命令行。然后在这个命令行下重新运行你的命令，就会正常了。

 

第一种得到了验证，后两种电脑问题，没法验证，意思大概都是要以管理员身份运行。问题是怎么才是管理员身份。这种东西没有注意过，平时打开就是管理员，什么东西也没有设置过

第一种不是管理员也能用