将Outlook邮件正文导出到Excel

时间:2012-01-06 18:11:09

标签: excel vba outlook

我每天都会收到以下格式的电子邮件报告。

格式相同,但值不同。

所以我希望有一种方法可以让我自动将这些数据放入单个单元格中,而不是逐个复制和粘贴它们。

type        ID      Date_or_Range                       Total
DAU         aaaa    1/5/2012                            9999
DAU         bbbb    1/5/2012                            9999
DAU         cccc    1/5/2012                            9999
DAU         dddd    1/5/2012                            9999
DAU         eeee    1/5/2012                            9999
DAU         ffff    1/5/2012                            9999
DAU         gggg    1/5/2012                            9999
DAU         hhhh    1/5/2012                            9999
DAU         iiii    1/5/2012                            9999
DAU         jjjj    1/5/2012                            9999
DAU         kkkk    1/5/2012                            9999
MAU         aaaa    2011-12-07 to 2012-01-05 inclusive  9999
MAU         bbbb    2011-12-07 to 2012-01-05 inclusive  9999
MAU         cccc    2011-12-07 to 2012-01-05 inclusive  9999
MAU         dddd    2011-12-07 to 2012-01-05 inclusive  9999
MAU         eeee    2011-12-07 to 2012-01-05 inclusive  9999
MAU         ffff    2011-12-07 to 2012-01-05 inclusive  9999
MAU         gggg    2011-12-07 to 2012-01-05 inclusive  9999
MAU         hhhh    2011-12-07 to 2012-01-05 inclusive  9999
MAU         iiii    2011-12-07 to 2012-01-05 inclusive  9999
MAU         jjjj    2011-12-07 to 2012-01-05 inclusive  9999
MAU         kkkk    2011-12-07 to 2012-01-05 inclusive  9999
MAU         LLLL    2011-12-07 to 2012-01-05 inclusive  9999
Last 7 Days aaaa    2011-12-30 to 2012-01-05 inclusive  9999
Last 7 Days bbbb    2011-12-30 to 2012-01-05 inclusive  9999
Last 7 Days cccc    2011-12-30 to 2012-01-05 inclusive  9999
Last 7 Days dddd    2011-12-30 to 2012-01-05 inclusive  9999
Last 7 Days eeee    2011-12-30 to 2012-01-05 inclusive  9999
Last 7 Days ffff    2011-12-30 to 2012-01-05 inclusive  9999
Last 7 Days gggg    2011-12-30 to 2012-01-05 inclusive  9999
Last 7 Days hhhh    2011-12-30 to 2012-01-05 inclusive  9999
Last 7 Days iiii    2011-12-30 to 2012-01-05 inclusive  9999
Last 7 Days jjjj    2011-12-30 to 2012-01-05 inclusive  9999
Last 7 Days kkkk    2011-12-30 to 2012-01-05 inclusive  9999
New Users   aaaa    1/5/2012                            9999
New Users   bbbb    1/5/2012                            9999
New Users   cccc    1/5/2012                            9999
New Users   dddd    1/5/2012                            9999
New Users   eeee    1/5/2012                            9999
New Users   ffff    1/5/2012                            9999
New Users   gggg    1/5/2012                            9999
New Users   hhhh    1/5/2012                            9999
New Users   iiii    1/5/2012                            9999
New Users   jjjj    1/5/2012                            9999

这是使用VBA将它们复制到Excel后的理想格式。

到目前为止,我在网上找到了代码,允许我使用A1将整个邮件复制到1个单元格Msg.Body中 - 但我更喜欢以下格式。

    A   B       C               D
1   DAU aaaa    1/5/2012    9999
2   DAU bbbb    1/5/2012    9999
3   DAU cccc    1/5/2012    9999
4   DAU dddd    1/5/2012    9999
5   DAU eeee    1/5/2012    9999

我认为这会对很多人有所帮助,所以我希望有人可以帮助创建准确的代码并与我们分享。

由于

2 个答案:

答案 0 :(得分:1)

将其保存为txt文件(复制/粘贴),然后在Excel中打开(将出现导入向导)

答案 1 :(得分:0)

尝试使用paste special。

您将有几个选择,通常适合我的需求。它可能是“文本”版本。

如果您不熟悉特殊粘贴,这些是您的步骤: 1.从outlook消息中复制您想要的任何内容 2. Alt-tab over to excel 3.我使用快捷键(Alt,然后是“e”,然后是“s”)。那是你键盘上的Alt-E-S(没有破折号)。正常粘贴就是Alt,E,P 4.这将打开一个窗口,可以选择粘贴为unicode文本,文本,或者在图像的情况下,您将拥有各种选项。

希望这会有所帮助