How to open excel 2017 from Visual Studio 2017

Question

How can I open an existing excel 2016 file from within Visual 2017 (VB)?

The target is to the file, read a cell, change it's value (e.g. increment it), and save the file.

I found references in Google, but none are working within VS2017 for me.

I would appreciate a working code example.

Thank you

Answer 1

Hi YigalB,

In advance, sorry if I misunderstand your description.
Visual Studio itself cannot open an existing Excel file. We can make an application to open an existing Excel file, with using Visual Studio. 

Regards,

---

Ashidacchi -- https://ssl01.rocketnet.jp/hokusosha.com/default.html

Answer 2

Hi YigalB,

In advance, sorry if I misunderstand your description.
Visual Studio itself cannot open an existing Excel file. We can make an application to open an existing Excel file, with using Visual Studio. 

Regards,

---

Ashidacchi -- https://ssl01.rocketnet.jp/hokusosha.com/default.html

Hi

I found a solution and it works for me. See bellow.

Yigal

Dim MyExcel As New Microsoft.Office.Interop.Excel.Application
        MyExcel.Workbooks.Open(Me.TextBox1.Text)

        ' Extract
        MyExcel.Sheets("Sheet1").activate()
        MyExcel.Range("A1").Activate()

        Dim ThisRow As New ExcelRows

        Do
            If MyExcel.ActiveCell.Value > Nothing Or MyExcel.ActiveCell.Text > Nothing Then
                ThisRow.c1 = MyExcel.ActiveCell.Value
                MyExcel.ActiveCell.Offset(0, 1).Activate() ' move to col 2

                ThisRow.c2 = MyExcel.ActiveCell.Value
                MyExcel.ActiveCell.Offset(0, 1).Activate() ' move to col 3

                ThisRow.c3 = MyExcel.ActiveCell.Value
                MyExcel.ActiveCell.Offset(0, 1).Activate() ' move to col 4

                ThisRow.c4 = MyExcel.ActiveCell.Value
                MyExcel.ActiveCell.Offset(0, 1).Activate() ' move to col 5



                ThisRow.answer = MyExcel.ActiveCell.Value

                ExcelRowList.Add(ThisRow)
                MyExcel.ActiveCell.Offset(1, -4).Activate() ' gp tp next line, 1st col

            Else
                Completed = True
                Exit Do
            End If
        Loop



        ' Close
        MyExcel.Workbooks.close()
        MyExcel = Nothing

Answer 3

Hi YigalB,

You have made an application successfully.
Thank you for providing code, but sorry, I have no time to make a new application using your code.
Anyway, Congratulations!

Regards,

---

Ashidacchi -- https://ssl01.rocketnet.jp/hokusosha.com/default.html