MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Exporting a formula to Excel via copypaste

  • To: mathgroup at smc.vnet.net
  • Subject: [mg125659] Re: Exporting a formula to Excel via copypaste
  • From: Murta <rodrigomurtax at gmail.com>
  • Date: Mon, 26 Mar 2012 01:47:20 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <201203221050.FAA08801@smc.vnet.net> <jkh5jg$jtr$1@smc.vnet.net>

On 23 mar, 03:35, Bob Hanlon <hanlonr... at gmail.com> wrote:
> The two parts of the constant term will automatically combine.
> InputForm uses asterisks.
>
> -0.00488067 + 0.000981042 dff + 0.000109406 dff^2 + 1.83066*10^-8 // InputForm
>
> -0.0048806516934 + 0.000981042*dff + 0.000109406*dff^2
>
> My Excel (Excel for Mac 2011) accepts numbers of the form 1.83066*10^-8
>
> Bob Hanlon
>
>
>
>
>
>
>
>
>
> On Thu, Mar 22, 2012 at 6:50 AM,  <ruesch... at gmail.com> wrote:
> > Hi there
>
> > I'm trying to copy a fromula from mathematica a and paste it to excel. It is a  polynomial. Something like:
>
> > -0.00488067+0.000981042 dff+0.000109406 dff^2+1.83066*10^-8
>
> > Now, there are two problems:
> > - The exponential is written as 10^-8. Which is not compatible with excel. This issue can be solve by using ScientificForm.
> > - The second problem: Excel wants asterisks (*) for the multiplication.  This is solved by doing it this way: ScientificForm[rhofit, NumberMultiplier -> "*"]
>
> > Now, the problem is, that NumberMultiplier only adds asterisks where you have number, but not if you have variables. Any idea to replace the spaces with asterisks?
>
> > Any help would be highly appreciated.
> > Philipp
>
> --
> Bob Hanlon

Hi All
I use excel a lot, so I create this function to copy things to
clipboard:

  CopyTable2Clipboard[expr_] := Module[{nb, expr2 = Map[NumberForm[#,
NumberPoint -> ","] &, expr, {-1}]//TableForm},
		 nb = CreateDocument[Null, Visible -> False, WindowSelected ->
True];
		 NotebookWrite[nb, Cell[ToBoxes@expr2, "Output"], All];
		 FrontEndExecute[FrontEndToken[nb, "CopySpecial"]];
		 NotebookClose@nb];

I use it in one personal pack, so it's always avaliable when
mathematica starts.
My excel use comma as decimal separator, so I have to use this
Map[NumberForm[#, NumberPoint -> ","] part, maybe you not.
best regards
Murta



  • Prev by Date: Re: Piecewise ColorFunction
  • Next by Date: Re: new functional operator
  • Previous by thread: Re: Exporting a formula to Excel via copypaste
  • Next by thread: Re: Exporting a formula to Excel via copypaste