请帮我修改一下，Excel 2003的宏无法在Excel 2007下运行

xjh1588 · 发表于 2012-8-8 20:09

Sub Macro1()
'
' Macro1 Macro
' 宏由 roy shou 编制，时间: 2005-4-4
'
Application.ScreenUpdating = False
ChDir "E:\夜审\"
Application.Goto Reference:="LLL"
Selection.Copy
p = Range("d2").Value
Range("z6").Offset(0, p).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
                  SkipBlanks:=False, Transpose:=False
Application.Goto Reference:="RRR"
Application.CutCopyMode = False
Selection.Copy
Range("bm5").Offset(0, p).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
                  SkipBlanks:=False, Transpose:=False
Range("a1").Select
ChDir "E:\夜审\"
Windows("Eb.xls").Activate
ActiveWorkbook.SaveAs FileName:="eb" & Worksheets("EB").Range("o4").Value & ".xLS", FileFormat:=xlExcel9795, _
      Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
      False, CreateBackup:=False
ActiveWorkbook.SaveAs FileName:="E:\夜审\Eb.xls", FileFormat _
      :=xlExcel9795, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
      False, CreateBackup:=False
End Sub

此为Excel 2003的宏，那位大侠帮我修改一下
谢谢

xjh1588 · 发表于 2012-8-8 20:10

本帖最后由 xjh1588 于 2012-8-8 20:11 编辑

还有在WIN 7下装的Excel 2003也无法运行

xjh1588 · 发表于 2012-8-9 16:47

没有人吗?????

c1364 · 发表于 2012-8-11 23:36

尝试把2处的FileFormat:=xlExcel9795都改为
FileFormat:=xlExcel8

		自动登录	找回密码
密码			免费注册

[讨论] 请帮我修改一下，Excel 2003的宏无法在Excel 2007下运行