如何解决在 HTML 中调整表格？

老实说，我对 VBA 编程一无所知，但是，根据这个平台上的问题和答案，我整理了一个实际工作正常的代码（复制表格，创建并通过电子邮件发送并将表格粘贴到电子邮件）

我需要帮助进行微调以实现以下结果：

1. A 列应包含 K 列的粘贴值（当我的 VBA 代码无法识别电子邮件地址时， 后面有VLOOKUP公式）
2. 粘贴到电子邮件时隐藏 A 列和 K 列
3. 在粘贴到电子邮件时优化列宽
4. 将电子邮件发送给收件人后，将“已发送”放入 L 列

这是代码：

Option Explicit

Sub Test1()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim dict As Object
    Dim cell As Range
    Dim cell2 As Range
    Dim rng As Range
    Dim i As Long
    Dim WS As Worksheet

    Application.ScreenUpdating = False
    Set OutApp = CreateObject("outlook.application")
    Set dict = CreateObject("scripting.dictionary")
    Set WS = ThisWorkbook.Sheets("Hlavnat")
    
    On Error GoTo cleanup
    For Each cell In WS.Columns("A").Cells.SpecialCells(xlCellTypeConstants)
        If cell.Value Like "?*@?*.?*" Then

                If dict.exists(cell.Value) = False Then

                dict.Add cell.Value,""
                Set OutMail = OutApp.CreateItem(0)
                Set rng = WS.UsedRange.Rows(1)

                    For Each cell2 In WS.UsedRange.Columns(1).Cells
                    If cell2.Value = cell.Value Then
                        Set rng = Application.Union(rng,WS.UsedRange.Rows(cell2.Row))
                    End If
                Next cell2
                
           
                
                On Error Resume Next
                With OutMail
                    .To = cell.Value
                    .Subject = "Navolané kontakty"
                    .HTMLBody = RangetoHTML(rng)
                    .display
                End With

                On Error GoTo 0
                Set OutMail = nothing
            End If
        End If
    Next cell

cleanup:
    Set OutApp = nothing
    Application.ScreenUpdating = True
End Sub

Function RangetoHTML(rng As Range)

    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook
    
 
    TempFile = Environ$("temp") & "/" & Format(Now,"dd-mm-yy h-mm-ss") & ".htm"

    rng.copy
    Set TempWB = Workbooks.Add(1)
    With TempWB.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial xlPasteValues,False,False
        .Cells(1).PasteSpecial xlPasteFormats,False
        .Cells(1).Select
        Application.CutcopyMode = False
        On Error Resume Next
        .DrawingObjects.Visible = True
        .DrawingObjects.Delete
        On Error GoTo 0
    End With

   
    With TempWB.PublishObjects.Add( _
         SourceType:=xlSourceRange,_
         Filename:=TempFile,_
         Sheet:=TempWB.Sheets(1).Name,_
         Source:=TempWB.Sheets(1).UsedRange.Address,_
         HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With


    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(TempFile).OpenAsTextStream(1,-2)
    RangetoHTML = ts.readall
    ts.Close
    RangetoHTML = Replace(RangetoHTML,"align=center x:publishsource=",_
                          "align=left x:publishsource=")

    
    TempWB.Close savechanges:=False

    Kill TempFile
    
    Set ts = nothing
    Set fso = nothing
    Set TempWB = nothing
End Function

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

<el-table
        ref="zeroTable"
        v-loading="iLoading"
        :data="iTableData"
        :row-:cell-:header-row-:header-cell-
        :style="iStyle"
        :stripe="iStripe"
        :border="iBorder"
        :max-height="iMaxHeight"
        :height="iMaxHeight"
        :default-sort="iDefaultSort"
        :highlight-current-row="iHighLightCurRow"
        @row-click="TableRowClickHandle"
        @row-dblclick="TableDoubleRowClickHandle"
        @selection-change="TableMultipleSelectionHandle">

iRowStyle:function ({row, rowIndex}) {
    return ''height:35px'';
},
iHeaderRowStyle:function ({row, rowIndex}) {
    return ''height:35px'';
},
iCellStyle:function ({row, column, rowIndex, columnIndex}) {
    return ''padding:0px''
},
iHeaderCellStyle:function ({row, column, rowIndex, columnIndex}) {
    return ''padding:0px''
}