将特定格式表从outlook复制到电子邮件
我需要在工作中将许多表从outlook复制到Excel。
我知道如何使用.getElementsByTagName("table")来做到这一点。
但是，我的公司合并并拆分了一些表格单元格。
有人可以看一下吗？
这是我在展望中的表格：
这就是我想在Excel上复制它的方法：
结果如下：
VBA代码：
Option Explicit
Public fso As New FileSystemObject
Public objApp As Outlook.Application
Public oItem As Outlook.MailItem
Sub importOutlookTable()
Set oItem = GetCurrentItem()
oItem.display
Dim oHTML As MSHTML.HTMLDocument: Set oHTML = New MSHTML.HTMLDocument
Dim oElColl As MSHTML.IHTMLElementCollection
With oHTML
.body.innerHTML = oItem.HTMLBody
Set oElColl = .getElementsByTagName("table")
End With
'import in Excel
Dim x As Long, y As Long
With Worksheets("sheet2")
For x = 0 To oElColl(0).Rows.Length - 1
For y = 0 To oElColl(0).Rows(x).Cells.Length - 1
.Range("a1").Offset(x, y).Value = oElColl(0).Rows(x).Cells(y).innerText
Next y
Next x
End With
Set objApp = Nothing
Set oItem = Nothing
Set oHTML = Nothing
Set oElColl = Nothing
End Sub
Function GetCurrentItem() As Object
Set objApp = CreateObject("Outlook.Application")
On Error Resume Next
Select Case TypeName(objApp.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
End Select
Set objApp = Nothing
End Function
html代码：
</head>
<body lang="ZH-TW" link="#0563C1" style='text-justify-trim:punctuation' vlink=
"#954F72">
<div class="WordSection1">
<table border="0" cellpadding="0" cellspacing="0" class=
"MsoNormalTable" style=
'width:203.0pt;margin-left:.1pt;border-collapse:collapse' width="271">
<tr style='height:15.75pt'>
<td nowrap rowspan="2" style=
'width:60.0pt;border:solid windowtext 1.0pt;border-bottom:solid black 1.0pt;padding:0cm 1.4pt 0cm 1.4pt;height:15.75pt'
width="80">
<p class="MsoNormal" style=
'font-weight: bold; text-align: center'><span lang="EN-US"
style='font-family:"Arial",sans-serif'>header 1</span></p>
</td>
<td nowrap style=
'width:83.0pt;border-top:solid windowtext 1.0pt;border-left:none;border-bottom:none;border-right:solid windowtext 1.0pt;padding:0cm 1.4pt 0cm 1.4pt;height:15.75pt'
width="111">
<p class="MsoNormal" style=
'font-weight: bold; text-align: center'><span lang="EN-US"
style='font-family:"Arial",sans-serif'>header 2</span></p>
</td>
<td nowrap rowspan="2" style=
'width:60.0pt;border-top:solid windowtext 1.0pt;border-left:none;border-bottom:solid black 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 1.4pt 0cm 1.4pt;height:15.75pt'
width="80">
<p class="MsoNormal" style=
'font-weight: bold; text-align: center'><span lang="EN-US"
style='font-family:"Arial",sans-serif'>header 4</span></p>
</td>
<td height="21" style='height:15.75pt;border:none' width="0">
</td>
</tr>
<tr style='height:16.5pt'>
<td nowrap style=
'width:83.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 1.4pt 0cm 1.4pt;height:16.5pt'
width="111">
<p class="MsoNormal" style=
'font-weight: bold; text-align: center'><span lang="EN-US"
style='font-family:"Arial",sans-serif'>header 3</span></p>
</td>
<td height="22" style='height:16.5pt;border:none' width="0">
</td>
</tr>
<tr style='height:18.0pt'>
<td nowrap rowspan="3" style=
'width:60.0pt;border-top:none;border-left:solid windowtext 1.0pt;border-bottom:solid black 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 1.4pt 0cm 1.4pt;height:18.0pt'
width="80">
<p class="MsoNormal" style='text-align: center'><span lang=
"EN-US" style=
'font-family:"Arial",sans-serif'>apple</span></p>
</td>
<td nowrap rowspan="2" style=
'width:83.0pt;border:none;border-right:solid windowtext 1.0pt;padding:0cm 1.4pt 0cm 1.4pt;height:18.0pt'
width="111">
<p class="MsoNormal" style='text-align: center'><span lang=
"EN-US" style=
'font-family:"Arial",sans-serif'>red</span></p>
</td>
<td nowrap rowspan="3" style=
'width:60.0pt;border-top:none;border-left:none;border-bottom:solid black 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 1.4pt 0cm 1.4pt;height:18.0pt'
width="80">
<p class="MsoNormal" style='text-align: center'><span lang=
"EN-US" style='font-family:"Arial",sans-serif'>4</span></p>
</td>
<td height="24" style='height:18.0pt;border:none' width="0">
</td>
</tr>
<tr style='height:18.0pt'>
<td height="24" style='height:18.0pt;border:none' width="0">
</td>
</tr>
<tr style='height:15.75pt'>
<td nowrap style=
'width:83.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 1.4pt 0cm 1.4pt;height:15.75pt'
width="111">
<p class="MsoNormal" style='text-align: center'><span lang=
"EN-US" style=
'font-family:"Arial",sans-serif'>fruit</span></p>
</td>
<td height="21" style='height:15.75pt;border:none' width="0">
</td>
</tr>
<tr style='height:18.0pt'>
<td nowrap rowspan="3" style=
'width:60.0pt;border-top:none;border-left:solid windowtext 1.0pt;border-bottom:solid black 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 1.4pt 0cm 1.4pt;height:18.0pt'
width="80">
<p class="MsoNormal" style='text-align: center'><span lang=
"EN-US" style=
'font-family:"Arial",sans-serif'>banana</span></p>
</td>
<td nowrap rowspan="2" style=
'width:83.0pt;border:none;border-right:solid windowtext 1.0pt;padding:0cm 1.4pt 0cm 1.4pt;height:18.0pt'
width="111">
<p class="MsoNormal" style='text-align: center'><span lang=
"EN-US" style=
'font-family:"Arial",sans-serif'>yellow</span></p>
</td>
<td nowrap rowspan="3" style=
'width:60.0pt;border-top:none;border-left:none;border-bottom:solid black 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 1.4pt 0cm 1.4pt;height:18.0pt'
width="80">
<p class="MsoNormal" style='text-align: center'><span lang=
"EN-US" style='font-family:"Arial",sans-serif'>3</span></p>
</td>
<td height="24" style='height:18.0pt;border:none' width="0">
</td>
</tr>
<tr style='height:18.0pt'>
<td height="24" style='height:18.0pt;border:none' width="0">
</td>
</tr>
<tr style='height:15.75pt'>
<td nowrap style=
'width:83.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 1.4pt 0cm 1.4pt;height:15.75pt'
width="111">
<p class="MsoNormal" style='text-align: center'><span lang=
"EN-US" style=
'font-family:"Arial",sans-serif'>fruit</span></p>
</td>
<td height="21" style='height:15.75pt;border:none' width="0">
</td>
</tr>
<tr style='height:18.0pt'>
<td nowrap rowspan="3" style=
'width:60.0pt;border-top:none;border-left:solid windowtext 1.0pt;border-bottom:solid black 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 1.4pt 0cm 1.4pt;height:18.0pt'
width="80">
<p class="MsoNormal" style='text-align: center'><span lang=
"EN-US" style=
'font-family:"Arial",sans-serif'>cat</span></p>
</td>
<td nowrap rowspan="2" style=
'width:83.0pt;border:none;border-right:solid windowtext 1.0pt;padding:0cm 1.4pt 0cm 1.4pt;height:18.0pt'
width="111">
<p class="MsoNormal" style='text-align: center'><span lang=
"EN-US" style=
'font-family:"Arial",sans-serif'>cute</span></p>
</td>
<td nowrap rowspan="3" style=
'width:60.0pt;border-top:none;border-left:none;border-bottom:solid black 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 1.4pt 0cm 1.4pt;height:18.0pt'
width="80">
<p class="MsoNormal" style='text-align: center'><span lang=
"EN-US" style='font-family:"Arial",sans-serif'>1</span></p>
</td>
<td height="24" style='height:18.0pt;border:none' width="0">
</td>
</tr>
<tr style='height:18.0pt'>
<td height="24" style='height:18.0pt;border:none' width="0">
</td>
</tr>
<tr style='height:15.75pt'>
<td nowrap style=
'width:83.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 1.4pt 0cm 1.4pt;height:15.75pt'
valign="bottom" width="111">
<p class="MsoNormal" style='text-align: center'><span lang=
"EN-US" style=
'font-family:"Arial",sans-serif'>animal</span></p>
</td>
<td height="21" style='height:15.75pt;border:none' width="0">
</td>
</tr>
</table>
<p class="MsoNormal"><span lang="EN-US"> </span></p>
<p class="MsoNormal"><span lang="EN-US"> </span></p>
<p class="MsoNormal"><span lang="EN-US"> </span></p>
<p class="MsoNormal"><span lang="EN-US"> </span></p>
<p class="MsoNormal"><span lang="EN-US"> </span></p>
<p class="MsoNormal"><span lang="EN-US"> </span></p>
</div>
</body>
</html>
1 个答案:
答案 0 :(得分：0)
这应该可以解决问题。它首先将元素分解为集合，因此您不必担心Cells.Length中的变体。在HTML表格中，一些行有4个单元格，而其他行只有一个跨越2x高的行。这就是为什么它没有正确填充你的表
您必须重新格式化目标，但它会将Header 2下的数据分开，并避免浪费行。
替换它：
With Worksheets("sheet2")
For x = 0 To oElColl(0).Rows.Length - 1
For y = 0 To oElColl(0).Rows(x).Cells.Length - 1
.Range("a1").Offset(x, y).Value = oElColl(0).Rows(x).Cells(y).innerText
Next y
Next x
End With
有了这个：
Dim colTabEle As New Collection
Dim i As Integer: i = 1
For x = 0 To oElColl(0).Rows.Length - 1
For y = 0 To oElColl(0).Rows(x).Cells.Length - 1
colTabEle.Add oElColl(0).Rows(x).Cells(y).innerText
Next y
Next x
With Worksheets("sheet2")
For x = 0 To (colTabEle.Count + 1) / 4
For y = 0 To 2
.Range("a1").Offset(x, y).Value = colTabEle(i)
If IsNumeric(colTabEle(i)) Then
i = i + 2
Else
i = i + 1
End If
Next y
Next x
End With
相关问题
最新问题
- 我写了这段代码，但我无法理解我的错误
- 我无法从一个代码实例的列表中删除 None 值，但我可以在另一个实例中。为什么它适用于一个细分市场而不适用于另一个细分市场？
- 是否有可能使 loadstring 不可能等于打印？卢阿
- java中的random.expovariate()
- Appscript 通过会议在 Google 日历中发送电子邮件和创建活动
- 为什么我的 Onclick 箭头功能在 React 中不起作用？
- 在此代码中是否有使用“this”的替代方法？
- 在 SQL Server 和 PostgreSQL 上查询，我如何从第一个表获得第二个表的可视化
- 每千个数字得到
- 更新了城市边界 KML 文件的来源？