Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » ncux199rus
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
присвоение значений из активной книги, ошибка Application-defined or object-defined error
 
#
20.04.2016 15:56:31
Dima S, Hugo,Спасибо.
Заработало. Перед range нужна точка.
С with примерно понятно, но все равно точки пришлось научным методом подбирать.
Код
With Sheets(datetime)
        .Range(.Cells(6, 1), .Cells(7, 10)).Copy .Cells(7, 1)
End With

Спасибо.
 
Перейти    
присвоение значений из активной книги, ошибка Application-defined or object-defined error
 
#
20.04.2016 15:13:37
Hugo, Подскажите где об этом прочитать.
Все что нашел в интернете по поводу range(cells()) про это свойство умалчивают.
Это заговор?
Такой кусок тоже не работает. Копирование в пределах одного листа. Если заменить cells на "a6:J7", то все работает.
Что не так?
Код
  With Sheets(datetime)
     Range(Cells(6, 1), Cells(7, 10)).Copy Worksheets(datetime).Range(Cells(7, 1))
  End With
Изменено: ncux199rus - 20.04.2016 15:23:09
 
Перейти    
Отчет из MS SQL о выполнении процедуры.
 
#
29.10.2015 14:25:49
Добрый день.
По кнопке запускаю в MS SQL процедуру. необходимо получить обратную реакцию от сервера об окончании выполнения или ошибке.
Подскажите каким образом это можно реализовать?
Соединение с SQL организовано следующим образом:
Код
Private Sub avt_insert_Monthdata_1_Click()
    Dim cn As ADODB.Connection
    Dim str As String 'данные для передачи в sql
    Dim Datetime As String ' переменная даты
  
    Datetime = "01." & TextBox4m.Text & "." & TextBox4y.Text & " 00:00"
    
    Set cn = CreateObject("ADODB.Connection")
    cn.Provider = "SQLOLEDB"
    cn.ConnectionString = "user id = sa; Password=;Data source = 192.168.1.1; initial catalog = se"
    cn.Open
    
    str = "exec sp_avt_insert_Monthdata " & "'" & Datetime & "'"
    cn.Execute (str)
End Sub
Изменено: ncux199rus - 29.10.2015 14:26:37
 
Перейти    
Группировку данных в RecordSet Excel., Запрос на получение внешних данных Excel из MS SQL с помощью хранимых процедур.
 
#
29.10.2015 14:20:15
спасибо решил. Нужно было переменным присвоить значения столбцов. и дальше обращаться уже как с переменными.
 
Перейти    
Ограничение количества символов в TextBox.
 
#
19.10.2015 16:38:07
Формы V, СпасиБо.
 
Перейти    
Ограничение количества символов в TextBox.
 
#
19.10.2015 16:12:24
Подскажите как сделать ограничение количества символов в TextBox. Нужно чтоб вводилось только 2 цифры.
Нашел ограничение по вводу символов. По количеству ни чего не смог найти.
 
Перейти    
Группировку данных в RecordSet Excel., Запрос на получение внешних данных Excel из MS SQL с помощью хранимых процедур.
 
#
24.09.2015 14:31:18
Доброе время суток.
Есть Excel файл. При внесении в него данных они успешно добавляются в БД SQL. Не получается выбрать обратно эти данные из SQL.
Данные успешно выбираю в Recordset. Получаю таблицу.
Как из этой таблицы теперь отсортировать данные?
Изменено: ncux199rus - 24.09.2015 17:09:37
 
Перейти    
Действия с ячейками внутри диапазона (Range)
 
#
15.09.2015 12:56:09
Сделал так.
Код
If Not Application.Intersect(Target, Range("B7:G85")) Is Nothing Then
       If TypeName(Target.Value) = "Double" Then
              Sql_insert paramId, Datetime, Target.Value
       End If
   End If
Работает без ошибок.
Насколько это правильно?
 
Перейти    
Действия с ячейками внутри диапазона (Range)
 
#
15.09.2015 12:38:43
Доброго времени суток.
Еще появились глупые вопросы. Данный диапазон необходимо очистить при открытии книги.
Очищаю:
Код
Private Sub workbook_open()
    Range("B9:G85").Value = "-"
End Sub
В обработку диапазона добавляю условие:
Код
If Not Application.Intersect(Target, Range("B9:G85")) Is Nothing Then
       If Target.Value <> "-" Then
              Sql_insert paramId, Datetime, Target.Value
       End If
 End If

При ручном внесении данных работает корректно. Но при открытии книги выдает ошибку о несовпадении типов в строке:
Код
If Target.Value <> "-" Then
Подскажите как исправить.
Изменено: ncux199rus - 15.09.2015 14:39:01
 
Перейти    
Действия с ячейками внутри диапазона (Range)
 
#
08.09.2015 12:33:58
Андрей VG, огромное спасибо.
 
Перейти    
Действия с ячейками внутри диапазона (Range)
 
#
08.09.2015 12:16:43
Добрый день.
Нужно чтобы при изменении ячеек на листе внутри диапазона передавались данные в sql. Не получается ограничить действия диапазоном.
При перечислении ячеек все работает.
На даный момент реализовано ректально. Минус нынешней реализации, при изменении ячеек вне диапазона vba выдает ошибку.
Подскажите, пожалуйста, как правильно ограничить действия диапазоном.

Код
Private Sub Worksheet_Change(ByVal Target As Range)
...
 Select Case Target.Address
        Case [A1].Address: [A9] = Target.Value
        'Case Range("B7:G65").Address: Sql_insert paramId, Datetime, Target.Value 
         Case Else: Sql_insert paramId, Datetime, Target.Value
   End Select 
...
END SUB
Изменено: ncux199rus - 08.09.2015 12:26:15
 
Перейти    
Страницы: 1
Наверх