如何使用宏生成新的Excel WorkBook [英] How to generate a new excel WorkBook using macro

问题描述

我想将一张工作簿中的数据复制到另一张


我想根据另一个工作簿中的数据表生成一个新的工作簿.如何记录或使用我使用宏来执行此任务，以供参考，我附上excel工作表，请看一下. excel工作表是site.xlsx，此工作簿包含两张工作表1.位置2.名称

我想创建一个宏，该宏应生成新的工作簿，该工作簿应仅包含从site.xlsx复制的位置详细信息.我尝试了以下错误(超出范围)的记录宏，请帮助我，我注意到了下面的宏代码.

请注意:

I want to copy data in one sheet of workbook to another


I want to generate a new workbook based on sheet of data in another workbook. How record or use I use macro to do this task, for reference I am attaching the excel sheet please have a look. The excel sheet is site.xlsx, this work book contains two sheets 1. Location 2.Name

I want to create a macro which should generate new workbooks which should contain only location details copied from site.xlsx is it possible? I tried record macro following error(out of range) is coming please help me, I have noted the macro code below.

please note :

Sub MacroLoc()
'
' MacroLoc Macro
' 3.51 pm
'
' Keyboard Shortcut: Ctrl+k
'
    Sheets("Location").Select
    Sheets("Location").Copy
    Application.WindowState = xlMinimized
    Application.WindowState = xlMinimized
    Windows("Site.xlsx").Activate
    Application.WindowState = xlMinimized
    Windows("Book1").Activate
    Application.WindowState = xlMinimized
    Windows("Site.xlsx").Activate

End Sub

推荐答案

我刚刚尝试了一个宏录制会话，并且对我来说效果很好:

I just tried a macro recording session and it worked fine giving me:

Sheets("Location").Select
Sheets("Location").Copy
ActiveWorkbook.SaveAs Filename:="yourpath\Book2.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

这篇关于如何使用宏生成新的Excel WorkBook的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！