Ограничение вставки из MSA2003 в Excel2003 через CopyFromRecordset |
'Формируем рекордсет из таблицы отчет 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 --------------------------- ОК --------------------------- |
http://www.sql.ru/forum/1075681/ogranichenie-vstavki-iz-msa2003-v-excel2003-cherez-copyfromrecordset
Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |