Прикрутить открытие файла - Visual Basic .NET
Формулировка задачи:
Помогите пожалуйста прописать открытие готового файла из папки.
Понимаю что код написан криво,но потом я его исправлю.
Листинг программы
- Dim oExcel As Object
- Dim oBook As Object
- Dim oSheet As Object
- Dim SaveAs As Object
- Dim klient As Object
- oExcel = CreateObject("Excel.Application")
- oBook = oExcel.Workbooks.Add
- 'Добавить данные в ячейки первого листа новой книги
- oSheet = oBook.Worksheets(1)
- oSheet.Range("A1:B1").Merge()
- oSheet.Range("A2:B2").Merge()
- oSheet.Range("C2:D2").Merge()
- oSheet.Range("C3:D3").Merge()
- oSheet.Range("C4:D4").Merge()
- oSheet.Range("C5:D5").Merge()
- oSheet.Range("A1:D1").Font.Bold = True
- oSheet.Range("A1").HorizontalAlignment = -4152
- oSheet.Range("C1").HorizontalAlignment = -4131
- oSheet.Range("A1").Value = "Договор №"
- oSheet.Range("C1").Value = KartaDataGridView.CurrentRow.Cells(0).Value
- oSheet.Range("A2").Value = "Вид договора:"
- oSheet.Range("A5").Value = "Дата заключения:"
- oSheet.Range("C5").Value = KartaDataGridView.CurrentRow.Cells(5).Value
- 'Сохранить книгу и закрыть Excel
- oBook.SaveAs("D:\T2 " & KartaDataGridView.CurrentRow.Cells(0).Value & ".xlsx")
- oExcel.Quit()
- Process.Start("D:\T2 " & KartaDataGridView.CurrentRow.Cells(0).Value & ".xlsx")
Решение задачи: «Прикрутить открытие файла»
textual
Листинг программы
- Application.StartupPath & "\имя_файла.xlsx
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д