На одном из компьютеров не выполняется следующий код
- Код: Выделить всё
Dim AppExl As Excel.Application
Dim wb As Excel.Workbook
Dim rs, ds As DAO.Recordset
Dim fl As Boolean
Dim i As Long, j As Long
Dim TDate As Date
Dim AvrDSql, r1 As String
TDate = CDate([Forms]![MainForm]![TodayDate])
i = 1
fl = True
Set AppExl = GetObject(, "Excel.Application.10") 'Excel.Application.10")
If AppExl Is Nothing Then
Set AppExl = CreateObject("Excel.Application")
If AppExl Is Nothing Then
Err.Raise vbError + 1, ,
Exit Sub
End If
AppExl.Visible = False
fl = False
End If
Set wb = AppExl.Workbooks.OpenXML("J:\_Documents\1\Gko1.xlt")
If wb Is Nothing Then
Err.Raise vbError + 1, ,
Exit Sub
End If
Dim strSql As String
strSql = ("SELECT DealGKO_Svodka.ID, DealGKO_Svodka.Emitent, DealGKO_Svodka.Date_Avr, DealGKO_Svodka.PriseAvr, " _
& "DealGKO_Svodka.Doxodnost, DealGKO_Svodka.Durachiy, DealGKO_Svodka.Quantity, DealGKO_Svodka.Value, " _
& "DealGKO_Svodka.ValueNKD, DealGKO_Svodka.Value_All, DealGKO_Svodka.ComisTP, DealGKO_Svodka.ComisBrok, " _
& "DealGKO_Svodka.[Cupon%], DealGKO_Svodka.TN, DealGKO_Svodka.Value_Ofert, DealGKO_Svodka.Profit_aver, DealGKO_Svodka.Prise_Rinok/100, " _
& "DealGKO_Svodka.DurachiyTek, DealGKO_Svodka.ValueTek, DealGKO_Svodka.ValueNKDTek, DealGKO_Svodka.Value_AllTek, " _
& "DealGKO_Svodka.Profit_Pay, DealGKO_Svodka.OfertaDate FROM DealGKO_Svodka;")
Set rs = CurrentDb.OpenRecordset(strSql)
rs.MoveFirst
With wb.Sheets(1)
While Not rs.EOF
For j = 1 To rs.Fields.Count
.Cells(i, j).Value = rs.Fields(j).Value
На последней строчке выдает эту ошибку и пишет что Элемент не обнаружен в данном семействе.
Т.е. Код выгружает в Эксель данные из таблицы, заполныет одну строку и встает вот с этой ошибкой. Причем на трех компах код работает а на одном отказывается.
Как вы считаете в чем может быть дело и как это исправить?
Спасибо.
.FormulaR1C1 = "=YM(RC" & CStr(j - 21) & ",RC" & CStr(j) & ",RC" & CStr(j - 6) & ""
(( При проверке на другом компьютере, из-за которого все изначально и началось, выяснилось что опять ошибка теперь на эту строку и ошибка 1004:
