85问答库 > access子窗体查询导出ExcelExcel中有一列的数据是计算得出的导出Excel时如何向Exce传输公式.求代码

access子窗体查询导出ExcelExcel中有一列的数据是计算得出的导出Excel时如何向Exce传输公式.求代码

2025-03-23 07:26:11

推荐回答（1个）

回答1：

在EXCEL中,先在每个有注释的列右边加一个空列,用来存放注释.
然后增加一个宏,用来将工作表中的注释存到右边列的相同位置中.

Sub Comment()
Dim rng As Range
ActiveSheet.UsedRange.Select
For Each rng In Selection
On Error Resume Next
If Err = 0 Then Cells(rng.Row, rng.Column + 1).Value = rng.Comment.Text
Next
End Sub
然后补上注释列列标题,
最后将EXCEL表导入ACCESS,得到表,