Hier ist meine Abfrage: Ich bekomme bei "sqlcon.Open (Con)" immer einen
Automatisierungsfehler und komme nicht drauf was es sein könnte. Es wäre
sehr hilfreich, wenn sich den Code mal jemand anschauen könnte.
Sub DAOFromExcelToSQL()
Dim r As Long
Dim Con As String
Dim Com As String
Dim Values As String
Dim sqlcon As ADODB.Connection
Dim sqlcom As ADODB.Command
Set sqlcon = New ADODB.Connection
Set sqlcom = New ADODB.Command
Con = "Integrated Security=SSPI;Persist Security Info=False;Initial
Catalog=Logging;Data Source=PC0019"
r = 1
Do While Len(Range("A" & r).Formula) > 0
r = r + 1
Loop
r = r - 1
Dim i As Integer
i = 1
Dim x As String
x = "A"
Com = "INSERT INTO dbo.Logg ("
Values = "VALUES("
Do While i <= 19
x = Chr$(Asc(x) + 1)
Com = Com + "Feld" & i & ", "
Values = Values & "'" & Range(x & r).Value & "', "
i = i + 1
Loop
Com = Mid(Com, 1, Len(Com) - 2)
Values = Mid(Com, 1, Len(Values) - 2)
Com = Com & ")"
Values = Values & ")"
Com = Com & " " & Values
sqlcon.Open (Con)
With sqlcom
.ActiveConnection = sqlcon
.CommandText = Com
.Execute
End With
sqlcon.Close
End Sub
Post by Thomas RamelGrüezi Thomas
Post by Thomas BurgerIst es möglich über VBA/Makros Excel Daten in eine SQL Server Tabelle zu
exportieren.
Nach Access habe ich es hinbekommen, aber zu einer SQL Server Tabelle bin
ich gerade am verzweifeln.
Woran hat es denn gescheitert?
Am Connection-String oder am Schreiben selbst?
Post by Thomas BurgerWäre sehr nett wenn es dafür Codebeispiele oder Ähnliches geben würde.
http://www.erlandsendata.no/english/index.php?t=envbadac
http://www.erlandsendata.no/english/index.php?d=envbadacconnstring
--
Mit freundlichen Grüssen
- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2003]