如何在导出到Excel电子表格之前replace访问备注数据types上的<div>标记

我试图将我的数据从Access查询导出到Excel电子表格。 我设法做到这一点，但一旦我从excel导出这些数据; 备注数据types字段在这些Excel单元格上有标签。

我想导出所有我的备忘录数据types字段在excel单元格中没有标签。

这里是我的代码在MS Access的示例。 Dim stQueryDef As DAO.QueryDef Set dbs = CurrentDb'On Error Resume Next

Set dbs = CurrentDb Set stQueryDef = dbs.QueryDefs("MyQuery") Set rst = stQueryDef.OpenRecordset Dim xlApp As Object Set xlApp = CreateObject("Excel.Application") With xlApp .Visible = True .Workbooks.Add .Sheets("Sheet1").Select .Activesheet.Range("A2").CopyFromRecordset rst For i = 1 To rst.Fields.Count xlApp.ActiveWorkbook.Sheets(1).Cells(1, i) = rst.Fields(i - 1).Name Next i xlApp.Cells.EntireColumn.AutoFit End With 

这是我的导出数据的示例结果。

Answer 1

谷歌search“ms访问条html标签”发现Plaintext（）函数删除不需要的标签。 ;）Graham R Seach也写了一些代码来删除它们。