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

Страницы: 1 2 След.
Копирование значений в другой файл, перенести значения без формул
 
#
24.04.2016 16:00:56
Кнопка цитирования не для ответа [МОДЕРАТОР]

Sanja, спасибо за совет, буду знать про двоеточие теперь )))
Если строка не длинная получается мне удобнее когда их меньше: одна операция - одна строка ))
 
Перейти    
Копирование значений в другой файл, перенести значения без формул
 
#
24.04.2016 14:49:05
Sanja, все получилось. Проблема в том, что если писать код в одну строку он не работает.
Как только перенес все что после .Copy на следующую строку все заработало ))

Юрий М, Вы уверены, что такой код будет работать при копировании из одного файла в другой?
 
Перейти    
Копирование значений в другой файл, перенести значения без формул
 
#
24.04.2016 14:17:06
Помогите подправить код, чтобы он копировал не формулы, а  только значения:
 
Код
ThisWorkbook.Worksheets("One").Cells(1, 1).Copy GetObject(File_path).Sheets("Two").Cells(1, 1)

Заранее спасибо.
 
Перейти    
Изменение полей таблиц Access (UPDATE)
 
#
27.12.2014 00:11:45
Цитата
ikki пишет: поправить бы..
Еще бы я знал как тему подправлять, с ходу не нашел.
 
Перейти    
Изменение полей таблиц Access (UPDATE)
 
#
27.12.2014 00:11:16
Цитата
Johny пишет: Автор, я так и не понял, что вы хотели и что у вас получилось.
Хотел в существующей записи в таблице базы данных изменить значения полей по определенному критерию. Все сложилось удачно )
 
Перейти    
Изменение полей таблиц Access (UPDATE)
 
#
27.12.2014 00:01:46
Все спс ikki за замечание, сам запрос подправил ))

strSQL = "UPDATE User_data SET SIG_2 = '" & sig_2 & "', SN2 ='" & sn2 & "' WHERE  [email] = '" & email & "';"

Про первичный ключ тоже все верно, но у меня нет сложных связей в таблицах, просто нужно из полученной ексель формы макросом(надстройкой) подправить данные в существующей строке таблицы в access. А так как емайл уникален, то и строка такая одна. Понятно что говно-архитектура, но на первом этапе пойдет, главное пока автоматизировать сохранение данных.
Можно конечно SELECTом подтянуть наружу уникальный ID записи в какой-нить невидимый Label на форме и с ним уже работать ))
Изменено: IvanSh - 27.12.2014 00:10:12
 
Перейти    
Изменение полей таблиц Access (UPDATE)
 
#
26.12.2014 23:46:47
ВСЕ верно, я забыл SQL просто )) если не сложно поправьте как будет запрос выглядеть ))
 
Перейти    
Изменение полей таблиц Access (UPDATE)
 
#
26.12.2014 23:42:28
Цитата
Johny пишет: А конечный SQL запрос можно показать (что в strSQL)?
Это и есть конечный запрос. Пролистайте в конец бегунок.
После идет уже его выполнение. Перенес в 2 строки запрос ( у меня в одну строку все)

strSQL = "INSERT INTO User_data (SIG_2, SN2) VALUES ('" & sig_2 & "','" & sn2 & "')
SELECT * FROM User_data WHERE  email = '" & email & "';"

cn.Execute strSQL
Изменено: IvanSh - 26.12.2014 23:47:16
 
Перейти    
Изменение полей таблиц Access (UPDATE)
 
#
26.12.2014 23:36:08
Всем привет!
В таблицу Access из 8 полей нужно внести(изменить) значения в 2 поля в определенной строке таблицы. Делаю это через макрос в VBA. Если с добавлением полной строки со всеми полями проблем нет, то с добавлением в конкретную строку одного или 2-х значений проблема. Помогите SQL запрос подправить.

