Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
присвоение значений из активной книги, ошибка Application-defined or object-defined error
 
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
 
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 о выполнении процедуры.
 
Добрый день.
По кнопке запускаю в 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 с помощью хранимых процедур.
 
спасибо решил. Нужно было переменным присвоить значения столбцов. и дальше обращаться уже как с переменными.
Ограничение количества символов в TextBox.
 
Формы V, СпасиБо.
Ограничение количества символов в TextBox.
 
Подскажите как сделать ограничение количества символов в TextBox. Нужно чтоб вводилось только 2 цифры.
Нашел ограничение по вводу символов. По количеству ни чего не смог найти.
Группировку данных в RecordSet Excel., Запрос на получение внешних данных Excel из MS SQL с помощью хранимых процедур.
 
Доброе время суток.
Есть Excel файл. При внесении в него данных они успешно добавляются в БД SQL. Не получается выбрать обратно эти данные из SQL.
Данные успешно выбираю в Recordset. Получаю таблицу.
Как из этой таблицы теперь отсортировать данные?
Изменено: ncux199rus - 24.09.2015 17:09:37
Действия с ячейками внутри диапазона (Range)
 
Сделал так.
Код
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)
 
Доброго времени суток.
Еще появились глупые вопросы. Данный диапазон необходимо очистить при открытии книги.
Очищаю:
Код
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)
 
Андрей VG, огромное спасибо.
Действия с ячейками внутри диапазона (Range)
 
Добрый день.
Нужно чтобы при изменении ячеек на листе внутри диапазона передавались данные в 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
Наверх