mit dieser sub:
Sub db()
Sheets.Add
Sheets("tabelle2").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DRIVER={Microsoft ODBC für Oracle};UID=apps;PWD=apps;SERVER=oap.world;", _
Destination:=Range("A1"))
.CommandText = "SELECT PER_ALL_PEOPLE_F.EMPLOYEE_NUMBER, PA_SEGMENT_VALUE_LOOKUPS.SEGMENT_VALUE FROM HR_ALL_ORGANIZATION_UNITS, PA_SEGMENT_VALUE_LOOKUPS, PER_ALL_ASSIGNMENTS_F, PER_ALL_PEOPLE_F WHERE HR_ALL_ORGANIZATION_UNITS.Name = PA_SEGMENT_VALUE_LOOKUPS.SEGMENT_VALUE_LOOKUP And PER_ALL_ASSIGNMENTS_F.ORGANIZATION_ID = HR_ALL_ORGANIZATION_UNITS.ORGANIZATION_ID And PER_ALL_PEOPLE_F.PERSON_ID = PER_ALL_ASSIGNMENTS_F.PERSON_ID AND PER_ALL_ASSIGNMENTS_F.EFFECTIVE_START_DATE <= TRUNC(sysdate, 'mm') AND PER_ALL_ASSIGNMENTS_F.EFFECTIVE_END_DATE >= LAST_DAY(sysdate) AND PER_ALL_PEOPLE_F.EMPLOYEE_NUMBER BETWEEN 10000 AND 19999 ORDER BY PER_ALL_PEOPLE_F.EMPLOYEE_NUMBER"
.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
End Sub
schaffe ich eine verbindung zu einer db. kann ich, nachdem ich die daten in excel habe, die verbindung auch wieder "kappen"?
irgendwie scheinen die zellen noch verknüpft zu sein.
liebe grüsse
andrea