Приветствую, уважаемые участники форума! Я работаю в excel 2007 и переношу оттуда данные в sql server, для чего мне необходимо автоматизировать процесс проставления апострофов и запятых (чтобы был список для sql). Надо, чтобы число из ячейки например 525 превратилось в '525',
Я делаю это так
[vba]
Код
Sub apostrof() Dim cell As Range Application.ScreenUpdating = False
For Each cell In Selection.SpecialCells(xlCellTypeConstants) cell.Value = "'" & cell.Value & "'," Next
Application.ScreenUpdating = True
End Sub
[/vba]
В строке формул результат с виду тот что надо. А по факту слева апострофа нет. В чем же дело и как правильно?
Заранее большое спасибо.
Приветствую, уважаемые участники форума! Я работаю в excel 2007 и переношу оттуда данные в sql server, для чего мне необходимо автоматизировать процесс проставления апострофов и запятых (чтобы был список для sql). Надо, чтобы число из ячейки например 525 превратилось в '525',
Я делаю это так
[vba]
Код
Sub apostrof() Dim cell As Range Application.ScreenUpdating = False
For Each cell In Selection.SpecialCells(xlCellTypeConstants) cell.Value = "'" & cell.Value & "'," Next
Application.ScreenUpdating = True
End Sub
[/vba]
В строке формул результат с виду тот что надо. А по факту слева апострофа нет. В чем же дело и как правильно?
Michael_S, если использовать второй вариант, то левым символом оказывается пробел, но апостроф все же ставится. А первый вариант работает как надо. Спасибо за мгновенную помощь! В общем, код получился такой
[vba]
Код
Sub apostrof() Dim cell As Range Application.ScreenUpdating = False
For Each cell In Selection.SpecialCells(xlCellTypeConstants) cell.Value = "'" & "'" & cell.Value & "'," Next
Application.ScreenUpdating = True End Sub
[/vba]
Michael_S, если использовать второй вариант, то левым символом оказывается пробел, но апостроф все же ставится. А первый вариант работает как надо. Спасибо за мгновенную помощь! В общем, код получился такой
[vba]
Код
Sub apostrof() Dim cell As Range Application.ScreenUpdating = False
For Each cell In Selection.SpecialCells(xlCellTypeConstants) cell.Value = "'" & "'" & cell.Value & "'," Next
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
