MMA中的数据如何正确复制到EXCLE

Question

Table[{i, i^2, i^3}, {i, 0, 10}] // TableForm

这样生成的数据我想把他复制到Excel中成为三列数据，但实际效果却是一列

Answer 1

如果数据量小，可以使用下面的方法：

da = RandomInteger[100, {5, 3}]
CopyToClipboard[StringRiffle[da, "\n", "\t"]](*将数据复制到剪切板*)

如果数据量较大（2007版以上上限1048567行16384列），可以使用Export：

da = RandomInteger[100, {5, 3}];
Export["D:/da.xlsx", {da}];(*更多在帮助查 xlsx *)

如果数据量非常大（硬盘能放得下就行），可以使用数据流方式导出：

da = RandomInteger[100, {5, 3}];
sw = OpenWrite["D:/da.txt", CharacterEncoding -> "UTF-8"];
Do[WriteLine[sw, StringRiffle[da[[k]]]];, {k, 
Length[da]}];(*更多，在帮助里查：guide/LowLevelFileOperations*)
Close[sw];

 

Answer 2

data = Table[{i, i^2, i^3}, {i, 0, 10}] // TableForm
Export["1.xls", data]

使用Export导出即可

Comments

再加一层花括号比较好：Export["1.xls", {data}]