Read a cell from an excel sheet using CSharp

Create a windows form project,add a com reference named Microsoft Excel 16.0 Object Library

Create a Class named Excel

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

using Microsoft.Office.Interop.Excel;

using _Excel = Microsoft.Office.Interop.Excel;

namespace chsarpexcelpart1

{

    class Excel

    {

        string path = "";

        _Application excel = new _Excel.Application();

        Workbook wb;

        Worksheet ws;

        public Excel(string path, int Sheet)

        {

            this.path = path;

            wb = excel.Workbooks.Open(path);

            ws = wb.Worksheets[Sheet];

        }

        public string ReadCell(int i, int j)

        {

            i++;

            j++;

            if (ws.Cells[i, j].Value2 != null)

                return ws.Cells[i, j].value2;

            else

                return "";

        }

        public void Close()

        {

            wb.Close();

        }

    }

}

Now go to the form code

private void Form1_Load(object sender, EventArgs e)

        {

            OpenFile();

        }

        public void OpenFile()

        {

            Excel excel = new Excel(@"C:\Users\allso\source\repos\chsarpexcelpart1\chsarpexcelpart1\Test.xlsx", 1);

            MessageBox.Show(excel.ReadCell(0, 0));

excel.Close();

        }

Connect and get data from microsoft access database in excel using vba

Option Explicit

Sub ExportDataToAccess()

    Dim ConnObj As ADODB.Connection
    Dim RecSet As ADODB.Recordset
    Dim ConnCmd As ADODB.Command
    Dim ColNames As ADODB.Fields
    Dim DataSource As String
    Dim intLoop As Integer
   
    'Define the data source
    DataSource = "C:\Users\sourav\Desktop\A732CreatingForms_1.accdb"

    'Create a new connection object & a new command object
    Set ConnObj = New ADODB.Connection
    Set ConnCmd = New ADODB.Command

    'Create a new connection
    With ConnObj
        .Provider = "Microsoft.ACE.OLEDB.12.0"    'For *.ACCDB Databases
        .ConnectionString = DataSource
        .Open
    End With
   
    'This will allow the command object to use the Active Connection
    ConnCmd.ActiveConnection = ConnObj

    'Define the Query String & the Query Type.
    ConnCmd.CommandText = "SELECT * from Employees;"
    ConnCmd.CommandType = adCmdText

    'Exectue the Query & Get the column Names.
    Set RecSet = ConnCmd.Execute
    Set ColNames = RecSet.Fields
   
    'Populate the header row of the Excel Sheet.
    For intLoop = 0 To ColNames.Count - 1
        Cells(1, intLoop + 1).Value = ColNames.Item(intLoop).Name
    Next
   
    'Dump the data in the worksheet.
    Range("A2").CopyFromRecordset RecSet
   
    'Close the Connection
    ConnObj.Close

End Sub