How would I select output to a file or Debug?
I have a subroutine that outputs info about pivot tables and I would like the
option to either output the results to a file or to the Immediate window (Debug.Print). This is the gist of what I'm looking for: Sub (ToFile as Boolean) If ToFile Then Open "C:\PPI.log" For Output As #1 Else Open Debug.Print for output as #1 End If Print #1, "...output..." .. .. .. Yes, the ELSE line does create an error which is why I'm asking. Is there a form of redirection I can use? I'm looking for something easy, not a whole gob of IF...THEN...ELSE statements :-o TIA -- Toby Erkson Oregon, USA Excel 2003 in Windows XP |
How would I select output to a file or Debug?
Tony-
Have you tried your code without the "Open" in front of "Debug.Print"? As I understand it, the keyword "Debug" is all you need send output to the Debug (Immediate) window. -Stan Shoemaker Palo Alto, CA "Toby Erkson" wrote: I have a subroutine that outputs info about pivot tables and I would like the option to either output the results to a file or to the Immediate window (Debug.Print). This is the gist of what I'm looking for: Sub (ToFile as Boolean) If ToFile Then Open "C:\PPI.log" For Output As #1 Else Open Debug.Print for output as #1 End If Print #1, "...output..." .. .. .. Yes, the ELSE line does create an error which is why I'm asking. Is there a form of redirection I can use? I'm looking for something easy, not a whole gob of IF...THEN...ELSE statements :-o TIA -- Toby Erkson Oregon, USA Excel 2003 in Windows XP |
How would I select output to a file or Debug?
I think I'd byte the bullet and do something like:
Sub (ToFile as Boolean) If ToFile Then Open "C:\PPI.log" For Output As #1 'maybe append??? Print #1, "...output1..." Print #1, "...output2..." close #1 Else debug.print "...output1..." debug.print "...output2..." End If Toby Erkson wrote: I have a subroutine that outputs info about pivot tables and I would like the option to either output the results to a file or to the Immediate window (Debug.Print). This is the gist of what I'm looking for: Sub (ToFile as Boolean) If ToFile Then Open "C:\PPI.log" For Output As #1 Else Open Debug.Print for output as #1 End If Print #1, "...output..." . . . Yes, the ELSE line does create an error which is why I'm asking. Is there a form of redirection I can use? I'm looking for something easy, not a whole gob of IF...THEN...ELSE statements :-o TIA -- Toby Erkson Oregon, USA Excel 2003 in Windows XP -- Dave Peterson |
All times are GMT +1. The time now is 09:32 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com