我想通了一个办法解决这个问题。我使用公式和一个单独的vba代码替代了使用vba代码将选定范围转换为html的替代路线。
我做的第一件事就是制作一张Sheet5,然后我从表格中提取原始html数据,我试图复制并将代码分成代码,然后输入新的信息。我把每个块都粘贴在A2-K2中。然后,我收到了手动更改的信息,并将其与A4-K4中的图书链接。 (这些是使用链接到与我做的每件物品改变我的登录页上的细胞)
细胞L2,我把公式=CONCATENATE(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旁边的一个按钮,现在当我点击它时,代码被复制到我的剪贴板中而不用引号。这不正是我最初的计划,但结果正是我想要的。感谢您的帮助,希望这可以帮助其他人。
下面是我完成的一些屏幕截图。
这是由这些公式创建的成品。我的日志页面上有按钮。点击后,它将框中的代码复制到右侧而不用引号。 http://i.stack.imgur.com/jh34N.png
整个电子表格是一个力作是不断用不同的公式,宏,代码等成长矿...