none
Excel2007录制宏时出现问题,无法自动打开文件 RRS feed

  • 问题

  • 各位好:

    同事的电脑发现录制好宏后运行时,不会自动打开录制宏时打开的其他文件,后开对比另一同事电脑同样操作,发现出问题的电脑宏代码中少

        Workbooks.Open Filename:="\\Pc010\库存日报\110409在庫.xls"
        Application.WindowState = xlMinimized

     这样的代码;请问这个问题如何解决?

    我在自己机器测试下,也出现在这样的问题,

    新建立一个表 新建表1.xls;输入几列数据,然后保存并关闭这个表,

    新建立一个可运行宏的表 book1.xlsx ,打开,这时打开新建表1.xls ,复制选中的数据,并复制到book1.xlsx中去,然后关掉录制宏,

    删除刚才复制的数据,运行宏,发现什么数据都没有;宏代码如下:

    Sub Macro1()
    '
    ' Macro1 Macro
    '

    '
        Range("A6:H19").Select
        Selection.Copy
        Application.CutCopyMode = False
        Selection.Copy
        Windows("book1.xlsm").Activate
        ActiveSheet.Paste
    End Sub

     

    2011年4月18日 3:20

答案

  • 运行的宏只能在自己工作簿内进行操作,只对一个工作簿内的内容有效。
    新手上路,多多指教。
    • 已标记为答案 Sally Tang 2011年4月25日 5:20
    2011年4月24日 1:00
    版主

全部回复

  • 紧急求助哦;我把另1台机操作的可运行宏发送来给大家;

    Sub Macro1()
    '
    ' Macro1 Macro
    '

    '
        Range("D6").Select
       
        Workbooks.Open Filename:="\\Pc010\库存日报\110409在庫.xls"
        Application.WindowState = xlMinimized
       
        Windows("110411在庫.xls").Activate
        ActiveCell.FormulaR1C1 = _
            "=SUMIF('[110409在庫.xls]e parts'!R6C2:R700C2,RC[-2],'[110409在庫.xls]e parts'!R6C5:R700C5)"
        Selection.Copy
        ActiveWindow.SmallScroll Down:=932
        Range("D6:D968").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        ActiveWindow.SmallScroll Down:=-300
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
        Range("D9").Select
        Windows("110409在庫.xls").Activate
        ActiveWindow.Close
    End Sub

    2011年4月18日 5:24
  • 运行的宏只能在自己工作簿内进行操作,只对一个工作簿内的内容有效。
    新手上路,多多指教。
    • 已标记为答案 Sally Tang 2011年4月25日 5:20
    2011年4月24日 1:00
    版主
  • 那我不禁要问问你,下面的代码何解呢?同样的操作,同样的是Excel2007,同样是Winxp 正版,生成的代码就是不一样.

    他为什么就可以生成  Workbooks.open File ~~~~

                             Application.Windows.State=xlMinimized

     

    呢???

     

    Sub Macro1()
    '
    ' Macro1 Macro
    '

    '
        Range("D6").Select
       
        Workbooks.Open Filename:="\\Pc010\库存日报\110409在庫.xls"
        Application.WindowState = xlMinimized
       
        Windows("110411在庫.xls").Activate
        ActiveCell.FormulaR1C1 = _
            "=SUMIF('[110409在庫.xls]e parts'!R6C2:R700C2,RC[-2],'[110409在庫.xls]e parts'!R6C5:R700C5)"
        Selection.Copy
        ActiveWindow.SmallScroll Down:=932
        Range("D6:D968").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        ActiveWindow.SmallScroll Down:=-300
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
        Range("D9").Select
        Windows("110409在庫.xls").Activate
        ActiveWindow.Close
    End Sub

    2011年4月29日 3:28
  • 问了下以前公司的同事,他们是大陆老板的公司;所以,软件全是盗版,基本上??他们除了ERP系统花过钱,别的都没花过钱的,

    但他们的盗版XP+盗版office2007从不出现这样的问题,

    这真是用正版软件的悲哀..

     

    2011年5月11日 5:39
  • 顶顶,这问题怎么就没个办法说明,解决呢?
    2011年6月8日 3:56