Вместо Range(Selection, Selection.End(xlDown)).Select
можно использовать следующее:
Dim lRow As Long
lRow = Cells.Find("*", Range("A1"), xlFormulas, xlPart, xlByRows, xlPrevious).Row
lRow = номер последней строки
blockquote>Range(Cells(1,1), Cells(lRow, 9)).Select
Отредактировано: скобка отсутствует
Я не уверен, но беглый взгляд, кажется, показывает следующее. Незаконная строка в сценарии, кажется:
Строка 42 в процедуре [dbo]. [aspnet_Users_DeleteUser] (как Вы делаете символы нижнего подчеркивания здесь?) (как это: \_)
(СУЩЕСТВУЕТ (ИЗБРАННОЕ имя ОТ sysobjects, ГДЕ (назовите = N'vw_aspnet_MembershipUsers') И (тип = 'V')))),
системное представление sysobjects принадлежит созданному в системной схеме 'sys', который не включен в проект базы данных. В результате синтаксический анализатор проекта базы данных думает (неправильно), что ссылка не разрешена.
Я не думаю, что существует что-либо, что можно сделать, но выбрать для игнорирования предупреждения от настроек проекта. (Знайте, что это скроет реальные ошибки от Вас также.) Я, вероятно, просто проигнорировал бы предупреждения.
Обновление: Попытайтесь добавить ссылку на:
C:\Program Files\Microsoft Visual Studio 9.0\VSTSDB\Extensions\SqlServer\2008\DBSchemas\master.dbschema
Ответ Kim выше работ отлично для ситуации я попросил. Но, я также узнал, что можно отфильтровать предупреждения сборки на файл. Взгляд на http://blogs.msdn.com/gertd/archive/2009/01/11/file-level-build-warning-suppression-in-the-gdr.aspx