Метод Select. Где ошибка??

[Klakson]

Здравствуйте уважаемые форумчане! Возникла проблема с кодом.
Цель программы - "взять" данные из так называемого SharePoint, импортировать в эксель, и затем сверстать эскуэль скрипт. Сейчас проблема заключается в том, что когда я переношу нужные мне столбцы на другой лист, у меня формат даты изменяется в числовой формат. Посредством ВБА я бы хотел выделить нужный мне столбец, и изменить его формат на ""m/d/yyyy". Но программа выдает ошибку. Где я не прав? Спасибо заранее. Ниже код:

Sub SQLQUERY()

'----------------- очистка листа --------------------

Sheets("Sheet2").Range("A1: Q1000").Delete

'--------------


'----------------синхронизация------------------

Sheets("Sheet1").Select
ActiveSheet.ListObjects("Список1"). UpdateChanges xlListConflictDialo

'----------------

Columns("C:C").Select
Selection.NumberFormat = "m/d/yyyy"
' ВОТ ТУТ ВСЕ ПРЕКРАСНО РАБОТАЕТ!

Sheets("Sheet2").Select



j = 2

While Sheets("Sheet1").Cells(j, 2) <> ""

Sheets("Sheet2").Cells(j - 1, 1) = Sheets("Sheet1").Cells(j, 2)

Sheets("Sheet2").Cells(j - 1, 2) = Sheets("Sheet1").Cells(j, 3)

Sheets("Sheet2").Cells(j - 1, 3) = Sheets("Sheet1").Cells(j, 4)

Sheets("Sheet2").Cells(j - 1, 4) = Sheets("Sheet1").Cells(j, 7)

Sheets("Sheet2").Cells(j - 1, 5) = Sheets("Sheet1").Cells(j, 15)

j = j + 1

Wend


Columns("B:B").Select
'А ВОТ ПОСЛЕ ЭТОГО СЕЛЕКТА ЭКСЕЛЬ ВЫДАЕТ ОШИБКУ
Selection.NumberFormat = "m/d/yyyy"


End Sub

[SAS888]

Во-первых, Select - это почти всегда ни к чему.
Во-вторых, лучше, сначала задать формат ячеек листа, а уже затем, вставлять данные.
Учитывая все, выше сказанное и ничего не переделывая в Вашем коде, макрос будет выглядеть примерно так:

Sub SQLQUERY()
    Dim sh As Worksheet: Set sh = Sheets("Sheet1"): Application.ScreenUpdating = False
    Sheets("Sheet2").Activate: [A1: Q1000].ClearContents
    sh.ListObjects("Список1").UpdateChanges xlListConflictDialo
    sh.[C:C].NumberFormat = "m/d/yyyy": [B:B].NumberFormat = "m/d/yyyy": j = 2
    While sh.Cells(j, 2) <> ""
        Cells(j - 1, 1) = sh.Cells(j, 2): Cells(j - 1, 2) = sh.Cells(j, 3)
        Cells(j - 1, 3) = sh.Cells(j, 4): Cells(j - 1, 4) = sh.Cells(j, 7)
        Cells(j - 1, 5) = sh.Cells(j, 15): j = j + 1
    Wend
End Sub

Попробуйте, может это поможет.

[Klakson]

Огромное спасибо!!! Все замечательно работает!