Страница 1 из 1

Импорт Excel

СообщениеДобавлено: Пн янв 09, 2017 7:29 am
Alexbur
Здравствуйте.
Сообщите, пожалуйста, сколько знаков может быть импортировано в примечание/описание товара (импорт excel).

Re: Импорт Excel

СообщениеДобавлено: Пн янв 09, 2017 9:31 am
dmitry
255

Re: Импорт Excel

СообщениеДобавлено: Пн янв 09, 2017 11:33 am
Alexbur
Планировал использовать это поле для описания своих товаров с последующей выгрузкой в интернет-магазин (OpenCart). Однако 255 знаков оказалось маловато -
косметические средства имеют много тонких подробностей. Сообщите, пожалуйста, каким образом можно было бы организовать экспорт/связь с интернет-магазином (OpenCart),
чтобы выгружать более объемные описания товаров (1000-1500 знаков).

Re: Импорт Excel

СообщениеДобавлено: Пн янв 09, 2017 6:37 pm
dmitry
Alexbur писал(а):Однако 255 знаков оказалось маловато
... выгружать более объемные описания товаров (1000-1500 знаков).


Если сейчас описания не заполнены или ими можно пожертвовать, но потом сохранять текст любой длины, то:

- Скопировать текст ниже.
- Нажать в программе Ctrl+F10,
- вставить текст, нажать "ОК".

On Error GoTo Er
Dim Tb As DAO.TableDef, Fld As DAO.Field
Tb = DB.TableDefs("Articles")
Tb.Fields.Delete("Memo")
Tb.Fields.Refresh()
Fld = Tb.CreateField("Memo")
Fld.Type = 12
Tb.Fields.Append(Fld)
Fin: Exit sub
Er: Select Case Microsoft.VisualBasic.Err.Number
Case 3262, 3009
Microsoft.VisualBasic.MsgBox("Для изменения таблицы требуется монопольный доступ, но в настоящее время она используется." & Microsoft.VisualBasic.Chr(10) & "Закройте программу на всех рабочих местах в сети, и повторите те же действия.", , "Отмена")
Case Else
Microsoft.VisualBasic.MsgBox(Microsoft.VisualBasic.Err.Description, , "Отмена")
End Select
GoTo Fin