Сообщество Чайников

Вопрос

Создал достаточно большой список своих фильмов в Excel, теперь хочу перенести все данные в Access, никак не получается скопировать содержимое примечаний, (там у меня подробности о фильме — жанр, содержание etc.). Как это можно было бы сделать, и можно ли это автоматизировать?

Ответ

Думаю, удобней будет сначала вынести все комментарии к ячейкам в свободные ячейки, а уж потом импортировать таблицу в Access

Public Sub AllCommentsToCells() Dim cb, ce, rb, re, nc, i, j As Integer
'определяем границы области обработки
cb = Selection.Column ce = Selection.Column + Selection.Columns.Count — 1 rb = Selection.Row re = Selection.Row + Selection.Rows.Count — 1
'номер последнего использованного столбца
Set cs = ActiveWorkbook.ActiveSheet nc = cs.UsedRange.Columns.Count On Error Resume Next
'перебор всех ячеек с выносом комментариев
'в пустые ячейки по строкам
For i = cb To ce For j = rb To re cs.Cells(j, nc + i — (ce — cb)).Value = _ cs.Cells(j, i).Comment.Text Next j Next i
End
Sub

Этот макрос вынесет все содержания комментариев в выделенной области листа в неиспользованные ячейки справа от исходной таблицы по соответствующим строкам и столбцам. Думаю будет не сложно потом получившееся подготовить к импорту в Access.

Из конференции Expert_FAQ