Hallo liebe Gemeinde,
ich stehe mal wieder vor einem Rätsel. Ich möchte Daten an Excel übergeben um diese zu berechnen. Die Werte kommen aus einer Tabelle. Dies klappt wunderbar. Jetzt möchte ich aber zusätlich noch aus dem Formular auf dem der Button für die Anweisung ist. Den Artikel und die Artikelnummer noch mitgeben. Excel startet, die Datene werden übertragen aber das Feld Artikelnummer bleibt leer???
Was mache ich falsch?
Hier der Code:
Private Sub btncpk_Click()
If DCount("*", "tblspcmessung") > 5 Then
Dim objExcel As Object
On Error Resume Next
Set objExcel = CreateObject("Excel.Application")
If Not objExcel Is Nothing Then
Dim rs As DAO.Recordset
Dim xlApp As Object, xlWB As Object, xlsheet As Object, xlBook As Object
Set rs = CurrentDb.OpenRecordset("SELECT Werte FROM tblspcmessung")
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlWB = xlApp.Workbooks.Add("\\Bteerp03\d\QS-PPV\Prozessanalyse.xlsm")
Set xlsheet = xlWB.Sheets(1)
'Wird nicht in Excel geschrieben
xlsheet.cells("C6") = Me.artikel_nr
'Ab Hier funktioniert es. Werte werden in Excel geschrieben
xlsheet.Range("K11").CopyFromRecordset rs
Set rs = CurrentDb.OpenRecordset("SELECT TOP 1 SollMass FROM tblspcmessung")
xlsheet.Range("E14").CopyFromRecordset rs
Set rs = CurrentDb.OpenRecordset("SELECT TOP 1 obere_Toleranz FROM tblspcmessung")
xlsheet.Range("G14").CopyFromRecordset rs
Set rs = CurrentDb.OpenRecordset("SELECT TOP 1 untere_Toleranz FROM tblspcmessung")
xlsheet.Range("G15").CopyFromRecordset rs
Else
MsgBox ("Diese Funktion benötigt Excel auf Ihrem PC, Anwendung wird nicht gestartet")
End If
Else
MsgBox ("Keine Auswertbare Daten vorhanden ! Es können nur gemessene Werte bewertet werden")
End If
End Sub
Hallo zusammen,
ich habe das Problem gelöst. Habe die Daten einfach vorher in meine Tabellenerstellungsabfrage mit eingebaut und dann wie im funktionierenden Bereich aufgerufen.
Klappt.