макрос в Excel - ошибка

[Maxwel]

при сохранении файла:
Set rsMain = ThisWorkbook.Doc.DataSets("TAB2")

подскажите плиз - как исправить

[Djeki]

Сообщение от Maxwel

при сохранении файла:
Set rsMain = ThisWorkbook.Doc.DataSets("TAB2")

подскажите плиз - как исправить

Вы толком напишите что конкретно Вам надо: сохранить активную (определённую) книгу или что то ещё ? Здесь вообще то программирование в Эксель обсуждают.

[Maxwel]

Задача: есть реестр Налог.накладных с 1C - экспортирован в Еxcel.
Есть программа для сдачи отчетности, в которую нужно втянуть этот реестр НН.
Ход выполнения:
открываю файл Еxcel с макросами (с программы для сдачи отчетности) - переношу туда данные с реестра НН с 1С(с Еxcel) путем копирования/вставки данных. При нажатии кнопки: сохранить -run-time error 91

___________________________________ _____________________________
Private Sub CommandButton1_Click()

Range("A8:G5000").Select
Selection.ClearContents
Range("A8").Select

Set rsMain = ThisWorkbook.Doc.DataSets("TAB2")
rsMain.First
i = 8
While Not rsMain.EOF

ActiveSheet.Cells(i, 1).Value = rsMain.FldVal("TAB2_A1")
ActiveSheet.Cells(i, 2).Value = rsMain.FldVal("TAB2_A2")
ActiveSheet.Cells(i, 3).Value = rsMain.FldVal("TAB2_A3")
ActiveSheet.Cells(i, 4).Value = rsMain.FldVal("TAB2_WMDTYPE_STR")
ActiveSheet.Cells(i, 5).Value = rsMain.FldVal("TAB2_A4")
ActiveSheet.Cells(i, 6).Value = rsMain.FldVal("TAB2_A5")
ActiveSheet.Cells(i, 7).Value = rsMain.FldVal("TAB2_A6")
ActiveSheet.Cells(i, 8).Value = rsMain.FldVal("TAB2_A7")
ActiveSheet.Cells(i, 9).Value = rsMain.FldVal("TAB2_A8")
ActiveSheet.Cells(i, 10).Value = rsMain.FldVal("TAB2_A9")
ActiveSheet.Cells(i, 11).Value = rsMain.FldVal("TAB2_A10")
ActiveSheet.Cells(i, 12).Value = rsMain.FldVal("TAB2_A11")

i = i + 1
rsMain.Next

Wend

Set rsMain = Nothing
End Sub

Private Sub CommandButton2_Click()

Set rsMain = ThisWorkbook.Doc.DataSets("TAB2")
rsMain.First
While Not (rsMain.Bof And rsMain.EOF)
rsMain.Delete
Wend
rsMain.First
i = 8
While ActiveSheet.Cells(i, 1).Value <> ""
rsMain.Append
ActiveSheet.Cells(i, 1).Select
rsMain.FldVal("TAB2_A1") = ActiveSheet.Cells(i, 1)
rsMain.FldVal("TAB2_A2") = ActiveSheet.Cells(i, 2)
rsMain.FldVal("TAB2_A3") = ActiveSheet.Cells(i, 3)
rsMain.FldVal("TAB2_WMDTYPE_STR") = ActiveSheet.Cells(i, 4)
rsMain.FldVal("TAB2_A4") = ActiveSheet.Cells(i, 5)
rsMain.FldVal("TAB2_A5") = ActiveSheet.Cells(i, 6)
rsMain.FldVal("TAB2_A6") = ActiveSheet.Cells(i, 7)
rsMain.FldVal("TAB2_A7") = ActiveSheet.Cells(i, 8)
rsMain.FldVal("TAB2_A8") = ActiveSheet.Cells(i, 9)
rsMain.FldVal("TAB2_A9") = ActiveSheet.Cells(i, 10)
rsMain.FldVal("TAB2_A10") = ActiveSheet.Cells(i, 11)
rsMain.FldVal("TAB2_A11") = ActiveSheet.Cells(i, 12)

i = i + 1
rsMain.Next
Wend
If rsMain.Bof And rsMain.EOF Then
rsMain.Append
rsMain.Post
End If
MsgBox "Äîäàíî " + CStr(i - 8) + " çàïèñ³â"
Set rsMain = Nothing

ThisWorkbook.Doc.Refresh
ThisWorkbook.Doc.Save
End Sub

Private Sub CommandButton3_Click()
Set ThisWorkbook.Doc = Nothing
Sheets("Ðååñòð äîêóìåíòîâ").Select
End Sub
___________________________________ _________________________

[kuklp]

В Эксе нет таких конструкций:
ThisWorkbook.Doc.Refresh
ThisWorkbook.Doc.Save
Откуда Вы вообще такое взяли?
Нужно просто:
ThisWorkbook.Save

[Djeki]

Сообщение от kuklp

В Эксе нет таких конструкций:
ThisWorkbook.Doc.Refresh
ThisWorkbook.Doc.Save
Откуда Вы вообще такое взяли?
Нужно просто:
ThisWorkbook.Save

Это вероятно из Верда..

[kuklp]

Там нет ThisWorkbook.