-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


Ограничение вставки из MSA2003 в Excel2003 через CopyFromRecordset

Среда, 05 Февраля 2014 г. 21:58 + в цитатник
Всем привет!
Прошу у знающих консультации.
Есть MDB проект, разделен табличная часть и интерфейс.
Выгружаю данные из MSA в Лист эксель:
'Формируем рекордсет из таблицы отчет
  Dim sNWind1 As String
   
  Dim conn1 As New ADODB.Connection
  Dim rs1 As ADODB.Recordset
     
  sNWind1 = "c:\buh\buh.mdb"
  conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sNWind1 & ";"
  conn1.CursorLocation = adUseClient

Set rs1 = conn1.Execute("otcIM", , adCmdTable)  

'ситаем кол-во строк в запросе otc в БД МСА
  Dim kolStrok As Variant 'количество строк
  kolStrok = DCount("[НомерЗаказа]", "otcIM")
   
'вставка количества пустых строк в эксель, равную kolstrok (строк в запросе otcIM - МДБ)
  Dim i As Integer
      
  xlSheet.Rows("7:7").Select
  xlSheet.Range("A7").Activate
    
  Dim vstavka As Range
  For i = 0 To kolStrok - 3
  xlApp.Selection.Insert Shift:=xlDown
        
  Next i
      
'Экспорт из МСА в Эксель
  xlSheet.Range("6:6").CopyFromRecordset rs1
  xlSheet.Range("Ves").Select
  xlApp.Selection.NumberFormat = "0.00"
  xlSheet.Range("NomZakaza").Select
  xlApp.Selection.NumberFormat = "@"
  xlSheet.Range("DataZakaza").Select
  xlApp.Selection.NumberFormat = "dd/mm/yy"
  xlSheet.Range("oplataRub").Select
  xlApp.Selection.NumberFormat = "#,##0.00$"
  xlSheet.Range("OplStrah").Select
  xlApp.Selection.NumberFormat = "0.00"
  xlSheet.Range("AgentVoznagr").Select
  xlApp.Selection.NumberFormat = "0.00"
  xlSheet.Range("vyruchka_im").Select
  xlApp.Selection.NumberFormat = "0.00"


Есть некое поле под названием Примечание (в МСА). Так вот когда кол-во символов превышает некое кол-во, останавливается вставка и выдает ошибку
автор
---------------------------
Microsoft Office Access
---------------------------
Method 'CopyFromRecordset' of object 'Range' failed
---------------------------
ОК
---------------------------

Как победить? Я знаю, что ограничение на кол-во символов в 1 ячейке у Excel2003:
32767 знаков. В ячейке отображаются только 1024 знака; все 32767 знаков отображаются в строке формул. (нашел тут http://www.excelworld.ru/publ/about_excel/char_and_rest/sheet_char_and_rest/37-1-0-99)
Но у меня точно нет такого кол-ва знаков, знаки вручную вставляются все, а вот через Copyromrecordset - нет...
Подскажите пжл, как быть в такой ситуации...

http://www.sql.ru/forum/1075681/ogranichenie-vstavki-iz-msa2003-v-excel2003-cherez-copyfromrecordset


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку