Anzeige - [Interessiert an einer Anzeige?]
(?) Tags raten (?) (edit)
 
Reply to this topicStart new topicStart Poll
> Batch Excel Import in Access
Thema abonnieren | Thema versenden | Thema drucken
Big Rob
  Geschrieben am: Fr 11.04.2008, 17:20
Report PostQuote Post

AyomRank 4
********

Gruppe: Member (aktiv)
Beiträge: 198
Mitglied seit: 18.01.2008
Hallo Freunde

Ich habe sehr viele (über 100) gleichförmige Excel Dateien mit den selben Spaltenbezeichnungen
und möchte Sie nicht einzeln sondern alle gleichzeitig in eine große Access Tabelle importieren.
Ich hab aber keine ahnung von makros und finde nichts kostenloses dazu im internetz

Kann mir einer helfen?


--------------------


Ich bin immer gerne an Linktauschs oder anderen Kooperationen interessiert!
Sie können mich gerne per PM, robert[at]kitzmann.at oder ICQ 81130739 kontakten!
---
Baulinks
Top
PMEmail PosterICQ
Top
 
 
jAuer
Jürgen Auer - freiberufl. Programmierer
#2 Geschrieben am: Fr 11.04.2008, 19:15 (+01:54)
Report PostQuote Post

AyomRank 9
Group Icon

Gruppe: Experten Entwicklung
Beiträge: 2290
Mitglied seit: 4.02.2006
Im Prinzip sind das ein paar Zeilen:

CODE
Dim conn, arg, ins, sel

If WScript.Arguments.Count = 0 Then
WScript.Echo "Verwendung: Lade 'Excel-Dateiname'"
WScript.Quit
End If

arg = WScript.Arguments(0)

Set conn = WScript.CreateObject("Adodb.Connection")

conn.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=E:\temp\beispiel.mdb"

ins = "Insert Into Tabelle(Spalte1, Spalte2, Spalte3) "
sel = "Select A.Spalte1, A.Spalte2, A.Spalte3 From [Excel 8.0;Database=E:\temp\" & arg & "].[Tabelle1$] As A"

'WScript.Echo conn.Execute(sel).GetString

conn.Execute ins & sel
conn.Close


AdoDb-Connection - Objekt erzeugen, eine Verbindung zur Ziel-Access-Datenbank öffnen, die Excel-Tabelle als Sql-Datenbank ansprechen, dort die gewünschten Spalten auswählen und sie per Insert in die Access-Tabelle pumpen.

Die per ' auskommentierte Zeile

CODE
'WScript.Echo conn.Execute(sel).GetString


erst einmal ausführen und gucken, ob der Inhalt korrekt gefunden wird. Tabellenblätter werden mit $ hinten angesprochen.

Und dann einfach über eine Batch-Prozedur (kann man sich aus einem dir - Output basteln) dieses VBScript für jede Excel-Datei einmal aufrufen.


--------------------
Web-Anwendung 3.0: Ein Online-Kalender für Termine vieler Filialen.

server-daten - die Single-Data-Solution: Web-Datenbanken als Online - CRM - Lösung.
Ihre Geschäftsprozesse entscheiden, was Ihre Online-Datenbank macht. Sie konzentrieren sich auf Ihr Kerngeschäft - die Datenbank funktioniert.
Top
PMEmail PosterUsers Website
Top
 
Big Rob
#3 Geschrieben am: Fr 11.04.2008, 19:20 (+00:05)
Report PostQuote Post

AyomRank 4
********

Gruppe: Member (aktiv)
Beiträge: 198
Mitglied seit: 18.01.2008
oh, ok bis ich das verstanden habe vergehen sicherlich einige wochen smile.gif aber vielen dank!


--------------------


Ich bin immer gerne an Linktauschs oder anderen Kooperationen interessiert!
Sie können mich gerne per PM, robert[at]kitzmann.at oder ICQ 81130739 kontakten!
---
Baulinks
Top
PMEmail PosterICQ
Top
 
jAuer
Jürgen Auer - freiberufl. Programmierer
#4 Geschrieben am: Fr 11.04.2008, 19:25 (+00:04)
Report PostQuote Post

AyomRank 9
Group Icon

Gruppe: Experten Entwicklung
Beiträge: 2290
Mitglied seit: 4.02.2006
Äh, sorry, vergessen:

Per Notepad eine Datei mit Endung .vbs erstellen, etwa 'lade.vbs', da das oben reinkopieren.

Einmaliger Aufruf ist dann:

CODE
lade.vbs datei1.xls


Und 'datei1.xls' muß dann noch durch die anderen Dateinamen ersetzt werden - per

dir /b > info.txt

kriegt man die als Liste in die Datei info.txt, die nach Excel in Spalte C kopieren, Spalte B per Runterziehen mit lade.vbs füllen, das ganze in eine execute.cmd kopieren.

Das ist die Rahmenbehandlung.

Ich mach grade noch ein paar andere Sachen.


--------------------
Web-Anwendung 3.0: Ein Online-Kalender für Termine vieler Filialen.

server-daten - die Single-Data-Solution: Web-Datenbanken als Online - CRM - Lösung.
Ihre Geschäftsprozesse entscheiden, was Ihre Online-Datenbank macht. Sie konzentrieren sich auf Ihr Kerngeschäft - die Datenbank funktioniert.
Top
PMEmail PosterUsers Website
Top
 
Thema wird von 0 Benutzer(n) gelesen (0 Gäste und 0 anonyme Benutzer)
0 Mitglieder:
« GoogleMap Frage | Webmaster Allgemein | Vorsicht beim Zoll... »
Trackback-Url: http://www.ayom.com/track/t/23956
Dieses Thema abonnieren

Topic Options Reply to this topicStart new topicStart Poll

 


> Ähnliche Themen
Themen Titel Autor Views Antworten Letzte Aktion
Galeon 2.0.4 Import von Bookmarks Christian 80 3 Mi 27.08.2008, 14:32
(B) unique Content Bereich Import TSc 94 0 Do 19.06.2008, 07:44
Import aus China. Wirklich teuer? htr 10600 51 Mo 9.06.2008, 00:19
mySQL Dump aus Access Datenbank Big Rob 209 4 Mo 2.06.2008, 22:19
Import von Waren aus Spanien MrBrian 501 13 Do 29.05.2008, 12:20
problem mit excel Seth.Gecko 224 11 Mi 21.05.2008, 16:30
Import von Textilien aus den USA(Nach D) JanBHV 381 4 Mi 2.04.2008, 19:54
Access Abfrage Auto Increment Big Rob 188 2 Mi 12.03.2008, 16:41
Mit einem batch per FTP Dateien lokal backupen pippolino 292 2 Di 5.02.2008, 18:50
Werbung in Excel-Dateien? Claus Lehmann 277 3 Do 31.01.2008, 07:48




Anzeige - [Interessiert an einer Anzeige?]



Anzeigen


[Interessiert an einer Anzeige?]