Sql 我需要在可展示的网页或word文档上显示excel数据？

我有excel格式的调查结果。然后我需要单独显示这些结果，在一个可呈现的word文档或wewb页面上的标题是什么？有什么办法可以做到这一点

例如：

第1列-第2列

结果1-结果1

结果2-结果2

到

第1列

结果一

第2栏

结果一

第1栏

结果2

ComColumn 2

结果2

对不起，如果没有意义的话

---

谢谢

听起来您需要在word中使用“邮件合并”，然后将excel电子表格作为数据源。

您的问题中没有太多信息可供参考，但您似乎可以使用宏来转换数据。我编写了一个快速宏，它以您提供的格式获取数据，并按照您指定的格式输出数据

我将使用下面的宏在Excel中创建一个新的工作表，然后根据需要对其进行操作或将其粘贴到Word中。没有更多的信息，就没有更多的话要说

**Input**
Column A      Column B
Result A1     Result B1
Result A2     Result B2
**Output**
Column A
Result A1
Column B
Result B1
Column A
Result A2
Column B
Result B2

以下是宏：

' Transforms the current sheet
' This method takes columns and rows and outputs a
' single This is not a transpose method, but similar.
Public Sub TransformSheet()
    Dim SourceSheet As Worksheet
    Dim ResultSheet As Worksheet
    Dim iSourceColumn As Long, iSourceRow As Long
    Dim iResultColumn As Long, iResultRow As Long
    Dim iHeaderRow As Long
    Dim UseCopyPaste As Boolean
    ' Change source and result sheets as necessary
    Set SourceSheet = ActiveSheet
    Set ResultSheet = ActiveWorkbook.Sheets("Sheet2")
    ' Options
    UseCopyPaste = True
    iHeaderRow = 1
    iResultColumn = 1
    iResultRow = 1
    ' Main Loop
    For iSourceRow = 2 To SourceSheet.UsedRange.Rows.Count
        For iSourceColumn = 1 To SourceSheet.UsedRange.Columns.Count
            If UseCopyPaste Then
                ' Header Column
                SourceSheet.Cells(iHeaderRow, iSourceColumn).Copy
                ResultSheet.Cells(iResultRow, iResultColumn).PasteSpecial xlPasteAll
                iResultRow = iResultRow + 1
                ' Result  Column
                SourceSheet.Cells(iSourceRow, iSourceColumn).Copy
                ResultSheet.Cells(iResultRow, iResultColumn).PasteSpecial xlPasteAll
                iResultRow = iResultRow + 1
            Else
                ' Header Column
                ResultSheet.Cells(iResultRow, iResultColumn) = _
                    SourceSheet.Cells(iHeaderRow, iSourceColumn).Value
                iResultRow = iResultRow + 1
                ' Result Column
                ResultSheet.Cells(iResultRow, iResultColumn) = _
                    SourceSheet.Cells(iSourceRow, iSourceColumn).Value
                iResultRow = iResultRow + 1
            End If
        Next iSourceColumn
    Next iSourceRow
End Sub

---

你能解释一下为什么不能在excel中表现出来吗？这可能有助于回答这个问题？谢谢你的帮助，如果其中任何一种更容易使用，我可以用xml sql或csv检索数据？谢谢