MS excel 2016 vba windows.activate虽然打开了screenupdating但无法正常工作 [英] MS excel 2016 vba windows.activate is not working though screenupdating is turned on

问题描述

来自< g class =" gr_ gr_10 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling"数据-GR-ID =" 10" id =" 10"> xlsm< / g> 文件（包括VBA代码），打开另一个工作簿。就在< g
class =" gr_ gr_446 gr-alert gr_gramm gr_inline_cards gr_run_anim Grammar only-ins replaceWithoutSep"之前数据-GR-ID =" 446" ID = QUOT; 446">端< / g取代;代码，我打开屏幕更新并使用windows.activate返回
< g class =" gr_ gr_11 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling"数据-GR-ID =" 11 QUOT; id =" 11">< g class =" gr_ gr_447 gr-alert gr_gramm gr_inline_cards gr_run_anim Grammar only-ins doubleReplace replaceWithoutSep"
data-gr-id =" 447" ID = QUOT; 447"> XLSM< / g取代;< / g取代;&NBSP;文件。但是< g class =" gr_ gr_563 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling"数据-GR-ID =" 563" id =" 563"> xlsm< / g> 文件
未激活，< g class =" gr_ gr_647 gr-alert gr_gramm gr_inline_cards gr_run_anim标点符号-in replaceWithoutSep"数据-GR-ID =" 647" ID = QUOT; 647">代替< / g取代; < g class =" gr_ gr_626 gr-alert gr_spell
gr_inline_cards gr_run_anim ContextualSpelling"数据-GR-ID =" 626" id =" 626"> xlsx< / g> 文件保持为< g class =" gr_ gr_694 gr-alert gr_gramm gr_inline_cards gr_run_anim Grammar only-ins replaceWithoutSep"数据-GR-ID =" 694"
id =" 694">有效< / g>窗口。 

From the <g class="gr_ gr_10 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling" data-gr-id="10" id="10">xlsm</g> file (which includes VBA code), another workbook is opened. Just before <g class="gr_ gr_446 gr-alert gr_gramm gr_inline_cards gr_run_anim Grammar only-ins replaceWithoutSep" data-gr-id="446" id="446">end</g> of the code, I turned on screen updating and used windows.activate to come back to <g class="gr_ gr_11 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling" data-gr-id="11" id="11"><g class="gr_ gr_447 gr-alert gr_gramm gr_inline_cards gr_run_anim Grammar only-ins doubleReplace replaceWithoutSep" data-gr-id="447" id="447">xlsm</g></g> file. But <g class="gr_ gr_563 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling" data-gr-id="563" id="563">xlsm</g> file is not activated, <g class="gr_ gr_647 gr-alert gr_gramm gr_inline_cards gr_run_anim Punctuation only-ins replaceWithoutSep" data-gr-id="647" id="647">instead</g> the <g class="gr_ gr_626 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling" data-gr-id="626" id="626">xlsx</g> file remains as <g class="gr_ gr_694 gr-alert gr_gramm gr_inline_cards gr_run_anim Grammar only-ins replaceWithoutSep" data-gr-id="694" id="694">active</g> window. 

以下是示例代码

< g class =" gr_ gr_606 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling ins-del"数据-GR-ID =" 606" id =" 606">子测试< / g>（）

<g class="gr_ gr_606 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling ins-del" data-gr-id="606" id="606">Sub test</g>()

Application.EnableEvents = False

Application.ScreenUpdating = F

Application.DisplayAlerts = False

Application.AskToUpdateLinks = False

Application.Calculation = xlCalculationManual

Application.StatusBar ="请等待信息更新后"

Application.EnableEvents = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
Application.Calculation = xlCalculationManual
Application.StatusBar = "Please wait while the information is updated"

Workbooks.Open（< g class =" gr_ gr_607 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling ins- del multiReplace" data-gr-id =" 607" id =" 607"> filepath< / g>& filename）

Workbooks.Open (<g class="gr_ gr_607 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling ins-del multiReplace" data-gr-id="607" id="607">filepath</g> & filename)

'其他代码执行

  &NBSP; Application.EnableEvents = True

  &NBSP; Application.ScreenUpdating = True

  &NBSP; Application.DisplayAlerts = True

  &NBSP; Application.AskToUpdateLinks = True

  &NBSP; Application.StatusBar = False



Windows（< g class =" gr_ gr_34 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling" data-gr-id =" 34" id =" 34"> xlsm< / g> file）.Activate

    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Application.AskToUpdateLinks = True
    Application.StatusBar = False

Windows(<g class="gr_ gr_34 gr-alert gr_spell gr_inline_cards gr_run_anim ContextualSpelling" data-gr-id="34" id="34">xlsm</g> file).Activate

End Sub

我在代码中遗漏了什么吗？

Am I missing anything in code?

推荐答案

由于标签很多，我无法阅读您的说明。

请删除不必要的标签让我们轻松阅读。



问候，

Hi,

I cannot read your description, since there are many tags.
Please remove unnecessary tags for us to read it easily.

Regards,

这篇关于MS excel 2016 vba windows.activate虽然打开了screenupdating但无法正常工作的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！