VBA中如何插入html代码

要从两个方面考虑：

1、如何把现有文档中的图片导出？这个代码片断可以参考一下：

Set ImageStream = CreateObject("ADODB.Stream")

With ImageStream

.Type = 1

.Open

.Write ActiveDocument.InlineShapes(1).Range.EnhMetaFileBits

.SaveToFile "d:\Temp\Output.bmp"

.Close

End With

Set ImageStream = Nothing

2、如何把已经到处的图片导入到新文档中？这个函数调用可以参考一下：

ActiveDocument.InlineShapes.AddPicture

如果还是不明白的话，请补充提问。

_____

补充：

请问楼主你运行那个代码片断得到的*完整*错误信息是什么？报错的时候，系统一般会把光标移动到出错的那行代码上，你看到的是哪一行代码出错呢？

我看你贴上来的代码应该是没有什么语法上的错误，“Exit For”的确是不应该要的，但那也不是语法错误啊。

试试下面的代码，是将sheet1 保存为 html格式。

Sub Chief()

iPath = ThisWorkbook.Path & "\"             '(保存路径为当前工作簿所在路径)

myN = ActiveSheet.Name

ActiveSheet.Copy

ActiveWorkbook.SaveAs Filename:=iPath & myN & ".html", FileFormat:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False

       '(工作表名称为文件名）

ActiveWorkbook.Close

End Sub

 

'打开询问时不启用ACTIVEX即可

：将html源码直接转换成纯文本的VBA代码

不需要代码

把B列数据复制到记事本

再把B列格式设置成 YYYY/M/D HH:MM:SS格式

最后从记事本把数据考回来就可以了

如果在VBA中直接使用的话，加一个datevalue转换下就好了

---