VBA код Excel

~~dev.Free~~ · 11.07.2014, 12:20. **Показов** 651. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Visual Basic

   'Создать новую книгу Excel
    Dim oExcel As Object
    Dim oBook As Object
    Dim oSheet As Object
    Set oExcel = CreateObject("Excel.Application")
    Set oBook = oExcel.Workbooks.Open(App.Path & "\RPT1.xltx")
    Set oSheet = oBook.Worksheets(1)
   
    'Передать данные в Excel
    oSheet.Range("A2").CopyFromRecordset rs
    
    oSheet.Range("B" & rs.RecordCount + 3).Select
    oExcel.ActiveCell.FormulaR1C1 = "Итого: "
 
    'Сохранить книгу и закрыть Excel
    oBook.SaveAs App.Path & "\OUTBOX\" & Date & ".xlsx"
    oExcel.Quit
    
    Set oBook = Nothing
    Set oExcel = Nothing
    Set oSheet = Nothing

Есть код, работает хорошо. Вопрос, как сделать не сохранение книги, а просто чтобы она была видна пользователю. Который сам решит сохранять или нет.

Убрать это:

'Сохранить книгу и закрыть Excel
oBook.SaveAs App.Path & "\OUTBOX\" & Date & ".xlsx"
oExcel.Quit

Это понятно, а далее?

@Step_UA · 11.07.2014, 12:23

Добавить

Visual Basic

1	oBook.Visible=True

и лучше заменить

Visual Basic

1
2
3

Set oBook = oExcel.Workbooks.Open(App.Path & "\RPT1.xltx")
на
Set oBook = oExcel.Workbooks.Add(App.Path & "\RPT1.xltx")

	11.07.2014, 12:23