4

格式化的 Excel 范围复制到 Word 文件

这会从 Excel 复制一系列单元格并将它们粘贴到保留格式的 Word 文档中。该代码适用于此。但是，我还想将数据粘贴到带有单元格样式的电子邮件正文中。

import sys
from pathlib import Path
import win32com.client as win32


excel_path = str(Path.cwd() / 'input.xlsx')
excel = win32.gencache.EnsureDispatch('Excel.Application')
excel.Visible = False
excel.DisplayAlerts = False
wb = excel.Workbooks.Open(excel_path)
ws = wb.Worksheets(1)
ws.Range("A1:B2").Copy()
wb.Close()

word_path = str(Path.cwd() / 'output.docx')
word = win32.gencache.EnsureDispatch('Word.Application')
doc = word.Documents.Open(word_path)
doc.Content.PasteExcelTable(False, False, True)
doc.Close()

# That works, but now I want to paste the copied Excel range into the body of
# an email. The solution may look something like the following with the "X"
# as a "Selection" or "Range" object for the PasteExcelTable method.

outlook = win32.gencache.EnsureDispatch('Outlook.Application')
new_mail = outlook.CreateItem(0)
new_mail.To = 'person@email.com'

new_mail.Body = ws.Range("A1:B2").PasteExcelTable(False, False, True)

new_mail.Send()
sys.exit()

我相信[PasteExcelTable] 2可用于在 Outlook 中实现这一点，就像它对 Word 文件所做的那样，也许有人知道如何做到这一点。

我没有正确定义范围。这是我尝试之一的示例：

    new_mail.Body = ws.Range("A1:B2").PasteExcelTable(False, False, True)

我知道这可以通过 VBA 完成，但我想使用 Python 并查看 PasteExcelTable 是否适用于此。如果不可能，我将捕获数据范围的图像并将其粘贴到电子邮件中。

4

4 回答 4

3

经过数小时的研究和实验，我发现了如何在 Outlook 中使用 PasteExcelTable。我希望这会有所帮助。您只需要在剪贴板中有 Excel 表格。

import win32com.client


outlook = win32com.client.Dispatch('Outlook.Application')
mail = outlook.CreateItem(0)
mail.To = "person@email.com"
mail.Subject = "Subject"
mail.Display()
inspector = outlook.ActiveInspector()
word_editor = inspector.WordEditor
word_range = word_editor.Application.ActiveDocument.Content
word_range.PasteExcelTable(False, False, True)
于 2020-03-20T22:27:26.477 回答
1

希望这会有所帮助...

import win32com.client as win32
import pandas as pd

df = pd.read_excel('fullexelpath.xlsx', index_col=False, nrows = 5,  usecols = "A:D")

body = df.to_html()

outlook = win32.gencache.EnsureDispatch('Outlook.Application')
mail = outlook.CreateItem(0)
mail.To = 'abc@gmail.com'
mail.HTMLBody = (body)
mail.Send()
于 2020-01-24T12:16:13.717 回答
0

我无法使用 PasteExcelTable，但我可以使用以下代码使用 HTMLBody 完成此操作：

import sys
from pathlib import Path
import win32com.client as win32
from PIL import ImageGrab

excel_path = str(Path.cwd() / 'input.xlsx')
excel = win32.gencache.EnsureDispatch('Excel.Application')
excel.Visible = False
excel.DisplayAlerts = False
wb = excel.Workbooks.Open(excel_path)
ws = wb.Worksheets(1)

win32c = win32.constants
ws.Range("A1:B2").CopyPicture(Format=win32c.xlBitmap)
img = ImageGrab.grabclipboard()
image_path = str(Path.cwd() / 'test.png')
img.save(image_path)

outlook = win32.gencache.EnsureDispatch('Outlook.Application')
new_mail = outlook.CreateItem(0)
new_mail.To = 'person@email.com'
new_mail.Attachments.Add(Source=image_path)
body = "<h1>Email text...</h1><br><br> <img src=test.png>"
new_mail.HTMLBody = (body)
new_mail.Send()
wb.Close()
sys.exit()
于 2019-07-14T20:12:09.833 回答
0

这会从 Excel 复制一系列单元格并将它们粘贴到保留格式的 Word 文档中。该代码适用于此。但是，我还想将数据粘贴到带有单元格样式的电子邮件正文中。

在 Outlook 中处理正文有三种主要方式：

  1. 正文- 表示消息正文的纯文本。
  2. HTML 正文。
  3. 文字编辑器。Outlook 使用 Word 作为电子邮件编辑器。Inspector 类提供WordEditor属性，该属性从表示消息正文的 Word 对象模型返回 Document 类的实例。或者只是使用类的 [GetInspector] 方法MailItem来检索类的实例Inspector。您可以在第 17 章：使用项目实体中阅读更多相关信息。

因此，基本上您可以在 Outlook 的情况下重复使用用于 Word 的相同代码库。

于 2019-07-14T14:09:02.117 回答