Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

über ein VBS ein CSV befüllen
Autor: Mathias123
Datum: 05.10.10 08:11
hallo an alle kann mir jemand bei der Syntax helfen, wie ich aus einer SQL Tabelle Daten in ein CSV Datei bringe? Hab die Verbindung schon aufgebaut, jedoch weiß ich nicht, wie ich die CSV ansteuere. Irgendwie mit Excel Application, wenn ich mich nicht irre?!?!? Leider funktioniert der untere Teil mit dem Excel.Application nicht Set CnPrf = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") CnPrf.Provider = "SQLOLEDB.1" CnPrf.Properties("Data Source") = "******" CnPrf.Properties("Initial Catalog") = "*******" CnPrf.Properties("User ID") = "*****" CnPrf.properties("Password") = "******" CnPrf.Open SQL = "select * from Tabelle (nolock)" rs.open SQL, CnPrf, 1, 3 if rs.recordcount = 0 then msgbox "Es gibt keine Bestellungen" else msgbox "es gibt Bestellungen" sBestellung = rs.Fields("Bestellung") end if Dim Appl As New Excel.Application ' Excel Anwendung Dim Mappe As Excel.Workbook ' Excel Arbeitsmappe Dim Blatt As Excel.Worksheet ' Excel Blatt (Tabelle) Dim Bereich As Excel.Range ' Excel Bereich Mappe = Appl.Workbooks.Open("C:\export.csv") Appl.Visible = True Blatt = Mappe.Worksheets(1) Blatt.Range("A1").Value = sBestellung BESTEN DANK IM VORAUS

über ein VBS ein CSV befüllen	3.340	Mathias123	05.10.10 08:11
Re: über ein VBS ein CSV befüllen	1.735	Mathias123	05.10.10 09:50
Re: über ein VBS ein CSV befüllen	1.741	Franki	06.10.10 01:59
Re: über ein VBS ein CSV befüllen	1.668	Mathias123	06.10.10 11:04

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen