Question

我有一个像HTML这样的表结构：

<td></td>

现在我想在数据表的第一行添加第一个tr，在第二行添加第二个。

第一行将是3个单元格，值为3

Sub AAA()

'If Workbooks("Source.xlsm").Sheets("Sheet2").Range("A2").Value = Workbooks("Target.xlsm").Sheets("Sheet1").Range("A2").Value Then
'Workbooks("Source.xlsm").Sheets("Sheet2").Range("B2").Value = Workbooks("Target.xlsm").Sheets("Sheet1").Range("C2").Value
Dim a As Long
Dim lastrow As Long
Dim lastcol As Long
Dim source As Worksheet
Dim target As Worksheet
    Dim cellFound As Range



    Set target = Workbooks("Target.xlsm").Sheets("Sheet1")
    Set source = Workbooks("Source.xlsm").Sheets("Sheet2")
    lastrow = source.Range("A" & target.Rows.Count).End(xlUp).Row
    lastcol = target.Cells(2, target.Columns.Count).Column

    target.Activate

'For a = 2 To 50
For Each cell In target.Range("A2:A500")
        ' Try to find this value in the source sheet

        Set cellFound = source.Range("A:A").Find(What:=cell.Value, LookIn:=xlValues, LookAt:=xlWhole)
        If Not cellFound Is Nothing Then

            cell.Offset(ColumnOffset:=2).Copy
            cellFound.Offset(ColumnOffset:=1).PasteSpecial xlPasteValues


     'If source.Range("A" & a).Value = target.Range("A" & a).Value Then
     'target.Range("C" & a).Select
     'Range(ActiveCell, ActiveCell.Offset(0)).Copy
     'source.Range("B" & a).PasteSpecial
     Else
     Exit Sub


     End If

Next



End Sub

请帮帮我。非常感谢。

Answer 1

让我们在这里做一点分离。 HTML旨在帮助您确定浏览器中的查看空间。它读起来就像你想根据来自其他地方的数据动态创建一个表。如果我们暂时假设数据作为数组（原始，XML，JSON）传递给浏览器，那么您需要在浏览器页面中使用一些JavaScript代码来接收该数组，然后动态构建表。这种方法在网络上运行得更快，但是可以多加载用户的PC。
您也可以在服务器上完成所有这些操作。您已使用C＃标记了此问题，因此在Windows服务器上，您可以通过创建html标记并将数据库中的相应值放入您发送到浏览器的生成的HTML流中来动态构建表。这种方法会给网络带来更多负担，而对用户的PC则会略微减少。
如果您可以提供有关数据所在位置以及计划如何将其发送到浏览器的更多信息，我们可以为您提供更多帮助。

将HTML tr的值添加到DataTable中

1 个答案: