Daten von Access nach Excel und zurück

Computer: Software & Programmierung Microsoft Access
#1

Hallo zusammen,

Ich habe folgendes Problem:

Ich möchte Daten aus einem Textfeld oder Tabelle in ein Feld in einer Excel-Tabelle einfügen.

Die Excel Tabelle enthält 3 Felder:
1.Feld Variable A (A1)
2.Feld Variable B (A2)
3.Feld wird über eine Formel berechnet und enthält dann Ergebnis E (A3)

Ich möchte dann das Ergebnis E wieder nach Access importieren und in ein Textfeld oder in ein Datensatzfeld einer Access-Tabelle schreiben.
(Aber nicht die Formel aus dem Excel Feld (A3)! Den Wert benötige ich.)

Vielen Dank schon im Voraus!

#2

Hallo!

Die Excel Tabelle enthält 3 Felder:
1.Feld Variable A (A1)
2.Feld Variable B (A2)
3.Feld wird über eine Formel berechnet und enthält dann
Ergebnis E (A3)

Ganz grob so: Du bindest die Excel-Bibliothek in Dein Projekt ein. Dann:

Sub WertInExcelBerechnen(pvarZahl1 as variant, pvarZahl2 as variant)
 Dim appXL as New Excel.Application
 Dim wbDeineDatei as Workbook
 Dim wsTabelle as Worksheet
 dim dblBerechneterWert as double ' oder sonst was passendes

 set wbDeineDatei = appXL.Workbooks.Open("C:\DeineVorlagendatei.xls")
 Set wsTabelle = wbDeineDatei.Worksheets(1) ' erste Tabelle
 with wsTabelle
 .cells(1,1)=pvarZahl1
 .cells(1,2)=pvarZahl2
 dblBerechneterWert = .cells(1,3)
 ' das kannst Du jetzt irgendwo nach Access schreiben...
 end with
 wbDeineDatei.close ' Hier ggf. mit oder ohne speichern
 set wbDeineDatei=nothing
 appXL.Quit
End Sub

Wie immer ungetestet/uncompiliert, aber so in etwa sollte es gehen…

Gruß, Manfred

#3

Hallo Manfred,

Besten Dank!

Funktioniert genau so, wie du es beschrieben hast.

Beste Grüsse
Klaschl