Прикрутить открытие файла - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста прописать открытие готового файла из папки. Понимаю что код написан криво,но потом я его исправлю.
Листинг программы
  1.  
  2. Dim oExcel As Object
  3. Dim oBook As Object
  4. Dim oSheet As Object
  5. Dim SaveAs As Object
  6. Dim klient As Object
  7.  
  8. oExcel = CreateObject("Excel.Application")
  9. oBook = oExcel.Workbooks.Add
  10.  
  11. 'Добавить данные в ячейки первого листа новой книги
  12. oSheet = oBook.Worksheets(1)
  13. oSheet.Range("A1:B1").Merge()
  14. oSheet.Range("A2:B2").Merge()
  15. oSheet.Range("C2:D2").Merge()
  16. oSheet.Range("C3:D3").Merge()
  17. oSheet.Range("C4:D4").Merge()
  18. oSheet.Range("C5:D5").Merge()
  19. oSheet.Range("A1:D1").Font.Bold = True
  20. oSheet.Range("A1").HorizontalAlignment = -4152
  21. oSheet.Range("C1").HorizontalAlignment = -4131
  22. oSheet.Range("A1").Value = "Договор №"
  23. oSheet.Range("C1").Value = KartaDataGridView.CurrentRow.Cells(0).Value
  24. oSheet.Range("A2").Value = "Вид договора:"
  25. oSheet.Range("A5").Value = "Дата заключения:"
  26. oSheet.Range("C5").Value = KartaDataGridView.CurrentRow.Cells(5).Value
  27. 'Сохранить книгу и закрыть Excel
  28. oBook.SaveAs("D:\T2 " & KartaDataGridView.CurrentRow.Cells(0).Value & ".xlsx")
  29. oExcel.Quit()
  30. Process.Start("D:\T2 " & KartaDataGridView.CurrentRow.Cells(0).Value & ".xlsx")

Решение задачи: «Прикрутить открытие файла»

textual
Листинг программы
  1. Application.StartupPath & "\имя_файла.xlsx

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 3.667 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут