向Access数据库中导入Excel文件数据时 如何将Excel单元格中的注释也一起导入？

在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.