Externe Daten einlesen!!!
06.11.2003 13:12:29
Markus
in dem folgenden Code hole ich mir externe Daten und füge diese in Excel ein.
Dim Maschine As String
Maschine = Touch1589
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=Touch1589;UID=sa;PWD=;APP=Microsoft® Query;WSID=KDMF;DATABASE=WEBfactory" _
, Destination:=Range("A1"))
.CommandText = Array( _
"SELECT Logging.LoggingID, Logging.LoggingTime, Logging.SignalID, Logging.LoggingValue" & Chr(13) & "" & Chr(10) & "FROM WEBfactory.dbo.Logging Logging" & Chr(13) & "" & Chr(10) & "WHERE (Logging.SignalID=201)" & Chr(13) & "" & Chr(10) & "ORDER BY Logging.LoggingTime DESC" _
)
.Name = "Abfrage von aktueller Touch-Maschine"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
Nun folgendes Problem hinter dem DSN steht meine Quelle die sich ändert (DSN=Touch1589) wenn ich in dem Makro das Touch1589 in z.B. Touch2322 ändere funktioniert das Super. Wie kann ich das machen das ich eine Variable (z.B. Maschine) habe und in diese Variable den Text (Touch1589 oder Touch2322) eintrage und es automatisch geht. Wenn ich es so DSN=Maschine schreibe funktioniert es nicht. Wenn ich in die Variable Maschine = "DSN=Touch1589" reinschreibe geht es auch nicht es erscheint kein Fehler ich muss nur die Quelle von der ich die Daten holen möchte (z.B. Touch1589) von Hand anklicken.
Kann mir da jemand weiterhelfen??
Danke Gruß Markus