Макросы в excel указать лист

Надеюсь GWolf не обидется, что я «встрял»

ultravirus,
Во-первых, не используйте Select в Вашем макросе, т.е. замените строки

Range("C2:O2").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
на:


with Range("C2:O2")
      .Borders(xlDiagonalDown).LineStyle = xlNone
end with

и второе,
что бы обращение было к конкретному листу конкретной книги используйте абсолютную ссылку, т.е.
конкретную книгу — Workbooks(«Пример.xls») и конкретный лист — Worksheets(«Исходные данные»)

with Workbooks("Пример.xls").Worksheets("Исходные данные").Range("C2:O2")
      .Borders(xlDiagonalDown).LineStyle = xlNone
end with
и всё наладится

Ничто не обходится нам так дешево и не ценится так дорого, как вежливость…  Мигель Сервантес де Сааведра

Цитата: boa от 26.03.2009, 00:09
Надеюсь GWolf не обидется, что я «встрял»

ultravirus,
Во-первых, не используйте Select в Вашем макросе, т.е. замените строки

Range("C2:O2").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
на:

with Range("C2:O2")
      .Borders(xlDiagonalDown).LineStyle = xlNone
end with

и второе,
что бы обращение было к конкретному листу конкретной книги используйте абсолютную ссылку, т.е.
конкретную книгу — Workbooks(«Пример.xls») и конкретный лист — Worksheets(«Исходные данные»)
with Workbooks("Пример.xls").Worksheets("Исходные данные").Range("C2:O2")
      .Borders(xlDiagonalDown).LineStyle = xlNone
end with
и всё наладится

необижусь абсолютно …

with Workbooks(«Пример.xls»).Worksheets(«Исходные данные»)
      .Range(«C2:O2»)’ — что дает такая запись, в отличии от предложенной boa? См. Прим.

      .Borders(xlDiagonalDown).LineStyle = xlNone
end with

Прим.

В пределах With … End with теперь можно указывать через точку, любой диапазон принадлежащий книге и (или, если в With указан только лист) листу указанному в With

И еще:

— если Вам нужно задать на выполнение макросом заранее неизвестный диапазон, так научите макрос его (этот диапазон) определять! Например, так:

Sub Proba()
    Dim nRwEnd As Long ' - для занятых строк
    Dim nClEnd As Long ' - для занятых столбцов

    With ThisWorkbook.ActiveSheet
        nRwEnd = .Cells(1, 1).CurrentRegion.Rows.Count
        nClEnd = .Cells(1, 1).CurrentRegion.Columns.Count
    End With
End Sub

Путей к вершине — множество. Этот один из многих!

Вот что написано в справке:

The following example creates a connection to a SharePoint site and publishes the ListObject object named List1 to the server. A reference to the QueryTable object for the list object is created and the MaintainConnection property of the QueryTable object is set to True so that the connection to the SharePoint site is maintained between trips to the server.

(Следующий пример создает подключение с сайтом SharePoint и издает объект ListObject по имени List1 на сервер. Справочная информация на объект QueryTable для объекта списка создана, и MaintainConnection <xlproMaintainConnection.htm> свойство объекта QueryTable установлен в Истину так, чтобы подключение с сайтом SharePoint было поддержано между поездками в сервер.)

      Dim wrksht As Worksheet
   Dim objListObj As ListObject
   Dim objQryTbl As QueryTable
   Dim prpQryProp As pro
   Dim arTarget(4) As String
   Dim strSTSConnection As String

      Set wrksht = ActiveWorkbook.Worksheets(«Sheet1»)
   Set objListObj = wrksht.ListObjects(1)

      arTarget(0) = «0»
   arTarget(1) = «http://myteam/project1»
   arTarget(2) = «1»
   arTarget(3) = «List1»

      strSTSConnection = objListObj.Publish(arTarget, True)

      Set objQryTbl = objListObj.QueryTable

      objQryTbl.MaintainConnection = True

может в этом проблема — объект незадан явно?
Я с объектом QueryTable не работал. Небыло таких задач.

Путей к вершине — множество. Этот один из многих!

Цитата: ultravirus от 26.03.2009, 15:28
Однако теперь встает другой вопрос — как заставить макрос работать в фоновом режиме, чтобы в фоне по нажатию кнопки происходила работа макроса, но без активного прыгания по страничкам?

Может, кто-то знает?

в начале:
    Application.ScreenUpdating = False
Ваш код
    Application.ScreenUpdating = True
в конце

Путей к вершине — множество. Этот один из многих!

Рад! Чертовски рад!

P.S. Как предложение: выкладывать те решения, которые «заработали»! Может кому еще пригодится! Но это только предложение.

Путей к вершине — множество. Этот один из многих!