Re: Exporting a formula to Excel via copypaste

• To: mathgroup at smc.vnet.net
• Subject: [mg125669] Re: Exporting a formula to Excel via copypaste
• From: Thomas Melehan <tpmelehan at gmail.com>
• Date: Wed, 28 Mar 2012 00:33:36 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <201203221050.FAA08801@smc.vnet.net> <jkh5jg\$jtr\$1@smc.vnet.net> <201203260647.BAA21460@smc.vnet.net>

```Murta: Your function was helpful.  Do you happen to have one that goes
from Excel to Mathematica?

On Mar 26, 2012, at 2:47 AM, Murta wrote:

> 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: Compiling Runge-kutta
• Previous by thread: Re: Exporting a formula to Excel via copypaste
• Next by thread: Re: Exporting a formula to Excel via copypaste