Приветствую,
делаю запрос из sql, код нашел в инете, в ВБА не умею программировать, укажите, пожалуйста, в чем ошибка?
-1, +1, 0 и т.д. перепробовал(получалось сместить правильно, но не отображалось название первого столбца), поиск искал, но мне не помогло.
делаю запрос из sql, код нашел в инете, в ВБА не умею программировать, укажите, пожалуйста, в чем ошибка?
-1, +1, 0 и т.д. перепробовал(получалось сместить правильно, но не отображалось название первого столбца), поиск искал, но мне не помогло.
| Код |
|---|
For i = 0 To rst.Fields.Count - 1 If i < SomeValue Then Cells(1, i + 1).Value = rst.Fields(i).Name End If If i > SomeValue Then Cells(1, i).Value = rst.Fields(i).Name End If Next i |
Изменено: - 27.03.2017 14:03:53
