vorweg wünsche ich euch allen ein schönen 1 Mai.
Ich Kopiere ein Bereich in Excel baue per Vba ein connectionstring zu einem SQL Server auf.
Hier komme ich nun nicht weiter. Und bitte um Hilfe
Zu meinen Anliegen : wie öffne ich ein SQL Script auf Beispiel C:abfrage.sql?
Wie kann ich den kopierten Bereich aus Excel in dem Script einer bestimmten Zeilennummer ( Beispiel Zeilennummer 10 )einfügen und das Script laufen lassen.
Das Ergebnis sollte dann in Excel exportiert werden.
Das SQL Script sollte danach ohne zu speichern schliessen.
Viele Grüße
Sub test()
Dim con As New ADODB.Connection
Dim constr, Pws, Anzahl As String
Anzahl = Range("A65535").End(xlUp).Row
Range(Cells(1, 1), Cells(Anzahl, 1)).Select
Selection.Copy
Pws = InputBox("Passwort Eingeben!", "Passwort")
User = InputBox("Benutzer Eingeben!", "Benutzer")
constr = "Provider=SQLOLEDB.1;PWD=Pws;Persist Secrurity info=True;UserID=User;InitialCatalog= _
TEST;DataSource=C:\IP.xls;" & _
"Extended Properties=Excel 8.0;"""
With con
.ConnectionString = constr
.Open
End With
End Sub