Question

EXCEL表在运行宏时总出现"运行时错误1004"方法"save"作用于对象"-wrokbook"时失败

EXCEL表在运行宏时总出现"运行时错误1004"方法"save"作用于对象"-wrokbook"时失败

代码如下：
Sub 新增课时()
Dim i As Integer, j As Integer, a As String, b As String, c As String, d As String, e As String, f As String, g As String
Worksheets("考勤登记表").Activate
z = Cells(4, 2).Value
a = Cells(12, 3).Value
b = Cells(12, 4).Value
c = Cells(12, 5).Value
d = Cells(12, 6).Value
e = Cells(12, 7).Value
f = Cells(12, 8).Value
g = Cells(12, 9).Value
h = Cells(12, 10).Value
Worksheets("学员信息汇总").Activate
Sheets("学员信息汇总").Unprotect
For j = 1 To 10000
If Cells(j, 1).Value = z Then
i = Cells(j, 1).End(xlToRight).Column
Cells(j, i + 1).Activate
Cells(j, i + 1).Value = a
Cells(j, i + 2).Activate
Cells(j, i + 2).Value = b
Cells(j, i + 3).Activate
Cells(j, i + 3).Value = c
Cells(j, i + 4).Activate
Cells(j, i + 4).Value = d
Cells(j, i + 5).Activate
Cells(j, i + 5).Value = e
Cells(j, i + 6).Activate
Cells(j, i + 6).Value = f
Cells(j, i + 7).Activate
Cells(j, i + 7).Value = g
Cells(j, i + 8).Activate
Cells(j, i + 8).Value = h
End If
Next j
Sheets("学员信息汇总").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True '
Worksheets("考勤登记表").Activate
Sheets("考勤登记表").Unprotect
Sheets("考勤登记表").Range("C12:J12").Select
Selection.ClearContents
Sheets("考勤登记表").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True '
ActiveWorkbook.Save
End Sub

Answer 1

我以前都有碰到这个错误 1004 的问题， 不过后来解决了。 希望能够帮到你。 请见下图

1. 需要在信任中心的宏设置内做如下设置

Answer 2

没有数据 运行不起来
Application.DisplayAlerts = False
加上这个试下
应该是保存代码因为某些原因冲突了吧

追问

加在什么位置呢？

追答

开头吧 感觉应该不可以 应该是 保存代码和什么冲突了

开头吧 感觉应该不可以 应该是 保存代码和什么冲突了

追问

这么说吧，两台电脑相同版本的软件，在A电脑上能正常使用，但在B电脑上就总是出现这个问题。这是为什么呢？

追答

额 你在哪个不能运行的电脑上面 用录制宏 保存excel 看看代码是什么

追问

代码同一组代码，没有差异。

追答

不是 我是想问下 你录制宏代码 可以运行不？如果录制宏代码都不可以的话 应该是电脑的问题，
如果录制宏可以，你再检查下代码有啥区别！！

Answer 3

好强大的代码~~~