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!
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
Hallo Manfred,
Besten Dank!
Funktioniert genau so, wie du es beschrieben hast.
Beste Grüsse
Klaschl