#include "stdafx.h"
#include <iostream>
#include <vector>
#include <fstream>
using std::ifstream;
#include <cstdlib> // for exit function
using namespace std;

// method to read a 3X3 array from the only sheet (Sheet1) in an excel file named "Books2.xls"
const int nRows2 =3;
const int nCols2 =3;
void readArray(int myArray[nRows2][nCols2]) {
    // to open an excel file "Book2.xls" for reading
    ifstream CSpreadsheet;
    CSpreadsheet.open("Book2.xls",ios::in); // Can be ios:::in or ios:::out depending on what you want to do
    ifstream CSpreadsheet("Book2.xls");
    if (CSpreadsheet.is_open()) {
        for (int row = 0; row <nRows2; row++) {
            for (int col = 0; col <nCols2; col++) {
                // To accept/read-in values for the array
                CSpreadsheet >> myArray[row][col];
            }
        }
     }
    else {
        cout << "Can't open your Excel file";
    }
    CSpreadsheet.close();
}

// Method to display/write contents of the earlier read array in another excel file named "Book3.xls"
void displayMyArray(int myArray[nRows2][nCols2])
{   // to open a file "examples_output.txt" for output
    ofstream CSpreadsheet;
    CSpreadsheet.open ("Book3.xls", ios::out);
     if (CSpreadsheet.is_open()){
          for (int row = 0; row < nRows2; row++){
             for (int col = 0; col < nCols2; col++){
// to print out elements of an array
               CSpreadsheet << myArray[row][col]  << '\t';}
             CSpreadsheet << endl <<endl;}
    }
    else {
         cout << "Can't open file for writing";
    }
    CSpreadsheet.close();
}// method displayMyArray ends here
int main () {
    
    int myArray[nRows2][nCols2];
    readArray(myArray);
    displayMyArray(myArray);
return 0;
}

Sub TestOle(xlsFileName, rows, cols)
    Set oConn = CreateObject("ADODB.Connection")
    oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
        & "Data Source=" & xlsFileName _
        & ";Extended Properties=""Excel 8.0;HDR=NO;"""

    Set oRS =  CreateObject("ADODB.Recordset")
    oRS.Open "Select * From [Sheet1$]", oConn
    'oRS.Open "Select * From [Sheet1$A1:D5]", oConn

    col=1
    For row = 1 to rows
        line = ""
        For col = 0 to cols - 1
            line = line & oRS.Fields(col).Value
            line = line & vbTab
        Next
        Wscript.Echo line
        oRs.MoveNext
    Next
    oConn.Close
End Sub