Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.setup
|
|||
|
|||
Help:Running a macro in one excel workbook from another workbook
I am trying to execute the following given macro from the current workbook.
The macro opens the workbook "2148.xls" and waits there. It does not proceed to run the macro "NextDay" as given in line number 3. However, if I execute the entire macro step by step from Visual Basic (using F8) it works fine. What could be the problem? What is the solution. Workbooks.Open Filename:="C:\Data\GLIF\2148.xls" Windows("2148.xls").Activate Application.Run "2148.xls!NextDay" Sheets("2148").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$I$51" ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True Sheets("Summary").Select ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True ActiveWorkbook.Save ActiveWorkbook.Close |
#2
Posted to microsoft.public.excel.setup
|
|||
|
|||
Help:Running a macro in one excel workbook from another workbook
A simple test for me worked fine. Is there anything in the NextDay macro
that might be causing it to fail? -- HTH Bob Phillips (remove nothere from email address if mailing direct) "R Kapoor" wrote in message ... I am trying to execute the following given macro from the current workbook. The macro opens the workbook "2148.xls" and waits there. It does not proceed to run the macro "NextDay" as given in line number 3. However, if I execute the entire macro step by step from Visual Basic (using F8) it works fine. What could be the problem? What is the solution. Workbooks.Open Filename:="C:\Data\GLIF\2148.xls" Windows("2148.xls").Activate Application.Run "2148.xls!NextDay" Sheets("2148").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$I$51" ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True Sheets("Summary").Select ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True ActiveWorkbook.Save ActiveWorkbook.Close |
#3
Posted to microsoft.public.excel.setup
|
|||
|
|||
Help:Running a macro in one excel workbook from another workbo
Bob,
NextDay macro is as under: Sub NextDay() Sheets("Summary").Select ActiveSheet.PivotTables("PivotTable2").PivotFields ("Zone").AutoSort _ xlAscending, "Zone" Columns("H:H").Select Application.CutCopyMode = False Selection.Insert Shift:=xlToRight Range("C6:C45").Select Range("C45").Activate Selection.Copy Range("H6").Select ActiveSheet.Paste Sheets("2148").Select Columns("h:h").Select Selection.Insert Shift:=xlToRight Columns("e:e").Select Selection.Copy Columns("h:h").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveWorkbook.Save End Sub "Bob Phillips" wrote: A simple test for me worked fine. Is there anything in the NextDay macro that might be causing it to fail? -- HTH Bob Phillips (remove nothere from email address if mailing direct) "R Kapoor" wrote in message ... I am trying to execute the following given macro from the current workbook. The macro opens the workbook "2148.xls" and waits there. It does not proceed to run the macro "NextDay" as given in line number 3. However, if I execute the entire macro step by step from Visual Basic (using F8) it works fine. What could be the problem? What is the solution. Workbooks.Open Filename:="C:\Data\GLIF\2148.xls" Windows("2148.xls").Activate Application.Run "2148.xls!NextDay" Sheets("2148").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$I$51" ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True Sheets("Summary").Select ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True ActiveWorkbook.Save ActiveWorkbook.Close |
#4
Posted to microsoft.public.excel.setup
|
|||
|
|||
Help:Running a macro in one excel workbook from another workbo
The following may help :
When I run the macro from the present worksheet, it opens the other workbook and waits i.e. it does not execute the macro 'NextDay'. But on the otherhand it runs perfectly under debug mode when I execute the macros - step-by-step. Any hint on solving this problem? "R Kapoor" wrote: Bob, NextDay macro is as under: Sub NextDay() Sheets("Summary").Select ActiveSheet.PivotTables("PivotTable2").PivotFields ("Zone").AutoSort _ xlAscending, "Zone" Columns("H:H").Select Application.CutCopyMode = False Selection.Insert Shift:=xlToRight Range("C6:C45").Select Range("C45").Activate Selection.Copy Range("H6").Select ActiveSheet.Paste Sheets("2148").Select Columns("h:h").Select Selection.Insert Shift:=xlToRight Columns("e:e").Select Selection.Copy Columns("h:h").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveWorkbook.Save End Sub "Bob Phillips" wrote: A simple test for me worked fine. Is there anything in the NextDay macro that might be causing it to fail? -- HTH Bob Phillips (remove nothere from email address if mailing direct) "R Kapoor" wrote in message ... I am trying to execute the following given macro from the current workbook. The macro opens the workbook "2148.xls" and waits there. It does not proceed to run the macro "NextDay" as given in line number 3. However, if I execute the entire macro step by step from Visual Basic (using F8) it works fine. What could be the problem? What is the solution. Workbooks.Open Filename:="C:\Data\GLIF\2148.xls" Windows("2148.xls").Activate Application.Run "2148.xls!NextDay" Sheets("2148").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$I$51" ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True Sheets("Summary").Select ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True ActiveWorkbook.Save ActiveWorkbook.Close |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How can I get a validation to run in a macro on a shared workbook? | Excel Discussion (Misc queries) | |||
How do I emulate rightclick on a hyperlink in an Excel Macro | Excel Discussion (Misc queries) | |||
custom color palette does not get transferred with the workbook. Excel 2003 | Excel Discussion (Misc queries) | |||
Macro Help In Excel | Excel Discussion (Misc queries) | |||
Closing File Error | Excel Discussion (Misc queries) |