Daten aus anderer Quelle importieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Vielleicht muss ich es etwas einfacher machen ! :-) (bin zu blöde)

- Filepfad = C:\Daten\Bloomberg\
- Filenamen = KW-1-Bloomberg.xls - KW-52-Bloomberg.xls

- FilepfadOut = C:\Daten\
- OutputFile = Test.xls

- Ich starte das Macro aus dem File "Test.xls" ?
- Die Werte werden in A1,A2 A3 A4 aufgeliste ?

= Dein Code ============

Sub Werte_zusammentragen()

Dim appOffice As Object
Dim Service As Byte, KW As Byte

On Error Resume Next
Application.ScreenUpdating = False

For Service = 1 To 5
For KW = 1 To 52
Set appOffice = GetObject("C:\Daten\Bloomberg\" & Format(Service, "00") & _
"\KW-" & KW & "-Service" & Format(Service, "00") & ".xls")
With appOffice
Cells(Cells(65536, Service).End(xlUp).Row + 1, Service) = _
.Sheets(1).Range("Y38")
.Close
End With
Next KW
Next Service

Set appOffice = Nothing
Application.ScreenUpdating = True
End Sub

.Sheets(1).Range("Y38")

===============

Sorry verstehe nicht was vorgeht, könntest Du bitte, dein Code so abändern, das ich anhand meiner Input-Angaben meher Licht ins DUNKLE bekomme:

Besten Dank im voraus

Hi Chris und nochmal Danke,

habe dein Script 1:1 ausprobiert, sehe aber leider kein Ergebnis, darum habe ich es etwas vereinfachen wollen.

anbei habe ich mal die genaue strukturen aufgelistet es würde
mich riesig freuen wenn du den script so ändern könntest, dass
dein script mit meinen angaben läuft, du weisst ja ich bin
ein blutiger anfäger und sehe wirklich nicht ganz durch :-)

besten dank

= nochmals das Problem ====

Ich habe folgendes Problem:

Ich muss für 5 verschiedene Dienstleistungen, Quartals / Jahresstatistiken erstellen.
Diese Statistiken basieren auf so genannten Wochenfiles (pro Dienstleistungen also 52-Files).
Jedes dieser Files liegt in einem separaten Verzeichnis und weist einen errechneten Wert in
einem Ergebnissfeld (z.B. 99.78% im Feld Y38) auf.

Frage:
Gibt es eine VBA-Lösung, wie ich diese einzelnen Werte (und nur den Wert) via
einen Button aus den jeweiligen Ergebnissfeldern in ein neues File kopieren/importieren
kann ohne jedes Mal das Wochenfile von Hand öffnen zu müssen.

Bitte denkt daran, dass ich ein blutiger Anfänger bin

- Input Filepfad (ex Service-Verzeichnisse)
- C:\Daten\Bloommberg\
- C:\Daten\Datastream\
- C:\Daten\Infoscreen\
- C:\Daten\Reuters\

- Input File (ex Dienstleistungen)
- KW-01-Bloomberg.xls (KW-01 - KW-52)
- KW-01-Datastream.xls (KW-01 - KW-52)
- KW-01-Infoscreen.xls (KW-01 - KW-52)
- KW-01-RMM.xls (KW-01 - KW-52)
- KW-01-Xtra.xls (KW-01 - KW-52)

- Output Filepfad = C:\Daten\

- Output File = Verfügbarkeit.xls

- Die Werte
- Die Werte für die Bloomberg Dienstleistungen stehen in der Zelle A1 - A52
- Die Werte für die Datastream Dienstleistungen stehen in der Zelle B1 - B52
- Die Werte für die Infoscreen Dienstleistungen stehen in der Zelle C1 - C52
- Die Werte für die Reuters Dienstleistungen stehen in der Zelle D1 - D52

Beliebteste Forumthreads (12 Monate)

Daten aus anderer Quelle importieren

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus anderer Quelle importieren

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread