ADO in geschlossene Arbeitsmappe schreiben

Public Sub ADO_Write() Dim objConnection As Object Dim strConnection As String Dim strWorkbook As String, strWorksheet As String Dim Seriennummer As String strWorkbook = "C:\Datenbank\Mappe1.xls" strWorksheet = "Tabelle2" Seriennummer = ThisWorkbook.Worksheets("Tabelle3").Range("A1").Value Set objConnection = CreateObject("ADODB.Connection") strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & strWorkbook & ";" & _ "Extended Properties=""Excel 12.0;HDR=Yes;IMEX=0""" Call objConnection.Open(strConnection) Call objConnection.Execute("INSERT INTO [Tabelle2$A1:A10]" & _ "VALUES ('" & Seriennummer & "')") objConnection.Close Set objConnection = Nothing End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Timo,
zuerst einmal, die Datei wird trotzdem geöffnet! Du siehst es nur nicht.
In A1 schreiben geht nicht, das SQL immer nach einer Tabelle verlangt und bei einer Tabelle stehen in der ersten Zeile Überschriften. Schreibe in A1 also eine beliebige Überschrift und versuche folgenden Code. Die Seriennummer wird inA2 geschrieben.

Sub updateData()
  Dim ExcelTable As Object
  Dim Path As String, Table As String, SourceRange As String
  Dim SQL As String, Con As String
  Dim Seriennummer As String
    
  Path = "C:\Datenbank\Mappe1.xls"  ' Dateiname - Anpassen! 
  Table = "Tabelle2"                ' Tabellenname - Anpassen 
  SourceRange = "A1:A2"             ' Bereich - Anpassen! 
  
  Seriennummer = ThisWorkbook.Worksheets("Tabelle3").Range("A1").Value

  SQL = "select * from [" & Table & "$" & SourceRange & "]"

  If Right(Path, 3) = "xls" Then
    Con = "Provider=Microsoft.Jet.OLEDB.4.0;" _
      & "Extended Properties=Excel 8.0;" _
      & "Data Source=" & Path & ";"
  ElseIf Right(Path, 4) = "xlsx" Or Right(Path, 4) = "xlsm" Then
    Con = "Provider=Microsoft.ACE.OLEDB.12.0;" _
      & "Extended Properties=""Excel 12.0;HDR=YES"";" _
      & "Data Source=" & Path & ";"
  End If

  Set ExcelTable = CreateObject("ADODB.Recordset")

  ExcelTable.Open SQL, Con, 3, 3

  With ExcelTable
    .Movefirst
    .Fields(0) = Seriennummer
    .Update
    .Close
  End With
  
  Set ExcelTable = Nothing
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

	A	B	C	D	E	F
1	Gruß Sepp
2
3

Application.ScreenUpdate = False WorkBooks("bekannterPfad+Name").Open With ActiveWorkbook .Sheets("bekannteTabelle").Range("bekannteZelle(n)").Value = Zielwert(e) .Close True End With Application.ScreenUpdate = True

Beliebteste Forumthreads (12 Monate)

ADO in geschlossene Arbeitsmappe schreiben

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread