Excel 2010将范围转换为HTML

尝试将Excel 2010上的表转换为HTML。我想知道这是否可以用VBA实现，我是否可以让它在所需的单元格中吐出一段代码，以实现简单的复制和粘贴功能

---

它将要转换的表中有公式，可以自动从其他页面提取信息来构建它。

我找到了一种解决方法。我没有使用vba代码将所选范围转换为html，而是使用公式和一个vba代码进行替代

我做的第一件事是制作一张表5，然后从我试图复制的表中提取原始html数据，并将其分割，在代码中加上分隔符，以便输入新信息。我把每一块都贴在A2-K2上。然后，我将手动更改的信息链接到A4-K4格式的书上。它们使用到我的日志页面上的单元格链接，这些链接会随着我所做的每个列表的变化而变化

在单元格L2中，我将公式=串联A2、A4、B2、B4、C2、C4、D2、D4、E2、E4、F2、F4、G2、G4、H2、H4、I2、I4、J2、J4、K2

这将从我的日志中获取每一块原始html和信息，并将它们结合起来，显示完整的html代码。在我的记录表的C11单元格中，我输入=Sheet5$L$2在我的主页上显示html数据以复制和粘贴值

在这之后，我注意到excel会将双引号添加到已引用的所有内容，并将单引号添加到其他区域。在做了一些搜索之后，我发现了一个可以复制所选单元格的值的代码，这样我就可以粘贴不带引号的html代码。这是我用的宏

Sub CopyCellContents()
Range("C11").Select
'create a reference in the VBE to Microsft Forms 2.0 Lib
Dim objData As New DataObject
Dim strTemp As String
strTemp = ActiveCell.Value
objData.SetText (strTemp)
objData.PutInClipboard
End Sub`

我遇到了用户定义数据的问题。要解决这个问题，我必须退出代码调试器，重新打开包含宏的模块，转到工具 我将其分配给单元格C11旁边的一个按钮，现在当我单击它时，代码将被复制到我的剪贴板中，而不带引号。这并不完全符合我最初的计划，但结果正是我想要的。谢谢你的帮助，希望这对其他人有所帮助

下面是我完成的一些屏幕截图

这是我需要的每个清单的代码。Sheet5是分解成单元格的原始数据。

这是由这些公式生成的成品。这是我的日志页面和按钮。单击时，它会将框中的代码复制到右侧，不带引号。

---

整个电子表格是我的一个主要部分，它以不同的公式、宏、代码等不断增长。

我相信它是可以做到的。您是否尝试过编写代码？例如，有这样一个问题：您可以将其作为一个简单的表格或屏幕截图，您可以采用格式或使用默认布局。如果需要动态刷新，可以在VBA中开发相关公式。不幸的是，如果没有VBA，您的工具集很难满足任务的需要。我确实有我每次都试图让excel重写的代码。我使用的工作表有一组公式和VBA代码，可以自动提取我需要的信息，并将其应用到我正在处理的字段中进行复制和粘贴。是我日志的屏幕截图，左边是我试图应用它的表。