Страницы: 1 2 3 4 5 След.
Поиск
VBA Макрос отправляющий данные в БД Access (Ошибка), VBA Макрос отправляющий данные в БД Access не отрабатывает из-за большого количества данных
... quot;).Type = adWChar Cmd.Parameters("@CertificateOfMembershipChamberOfAppraisers& ... ").Value Cmd.Parameters("@DescriptionOfAssessmentProcessUsingApproaches& ... quot;).Type = adWChar Cmd.Parameters("@DescriptionOfAssessmentProcessUsingApproaches& ... ").Value Cmd.Parameters("@DescriptionOfAssessmentProcessUsingApproachesComment& ... quot;).Type = adWChar Cmd.Parameters("@DescriptionOfAssessmentProcessUsingApproachesComment& ...
Изменен: 11.07.2019
Читать сообщение на форуме или сайте.
Загрузчик котировок с Yahoo Finance: помогите "починить" файл
... Call DownloadStockQuotes(stockTicker, Worksheets("Parameters").Range("$b$5 ... False If Sheets("Parameters").Shapes("WriteToCSVCheckBox" ... If ErrorHandler: Worksheets("Parameters").Select Application.ScreenUpdating = ... 10 + numStockSuccess) = stockTicker Sheets("Parameters").Range("L10:L ... = xlNone Sheets("Parameters").Range("L10: ... 10 + numStockErrors) = stockTicker Sheets("Parameters").Range("J10:J ...
Изменен: 20.06.2017
Читать сообщение на форуме или сайте.
Как отсортировать два листа, как один? Сортировка 2 млн. строк.
... ' ensure that the LB parameter is valid. '''''''''''''''''''''''''''''''''''''''''''''''''''' Select Case ... Select '''''''''''''''''''''''''''''''''''''''''''''''''''' ' ensure the UB parameter is valid. '''''''''''''''''''''''''''''''''''''''''''''''''''' Select Case ... return FALSE, set the NoAlerts parameter to TRUE. ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim ...
Изменен: 04.11.2018
Читать сообщение на форуме или сайте.
Экспорт из Excel в SQL Server
... ].End(xlDown)) 'Set parameter = command.CreateParameter (Name, Type ... Direction, Size, Value) cmd.Parameters.Append cmd.CreateParameter("code_wares ... 1) 'Тип INTEGET cmd.Parameters.Append cmd.CreateParameter("name_ ... 100) 'Тип VarChar cmd.Parameters.Append cmd.CreateParameter("supplier ... , 1, 100) cmd.Parameters.Append cmd.CreateParameter("article ... , 1, 100) cmd.Parameters.Append cmd.CreateParameter("date_rep ... 10) 'Тип DATA cmd.Parameters.Append cmd.CreateParameter(" ...
Изменен: 03.04.2015
Читать сообщение на форуме или сайте.
Вставить таблицу с Excle в Oracle
... J1].End(xlDown)) cmd.Parameters.Append cmd.CreateParameter("code_wares ... 1) 'Тип INTEGET cmd.Parameters.Append cmd.CreateParameter("name_ ... 100) 'Тип VarChar cmd.Parameters.Append cmd.CreateParameter("supplier ... 200, 1, 100) cmd.Parameters.Append cmd.CreateParameter("article ... , 1, 100) cmd.Parameters.Append cmd.CreateParameter("group_ ... 200, 1, 100) cmd.Parameters.Append cmd.CreateParameter("date_rep ... 10) 'Тип DATA cmd.Parameters.Append cmd.CreateParameter("code_shop ...
Изменен: 14.12.2015
Читать сообщение на форуме или сайте.
Округление значений при экстракте чисел из БД
... ячейки». Различные значения «com1.Parameters.Item("@id").Value ... "pProc2"   com1.Parameters.Refresh com1.Parameters.Item("@ct" ... = "H" com1.Parameters.Item("@id").Value ... = 3217 com1.Parameters.Item("@stt").Value ... quot;).Value = 1800 com1.Parameters.Item("@rfr").Value ... "pProc2" com1.Parameters.Refresh com1.Parameters.Item("@ct" ... quot;).Value = 1800 com1.Parameters.Item("@rfr").Value ...
Изменен: 17.01.2018
Читать сообщение на форуме или сайте.
Отследить количество запуков макроса в день
... ByRef WB As Workbook, ByVal Parameter As String, ByVal NewValue As ... 238;å èìÿ Parameter ñî çíà ... ; & NewValue & "%%%" WB.Names(Parameter).RefersTo = NewValue If Err Then ... WB.Names.Add Parameter, NewValue WB.Names(Parameter).Visible = False End ... (ByRef WB As Workbook, ByVal Parameter As String) As String ' â ... Resume Next GetValue = WB.Names(Parameter).RefersTo GetValue = Split(GetValue, " ...
Изменен: 24.08.2012
Читать сообщение на форуме или сайте.
Отправка данных из Excel в базу данных Access, Ошибка при отправке данных в БД
... NumberBD", adInteger, adParamInput)     Cmd.Parameters("@NumberBD").Value = Sheets ... Quantity", adInteger, adParamInput)     Cmd.Parameters("@Quantity").Value = Sheets ... quot;, adWChar, adParamInput, 255)     Cmd.Parameters("@CheckEmptyData").Value = Sheets ... ;@TextMoreThan510").Type = adWChar     Cmd.Parameters("@TextMoreThan510").Value = Sheets ... ;@CheckEmptyData").Type = adWChar     Cmd.Parameters("@CheckEmptyData").Value = Sheets ...
Теги: Access
Изменен: 20.08.2020
Читать сообщение на форуме или сайте.
Экспорт данных из access в excel по признаку
... ", adWChar, adParamInput, 255) Cmd.Parameters("@ProducingCountry").Value = Worksheets ... ", adWChar, adParamInput, 255) Cmd.Parameters("@YearOfIssue").Value = Worksheets ... ", adWChar, adParamInput, 255) Cmd.Parameters("@EngineVolume").Value = Worksheets ... ;).Value 'Transmission Cmd.Parameters.Append Cmd.CreateParameter("@TransmissionType ... ", adWChar, adParamInput, 255) Cmd.Parameters("@TransmissionType").Value = Worksheets ...
Изменен: 08.07.2020
Читать сообщение на форуме или сайте.
РАНГ не связанных диапазонов без пропуска показателей рейтинга
... message boxes, set the NoAlerts parameter to TRUE. ' '''''''''''''''''''''''''''''''''''''' ' MODIFYING THIS CODE ... If     ''''''''''''''''''''''''''''''''''''''''''''''''''''     ' ensure that the LB parameter is valid.     ''''''''''''''''''''''''''''''''''''''''''''''''''''     Select Case LB ...     End Select    ''''''''''''''''''''''''''''''''''''''''''''''''''''     ' ensure the UB parameter is valid.     ''''''''''''''''''''''''''''''''''''''''''''''''''''     Select Case UB ...
Изменен: 05.03.2020
Читать сообщение на форуме или сайте.
Power Query. Уникальные значения по двум кретериям
... .TransformColumnTypes ( src, { { parameters[dateField], type date }, { parameters[textField], type text } } ... transform = Table.TransformColumns ( typed, { parameters[textField], ( x ) => Text. ... .Sort ( transform, { { parameters[textField], Order.Ascending }, { parameters[dateField], Order.Ascending } } ... ), group = Table.Group ( sort, { parameters[textField], parameters[dateField] }, { { "recs", ... ( Record.Field ( c, parameters[dateField] ), - parameters[daysCount] ), "yyyyMMdd" ...
Изменен: 10.02.2022
Читать сообщение на форуме или сайте.
VBA Часть текста "полужирный" в буфер обмена, из переменной
... a private format. The hMem parameter must be a handle to ... a private format. The hMem parameter must be a handle to ... a private format. The hMem parameter must be a handle to ... a private format. The hMem parameter must be a handle to ... , and WM_VSCROLLCLIPBOARD messages. The hMem parameter must be NULL. Private Const ...
Изменен: 24.03.2024
Читать сообщение на форуме или сайте.
Отправка web-запроса и получение ответа XML (Макрос) Excel, Не получается получить ответ от веб-сервиса
... InitSession> <Parameters> < ... TaskVariant> </Parameters> < ... > <Parameter>Cy&lt ... ;/Parameter> < ... > <Parameter>Cy&lt ... ;/Parameter> < ... > <Parameter>Cy&lt ... > <Parameter>Cy&lt ...
Изменен: 04.11.2015
Читать сообщение на форуме или сайте.
Фильтр по данным в Listbox
... fromDate", Type:=7): pCom.Parameters.Append pParam Set pParam = ... Type:=202, Size:=255): pCom.Parameters.Append pParam Set GetCommand = pCom ... Set pCom = GetCommand(pConn) pCom.Parameters("fromDate").Value = CDate ... (TextBox1.Text) pCom.Parameters("toDate").Value = CDate ... (TextBox2.Text) pCom.Parameters("Address").Value = TextBox3 ... .Text & "%" pCom.Parameters("LastName").Value = TextBox4 ...
Изменен: 09.09.2015
Читать сообщение на форуме или сайте.
CreateParameter Null
... .[D1].End(xlDown)) cmd.Parameters.Append cmd.CreateParameter("DATE_REP ... 200, 1, 10) cmd.Parameters.Append cmd.CreateParameter("NBU ... 200, 1, 100) cmd.Parameters.Append cmd.CreateParameter("BLACK_MARKET ... , 1, 100, Null) cmd.Parameters.Append cmd.CreateParameter("INTERBANK ... To r.Rows.Count cmd.Parameters("DATE_REP").Value = ... Cells(iRow, 2).Value cmd.Parameters("BLACK_MARKET").Value = ... Cells(iRow, 3).Value cmd.Parameters("INTERBANK").Value = ...
Изменен: 14.02.2015
Читать сообщение на форуме или сайте.
Выключение ПК (API)
... for initiating the shutdown. This parameter must be one of the ... shutdown reason codes. If this parameter is zero, the SHTDN_REASON_FLAG_PLANNED reason ... not use zero for this parameter. подробнее здесь: http://msdn.microsoft ...
Изменен: 29.12.2012
Читать сообщение на форуме или сайте.
БД Access 2016 "Длинное поле" не заполняется данными более 510 знаков
... quot;(@CharacteristicsStateOfObjectComment)" Cmd.Parameters("@CharacteristicsStateOfObject&quot ... amp;quot;)) = False Then Cmd.Parameters("@CharacteristicsStateOfObjectComment&quot ... ;).Type = adWChar Cmd.Parameters("@CharacteristicsStateOfObjectComment&quot ... amp;quot;).Value Else Cmd.Parameters("@CharacteristicsStateOfObjectComment& ... quot;).Type = adWChar Cmd.Parameters("@CharacteristicsStateOfObjectComment&quot ...
Изменен: 12.01.2020
Читать сообщение на форуме или сайте.
Как переместить каждую вторую строку в столбец и удалить пустую ячейку + математические операции
... ) => Text.Lower ( x ) } )[keywords] ), parameters = Record.FromList ( Excel.CurrentWorkbook(){[ Name ... = "parameters" ]}[Content][Значение], Excel.CurrentWorkbook ... (){[ Name = "parameters" ]}[Content][Параметр] ), src = Excel ... .Workbook ( File.Contents ( parameters[Путь к файлу] ) ){[ Item = Text ... .From ( parameters[Лист] ), Kind = "Sheet" ...
Изменен: 21.01.2022
Читать сообщение на форуме или сайте.
перевести функцию из 32х на 64х
... = 1    ' Initialize the encoder parameters   With tParams.Parameter    ' Quality CLSIDFromString StrPtr(" ... .Count = 0    ' Initialize the encoder parameters     lRes = GdipSaveImageToFile(hResizedBitmap, StrPtr(newFilename ... .Count = 0 ' Initialize the encoder parameters lRes = GdipSaveImageToFile(hResizedBitmap, StrPtr(newFilename ...
Изменен: 10.01.2015
Читать сообщение на форуме или сайте.
запуск нужного макроса с панели инструментов
... =}{post}не увидел перинятия свойства Parameter от вызываемого контрола: Run Application ... .ActionControl.Tag, Application.CommandBars.ActionControl.Parameter{/post}{/quote} Я так первым ... , что при назначении кнопки свойства Parameter макрос CommonMacro вообще не запускается ...
Изменен: 11.02.2012
Читать сообщение на форуме или сайте.
1004 runtime error Method visible of object worksheet failed только на определенном компьютере
... ;password"             If Worksheets("Parameters").Range("B3" ... ;) = sh.Name Or Worksheets("Parameters").Range("B4" ... ;password"             If Worksheets("Parameters").Range("B3" ... ;) = sh.Name Or Worksheets("Parameters").Range("B4" ...
Изменен: 22.06.2017
Читать сообщение на форуме или сайте.
Сложное условие в VBA, Подскажите в чем разница
... b Then MsgBox "Entered parameters (2) are out of range ... d Then MsgBox "Entered parameters (4) are out of range ... d Then MsgBox "Entered parameters are out of range" ... ).Value Then MsgBox "Entered parameters are out of range" ...
Изменен: 04.08.2022
Читать сообщение на форуме или сайте.
PQ. Оптимизация запроса поиска повторных значений
... List.Count ( [comb] ), Int64.Type ), parameters = Record.FromTable ( Table.FromColumns ( Table ... .ToColumns ( Excel.CurrentWorkbook(){[ Name = "parameters" ]}[Content] ), type table [ Name ... [Количество элементов] >= Record.FieldOrDefault ( parameters, "Минимальное количество элементов в ... [Число повторений] >= Record.FieldOrDefault ( parameters, "Минимальное число повторений" ...
Изменен: 14.01.2022
Читать сообщение на форуме или сайте.
Поиск одинаковых значений в строках и сортировка строк в порядке убывания
... List.Count ( [comb] ), Int64.Type ), parameters = Record.FromTable ( Table.FromColumns ( Table ... .ToColumns ( Excel.CurrentWorkbook(){[ Name = "parameters" ]}[Content] ), type table [ Name ... [Количество элементов] >= Record.FieldOrDefault ( parameters, "Минимальное количество элементов в ... [Число повторений] >= Record.FieldOrDefault ( parameters, "Минимальное число повторений" ...
Изменен: 25.11.2021
Читать сообщение на форуме или сайте.
Проблема с производительностью при вставке значений из массива в SQL Server
... (?, ?, ?, ?)" pCom.CommandType = adCmdText pCom.Parameters.Append pCom.CreateParameter("v1 ... ", adVarWChar, Size:=255) pCom.Parameters.Append pCom.CreateParameter("v2 ... ", adDBTimeStamp) pCom.Parameters.Append pCom.CreateParameter("v3 ... ", adVarWChar, Size:=255) pCom.Parameters.Append pCom.CreateParameter("v4 ...
Изменен: 23.03.2021
Читать сообщение на форуме или сайте.
Power Query Как привильно и какими средствами организовать запрос?
... ;]}[Content]), GetVal = (Parameter as text) as any => ... ; Setup{[Parameter = Parameter]}[Value], Source ...
Изменен: 29.01.2019
Читать сообщение на форуме или сайте.
SQL запрос из Excel VBA
... = conn comm.CommandType = adCmdStoredProc comm.Parameters.Append comm.CreateParameter("@value1 ... , 50, "aaa") comm.Parameters.Append comm.CreateParameter("@value2 ...
Изменен: 30.07.2010
Читать сообщение на форуме или сайте.
Добавление в макрос
... ) Do While БазаДанных.Parameters.Count > 0 БазаДанных.Parameters.Remove (0) Loop ...
Изменен: 03.09.2008
Читать сообщение на форуме или сайте.
Find all function не работает
... FindWhat was found. The search parameters to     ' this function have the ... an empty string, the LookAt parameter     ' is automatically changed to xlPart ... BeginEndCompare to vbTextCompare. If this parameter is omitted,     ' it defaults to ...
Изменен: 24.09.2015
Читать сообщение на форуме или сайте.
Парсинг VBA проекта. Как программно найти в коде что-либо
... method accepts ByRef Long parameters. Upon input, these parameters specify the range ... , you need to set the parameters to refer to the text ...
Изменен: 30.06.2022
Читать сообщение на форуме или сайте.
Страницы: 1 2 3 4 5 След.
Наверх