>-----Original Message-----
>If the server can see the file(s) and the accounts (Agent
etc) can see the
>files, the versions of Excel are the same, you are allowed
to run macros,
>you have a printer set up then I do not quite know what
might be causing it
>to fail. I would try breaking it down though and then
adding pieces back
>bit by bit. You can then maybe beter idetify exactly the
combination of
>conditions that cause it go west.
>
>--
>
>
>Allan Mitchell (Microsoft SQL Server MVP)
>MCSE,MCDBA
>www.SQLDTS.com
>I support PASS - the definitive, global community
>for SQL Server professionals - http://www.sqlpass.org
>
>
>
>
>"BJ" <bjrichard21@hotmail.com> wrote in message
>news:05fc01c3a088$e303a850$a001280a@phx.gbl...
>> Thanks again .
>> It works fine if I run the reports against files on my
>> local machine using UNC naming. I can propably find a
>> shared folder on the network to run them.
>>
>> Do you know what would cause this macro not to run properly
>> on the server. It runs OK on my local and in a shared
>> folder on the network.
>>
>> I've checked the version of Excel and it is the same. I
>> use terminal service to open a connection to the server I'm
>> trying to run it on. That should not affect how it runs in
>> a job. I do plan to go to the terminal and log in to the
>> server and see what happens.
>> Any thoughts?
>>
>>
>> Thanks again.
>>
>> BJ
>>
>> >-----Original Message-----
>> >I would look to fix the popup. Reason: Office is one of
>> those products MS
>> >do not support in an unattended server side scenario. And
>> it is probably
>> >because of reasons like this. Other people I know have a
>> job running
>> >afterwards that kills Excel.exe
>> >
>> >Sorry.
>> >
>> >
>> >
>> >--
>> >
>> >
>> >Allan Mitchell (Microsoft SQL Server MVP)
>> >MCSE,MCDBA
>> >www.SQLDTS.com
>> >I support PASS - the definitive, global community
>> >for SQL Server professionals - http://www.sqlpass.org
>> >
>> >
>> >
>> >
>> ><anonymous@discussions.microsoft.com> wrote in message
>> >news:047301c3a00f$7fbc3420$a301280a@phx.gbl...
>> >> It works for me when I run the DTS from my loacl
machine in
>> >> the designer or if I run the Macro from the folder.
>> >>
>> >> When I 'm on the server where I would like to run it from
>> >> it fails intermittently in the designer and from the
folder.
>> >>
>> >> My original question was is there a way to bypass that
>> >> prompt end , debug that pops up in the designer. If so I
>> >> can retry run it in a job until it works!
>> >>
>> >> OH someone else wrote the macro. They moved on, I
moved in
>> >> I'm migrating the process from Access to SQL. This is
just
>> >> a sample of what I will have mulitple exports loaded.
>> >> Thanks
>> >> BJ
>> >> >-----Original Message-----
>> >> >Ahhhhhhhhhhhhh so the problem is not in the invoking of
>> >> the Macro rather the
>> >> >Macro itself.
>> >> >
>> >> >How did you create it ?
>> >> >
>> >> >I pasted it into Excel macro - Removed the printer
stuff -
>> >> added an extra
>> >> >End With and it works for me
>> >> >
>> >> >--
>> >> >
>> >> >
>> >> >Allan Mitchell (Microsoft SQL Server MVP)
>> >> >MCSE,MCDBA
>> >> >www.SQLDTS.com
>> >> >I support PASS - the definitive, global community
>> >> >for SQL Server professionals - http://www.sqlpass.org
>> >> >
>> >> >
>> >> >
>> >> >
>> >> >"BJ" <anonymous@discussions.microsoft.com> wrote in
message
>> >> >news:051101c39ffe$58cc9d20$a101280a@phx.gbl...
>> >> >> It bombs at .LeftHeader = ""
>> >> >> and if i remove that it bombs at the next one.
>> >> >>
>> >> >> Thanks
>> >> >> I leaving work now but will get online when I get
home.
>> >> >> I appreciate you attention to this.
>> >> >>
>> >> >> Check you in about an Hour. Happy Halloween!!!
>> >> >>
>> >> >> BJ
>> >> >>
>> >> >> With ActiveSheet.PageSetup
>> >> >> .LeftHeader = ""
>> >> >> .CenterHeader = ""
>> >> >> .RightHeader = ""
>> >> >> .LeftFooter = ""
>> >> >> .CenterFooter = ""
>> >> >> .RightFooter = ""
>> >> >> .LeftMargin = Application.InchesToPoints(0.75)
>> >> >> .RightMargin =
Application.InchesToPoints(0.75)
>> >> >> .TopMargin = Application.InchesToPoints(1)
>> >> >> .BottomMargin = Application.InchesToPoints(1)
>> >> >> .HeaderMargin =
Application.InchesToPoints(0.5)
>> >> >> .FooterMargin =
Application.InchesToPoints(0.5)
>> >> >> .PrintHeadings = False
>> >> >> .PrintGridlines = False
>> >> >> .PrintComments = xlPrintNoComments
>> >> >> .PrintQuality = 600
>> >> >> .CenterHorizontally = False
>> >> >> .CenterVertically = False
>> >> >> .Orientation = xlLandscape
>> >> >> .Draft = False
>> >> >> .PaperSize = xlPaperLetter
>> >> >> .FirstPageNumber = xlAutomatic
>> >> >> .Order = xlDownThenOver
>> >> >> .BlackAndWhite = False
>> >> >> .Zoom = False
>> >> >> .FitToPagesWide = 1
>> >> >> .FitToPagesTall = 1
>> >> >>
>> >> >> Range("E1").Select
>> >> >> Selection.Cut
>> >> >> Range("U1").Select
>> >> >> ActiveSheet.Paste
>> >> >> Range("R1").Select
>> >> >> Columns("U:U").EntireColumn.AutoFit
>> >> >> Range("R1").Select
>> >> >> ActiveCell.FormulaR1C1 = "File Creation Date:"
>> >> >> Range("R1").Select
>> >> >> Selection.Font.Bold = True
>> >> >> Range("A1:B1").Select
>> >> >> Selection.Cut
>> >> >> Range("B1").Select
>> >> >> ActiveSheet.Paste
>> >> >> Columns("A:A").Select
>> >> >> Selection.EntireColumn.Hidden = True
>> >> >> Columns("E:J").Select
>> >> >> Selection.EntireColumn.Hidden = False
>> >> >> Range("H6").Select
>> >> >> ActiveWindow.SmallScroll ToRight:=17
>> >> >> ActiveWindow.ScrollColumn = 10
>> >> >> Columns("C:E").Select
>> >> >> Selection.EntireColumn.Hidden = True
>> >> >> Columns("B:F").Select
>> >> >> Selection.EntireColumn.Hidden = False
>> >> >> Columns("E:I").Select
>> >> >> Selection.EntireColumn.Hidden = True
>> >> >> ActiveWindow.SmallScroll ToRight:=1
>> >> >> ActiveWindow.ScrollColumn = 10
>> >> >> ActiveWindow.SmallScroll ToRight:=6
>> >> >> ActiveWindow.ScrollColumn = 10
>> >> >> ActiveWindow.SmallScroll ToRight:=18
>> >> >> ActiveWindow.ScrollColumn = 10
>> >> >>
>> >> >> Columns("D:J").Select
>> >> >> Selection.EntireColumn.Hidden = False
>> >> >> Range("G4").Select
>> >> >> Selection.Copy
>> >> >> ActiveWindow.SmallScroll ToRight:=6
>> >> >> Range("U1").Select
>> >> >> ActiveSheet.Paste
>> >> >> Selection.Font.Bold = True
>> >> >> ActiveWindow.SmallScroll ToRight:=-1
>> >> >> Range("R1").Select