Sie sind zurzeit offline. Es wird auf die erneute Herstellung einer Internetverbindung gewartet.

Importieren von Daten aus Microsoft SQL Server in Microsoft Excel

Wichtig: Dieser Artikel wurde maschinell übersetzt und wird dann möglicherweise mithilfe des Community Translation Framework (CTF) von Mitgliedern unserer Microsoft Community nachbearbeitet. Weitere Informationen zu CTF finden Sie unter http://support.microsoft.com/gp/machine-translation-corrections/de.

Den englischen Originalartikel können Sie über folgenden Link abrufen: 306125
Zusammenfassung
Diese Anleitung beschreibt, wie Daten in Microsoft Excel aus der Pubs-Datenbank eine Datenbank importieren, die mit Microsoft SQL Server enthalten ist.

ActiveX Data Objects (ADO) ermöglichen den Zugriff auf eine Datenquelle. Es ist ein grundlegendes Objektmodell mit nur wenigen Objekten. Die wichtigsten Objekte im ADO-Objektmodell sind:
   Object          Description   -----------------------------------------------------------------------   Connection      Refers to the connection to the data source.   Recordset       Refers to the data extracted.   Command         Refers to a stored procedure or SQL statements that                    need to be executed.				
Zwar auf vielfältige Weise mithilfe ADO Recordset zurückgeben, konzentriert sich dieser Artikel die Verbindung und die Recordset-Objekte.

Voraussetzungen

Sie müssen einen lokalen Server Microsoft SQL Server ausgeführt wird und die Datenbank Pubs enthält.

Microsoft empfiehlt, dass Sie Folgendes wissen:
  • Visual Basic for Applications erstellen-Prozeduren in Office-Programmen.
  • Arbeiten mit Objektvariablen.
  • Arbeiten mit Excel-Objekten.
  • Relational Database Management System (RDBMS)-Konzepte.
  • Strukturierte Abfragesprache (SQL) SELECT-Anweisungen.

Verweisen auf die ADO-Objektbibliothek

  1. Starten Sie Excel. Öffnen Sie eine neue Arbeitsmappe, und speichern Sie sie als SQLExtract.xls.
  2. Starten Sie Visual Basic-Editor, und wählen Sie das VBA-Projekt.
  3. Auf der Tools Menü klicken Referenzen.
  4. Klicken Sie auf die neueste Version von der Microsoft ActiveX Data Objects-Bibliothek Kontrollkästchen.

Erstellen der Verbindung

  1. Fügen Sie ein neues Modul in das Projekt ein.
  2. Erstellen Sie eine neue Subprozedur mit dem Namen "DataExtract".
  3. Geben Sie oder fügen Sie den folgenden Code:
    ' Create a connection object.Dim cnPubs As ADODB.ConnectionSet cnPubs = New ADODB.Connection' Provide the connection string.Dim strConn As String'Use the SQL Server OLE DB Provider.strConn = "PROVIDER=SQLOLEDB;"'Connect to the Pubs database on the local server.strConn = strConn & "DATA SOURCE=(local);INITIAL CATALOG=pubs;"'Use an integrated login.strConn = strConn & " INTEGRATED SECURITY=sspi;"'Now open the connection.cnPubs.Open strConn					

Extrahieren der Daten

Geben Sie oder fügen Sie den folgenden Code, um die Datensätze zu extrahieren:
' Create a recordset object.Dim rsPubs As ADODB.RecordsetSet rsPubs = New ADODB.RecordsetWith rsPubs	' Assign the Connection object.	.ActiveConnection = cnPubs	' Extract the required records.	.Open "SELECT * FROM Authors"	' Copy the records into cell A1 on Sheet1.	Sheet1.Range("A1").CopyFromRecordset rsPubs		' Tidy up	.CloseEnd WithcnPubs.CloseSet rsPubs = NothingSet cnPubs = Nothing				

Überprüfen der Funktionsfähigkeit des Codes

  1. Führen Sie den Code aus.
  2. Wechseln Sie zu Excel, und öffnen Sie Blatt1 der Arbeitsmappe, die Daten anzuzeigen.

Problembehandlung:

Wenn Code scheint nicht zu reagieren und einen Laufzeitfehler, kann der Datenbankserver liegen. ConnectionTimeout-Eigenschaft können Sie die Dauer steuern, wird ein Laufzeitfehler zurückgegeben. Legen Sie diese Eigenschaft auf einen Wert größer als 0 (null). Wenn Sie den Wert auf Null festlegen, die Verbindung kein Timeout erfolgen soll. Der Standardwert ist 15 Sekunden.
Informationsquellen
Sie können zusätzliche Beispielcode finden der folgenden Microsoft-Website:
ACC2002 xl2002 XL2003 XL2007

Warnung: Dieser Artikel wurde automatisch übersetzt.

Eigenschaften

Artikelnummer: 306125 – Letzte Überarbeitung: 10/26/2015 02:26:00 – Revision: 2.0

Microsoft Office Excel 2007, Microsoft Excel 2002 Standard Edition

  • kbhowtomaster kbmt KB306125 KbMtde
Feedback
t=">ay:none;" onerror="var m=document.createElement('meta');m.name='ms.dqp0';m.content='true';document.getElementsByTagName('head')[0].appendChild(m);" onload="var m=document.createElement('meta');m.name='ms.dqp0';m.content='false';document.getElementsByTagName('head')[0].appendChild(m);" src="http://c1.microsoft.com/c.gif?"> y>=">ext/javascript"> Asimov.clickstreamTracker.init(); ker-link" ms.title="Deutsch (Deutschland)" href="javascript:function smcLanguageSelector() { return undefined; } smcLanguageSelector();" data-bi-name="LocalePicker"> Deutsch (Deutschland)‎
://c1.microsoft.com/c.gif?DI=4050&did=1&t=">d=1&t=">>.getElementsByTagName('head')[0].appendChild(m);" src="http://c1.microsoft.com/c.gif?"> >050&did=1&t=">.microsoft.com/ms.js'><\/script>"); &t=">