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

发布网友 发布时间：2022-04-24 02:03

我来回答

共1个回答

热心网友 时间：2023-10-20 17:05

在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,得到表,

热心网友 时间：2023-10-20 17:05

在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,得到表,

热心网友 时间：2023-10-20 17:05

在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,得到表,

热心网友 时间：2023-10-20 17:05

在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,得到表,