Код
strSQL = "INSERT INTO User_data (SIG_2,SN2) VALUES ('" & sig_2 & "','" & sn2 & "') SELECT * FROM User_data WHERE  email = '" & email & "';"
Компилятор говорит, что пропущен символ ; в конструкции SQL
Изменено: IvanSh - 27.12.2014 00:18:31
 
Перейти    
Подгрузить в RowSource Combobox'а данные из Access
 
#
08.12.2014 18:36:19
все нарыл в Инете: r.GetString
 
Перейти    
Подгрузить в RowSource Combobox'а данные из Access
 
#
08.12.2014 18:22:00
Цитата
Doober пишет: Form1.ComboBox1.column()=r.getrows
А если я хочу не список присвоить, а одно значение, например:

Код
 Set r = cn.Execute(strSQL)
     Form1.Label4.Caption =??????
Что нужно написать вместо r.getrows?
 
Перейти    
Подгрузить в RowSource Combobox'а данные из Access
 
#
08.12.2014 17:46:40
Код
    Set r = cn.Execute(strSQL)
     If Not r.EOF Then
      Form1.ComboBox1.Column() = r.getrows
     End If
  
Вот так заработало! СПС )
 
Перейти    
Подгрузить в RowSource Combobox'а данные из Access
 
#
08.12.2014 17:41:21
Ошибку не выдает, но Combox пустой выходит.

Убрал условие if  и все заработало ))) может нужно было if NOT EOF?
Изменено: IvanSh - 08.12.2014 17:45:04
 
Перейти    
Подгрузить в RowSource Combobox'а данные из Access
 
#
08.12.2014 16:58:29
Есть форма с элементом Combobox, у которого есть свойство RowSource. Можно ли как то быстро через это свойство подгрузить данные из "Table1" Access c полем FIO не создавая макросов? Если без макроса не обойтись как правильно SQL-запрос оформить и перенести полученный результат в Combobox?
Код
   strFile = Form1.TextBox2.Text
    strCon = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & strFile

    Set cn = CreateObject("ADODB.Connection")
    cn.Open strCon

    strSQL = "Select FIO from Table1"
    cn.Execute strSQL     
    Form1.ComboBox1.Value = ??????????
    
    cn.Close
    Set cn = Nothing
 
Перейти    
Изменение именованного диапазона в VBA
 
#
02.12.2014 22:49:07
Блин нашел косяк знак $ забыли:

Код
ThisWorkbook.Names("exp").RefersTo = "=Data!$D$45:$D$169"
 
Перейти    
Изменение именованного диапазона в VBA
 
#
02.12.2014 22:43:48
Может его нужно удалить и создать по новой? При чем тут G вообще колонка, она вообще не фигурирует в коде. Может обнулять как то нужно?
 
Перейти    
Изменение именованного диапазона в VBA
 
#
02.12.2014 22:32:17
Че то стало шевелится, только вот после макроса диапазон стал не Data!D45  :D  169, а Data!G89:G213. Что то тут не так ))
Изменено: IvanSh - 02.12.2014 22:41:39
 
Перейти    
Изменение именованного диапазона в VBA
 
#
02.12.2014 22:13:22
Не работает:
Код
 ActiveWorkbook.Names("Exp").RefersToR1C1 = "=Data!D45:D169"

Ексель 2010 64 бит

Изменено: IvanSh - 02.12.2014 22:22:00
 
Перейти    
Изменение именованного диапазона в VBA
 
#
02.12.2014 21:35:29
А используя именно буквенное обозначение никак? я не люблю с RC работать, никак не запомню где начало где конец ))
 
Перейти    
Изменение именованного диапазона в VBA
 
#
02.12.2014 21:25:50
Вопрос плевый, но нигде не могу найти ответ.
Есть диапазон на листе "Диапазон"  с данными А1:А10. Нужно чтобы при выполнении макроса "Диапазон" уже имел адрес B1:B10.
 
Перейти    
Ошибка в MsgBox. 64 bit Office 2010, Ошибка в MsgBox. 64 bit Office 2010
 
