Re-2: OT: Any VBS, VBA, Excel specialist out there who might help?

[runrev260805 at m-r-d.de]

Hi Ken,

no problem. I suspended the work on that. 

Thanks for your help. After replacing the line as you suggested it works.

Regards,

Matthias

-------- Original Message --------
Subject: Re: OT: Any VBS, VBA, Excel specialist out there who might help? (07-Aug-2009 16:17)
From:    Ken Ray <kray at sonsothunder.com>
To:      runrev260805 at m-r-d.de

> > as i already said, i am not very familiar with vbs. My script is from
> > a book.
> > 
> > So i am not sure, how and where in the script i should pass this
> > parameter.
> > 
> > Regards
> > 
> > Matthias
> 
> Oh geez, Matthias.... I haven't had a chance to read the list for a while
> and just caught this, so I hope I can still help after all this time has
> passed.
> 
> Anyway, here's what you need to do:
> 
> Instead of this line of code that you have right now:
> 
> .Workbooks.OpenText sInPath, , , ,xlTextQualifierNone,,,True,,,,
> ,Array(Array(1, 2), Array(2,2), Array(3,2), Array(4,2), Array(5,2),
> Array(6,1), Array(7,1), Array(8,1), Array(9,1), Array(10,1),
> Array(11,1), Array(12,2))
> 
> pass this one instead (watch the line breaks):
> 
> .Workbooks.OpenText sInPath, , , xlDelimited,xlTextQualifierNone,,,
> True,,,,,Array(Array(1, 2), Array(2,2), Array(3,2), Array(4,2), Array(5,2),
> Array(6,1), Array(7,1), Array(8,1), Array(9,1), Array(10,1),
> Array(11,1), Array(12,2))
> 
> Let me know if this works for you,
> 
> Ken Ray
> Sons of Thunder Software, Inc.
> Email: kray at sonsothunder.com
> Web Site: http://www.sonsothunder.com/
> 
> 
> _______________________________________________
> use-revolution mailing list
> use-revolution at lists.runrev.com
> Please visit this url to subscribe, unsubscribe and manage your 
> subscription preferences:
> http://lists.runrev.com/mailman/listinfo/use-revolution
> 
> 
> 
> 
> To: use-revolution at lists.runrev.com