Importere fra Excel til datagrid og eksportere til Access

Var det ikke nemmere at læse fra Excel med en DataReader og skrive til
Access med INSERT sætninger ?

Jo, det kunne vidst godt ske, havde jeg ikke tænkt over.

Hvilke imports skal man have, og hvordan kan jeg vælge et bestemt område i excel filen?

række 1 i Excel betragtes normalt som felt navne, så du kan vælge kolonner
i select listen

rækker kan du vælge med en where betingelse

strSQL = "SELECT * FROM [Sheet1$]"
    objConn = New OleDb.OleDbCommand(strSQL, objConn)
    objConn.Open()
    Try
      drOLE = objConn.ExecuteReader(CommandBehavior.Default)
    Catch ex As Exception
      MsgBox(ex.Message)
      End
    End Try
    If drOLE.HasRows Then
      drOLE.Read()
      Do
        Try
          'INSERT INTO TABEL osv.
        Catch ex As Exception
          MsgBox(ex.Message)
          End
        End Try
      Loop While drOLE.Read
    End If

Sådan ser min kode ud nu, men hvis jeg nu kun ønsker den skal tage a4 til c7. Den har namerange "Ordrelinjer" kan man bruge det istedet for [sheet1$], plus excel filen kan have flere sheets, som fx. ordre 1, ordre2. Hvordan skal SELECT metoden se ud?  ordre 1.#Ordrelinjer# eller? er rimelig ny indefor det med excel og vb :)

k1    k2    k3    k4
1    2    3    4
5    6    7    8
9    10    11    12
13    14    15    16

using System;
using System.Data.OleDb;

class MainClass
{
    public static void Main(string[] args)
    {
        OleDbConnection con = new OleDbConnection( @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Book2.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1""");
        con.Open();
        OleDbCommand cmd = new OleDbCommand("SELECT k2,k3 FROM [sheet1$] WHERE k1 >= 2", con);
        OleDbDataReader rdr = cmd.ExecuteReader();
        while(rdr.Read()) {
            double k2 = (double)rdr[0];
            double k3 = (double)rdr[1];
            Console.WriteLine(k2 + " " + k3);
        }
        con.Close();
    }
}

6 7
10 11
14 15

jeg kan ikke få en AND til at virke i WHERE - det må du nok pusle lidt med

sorry det var C# - her kommer VB.NET:

Imports System
Imports System.Data.OleDb

Class MainClass
    Public Shared Sub Main(ByVal args As String())
        Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Book2.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1""")
        con.Open
        Dim cmd As OleDbCommand = New OleDbCommand("SELECT k2,k3 FROM [sheet1$] WHERE k1 >= 2", con)
        Dim rdr As OleDbDataReader = cmd.ExecuteReader
        While rdr.Read
            Dim k2 As Double = CType(rdr(0), Double)
            Dim k3 As Double = CType(rdr(1), Double)
            Console.WriteLine(k2 & " " & k3)
        End While
        con.Close
    End Sub
End Class

Jeg takker endnu engang for din hjælp, jeg har dog ikke testet det endnu, men hvis du ligger et svar giver jeg respons imorgen.

svar

hmm arne v. Selv koden fungere fint, men den "æder" eller springer den første linje over i excel dokumentet. Hvis jeg fx. har 19 rækker tager din kode kun de 18 rækker, hvad kan det skyldes?

du er opmærksom på at øverste række bruges til kolonne navne ??

hvis ikke du har det skal du bruge HDR=No og nogle andre feltnavne
(mit setup vælger tilsyneladende at kalde felterne f1,f2,f3,f4)

oki, derfor så :) Tusind tak for hjælpen