#
08.10.2014 13:27:37
спасибо, почитал и код полезный стянул ))
 
Перейти    
Ошибка в MsgBox. 64 bit Office 2010, Ошибка в MsgBox. 64 bit Office 2010
 
#
08.10.2014 13:04:32
The_Prist спасибо Ваш код заработал ))  Странно что написанный в 2007 офисе тот же код работает везде абсолютно. Как только добавил в проект формы с элементами ActiveX начались проблемы, например значение Date VB7 перестал воспринимать + разные типы переменных )))
Изменено: IvanSh - 08.10.2014 13:07:21
 
Перейти    
Ошибка в MsgBox. 64 bit Office 2010, Ошибка в MsgBox. 64 bit Office 2010
 
#
08.10.2014 12:59:58
сам не знаю, содрал код в инете. Но без него ваще жутко матерится, я так понимаю это вид значка в виде синего вопроса
 
Перейти    
Ошибка в MsgBox. 64 bit Office 2010, Ошибка в MsgBox. 64 bit Office 2010
 
#
08.10.2014 12:55:17
есть подозрение что нужно переменную response по другому декларировать, но не знаю как )))
 
Перейти    
Ошибка в MsgBox. 64 bit Office 2010, Ошибка в MsgBox. 64 bit Office 2010
 
#
08.10.2014 12:46:01
Всем привет.
Параметры системы: Win7 64 bit, office 2010 pro.
Есть код в VBA вида:

Код
Dim response
response = MsgBox(Sheets("Language").Range("AG8").Value, vbOKCancel + vbQuestion, "Message", Help, 1)
If response = vbOK Then  
....
Код писался на 32 битном 2007 офисе, там все ок.
Но в 2010 офисе вылетает ошибка: "Compile error: Can't find project or library"  и выделяет слово "Help".
Помогите подправить код для 2010 офиса.
 
Перейти    
Код определения МАК-адреса и С/Н диска в VBA, Ошибка кода VBA в Win XP
 
#
03.04.2014 12:14:08
Цитата
Hugo пишет:
Я привязывался к серийному номеру винды и имени пользователя - думаю он меняется реже чем диск. Если летит/меняют диск - на новый ставят старую систему. Не покупать ведь новую
ТОже неплохая идея, а можно секретный код посмотреть как это делается? ))
 
Перейти    
Код определения МАК-адреса и С/Н диска в VBA, Ошибка кода VBA в Win XP
 
#
03.04.2014 10:46:41
Цитата
Hugo пишет:
Debug.Print "SerialNumber:" & pDisk.Signature 'SerialNumber
Sheets("Find_code"  ;)  .Range("C11"  ;)  .Value = pDisk.Signature 'SerialNumber
Спасибо, попробую отправить пользователю с новым кодом. Но pDisk.Signature немного не то, pDisk.SerialNumber выдавал другое значение. Но мне главное унифицировать ПК ))
 
Перейти    
Код определения МАК-адреса и С/Н диска в VBA, Ошибка кода VBA в Win XP
 
#
03.04.2014 09:33:34
Всем привет. Во вложении файлик небольшим кодом по определению МАК-адреса и С/Н диска в VBA. Функции работают на Винде начиная с 7-ка. Но вот на WinXP выдает ошибку. Есть умельцы подправить код?


Скрин ошибки прилагаю. И вообще в винде ли дело?
Изменено: IvanSh - 03.04.2014 21:49:32
 
Перейти    
Присвоение ячейке функции ИНДЕКС через макрос
 
#
22.03.2014 22:29:20
Жесть как все просто! СПС ))
Изменено: IvanSh - 23.03.2014 10:52:07
 
Перейти    
Присвоение ячейке функции ИНДЕКС через макрос
 
#
22.03.2014 22:03:14
Именованный диапазон )) я их так называю
 
Перейти    
Страницы: 1 2 След.
Наверх