Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

index außerhalb der gültigen bereich bereich

Betrifft: index außerhalb der gültigen bereich bereich von: ricardillo
Geschrieben am: 10.09.2004 11:00:15

ich habe ein text datei der mit excel geöffnet wird.

diese geöffnete datei soll in ein anderes copiert werden, leider geht das nicht und ich verstehe nicht warum.

Sub einlesen()

    Workbooks.OpenText Filename:="H:\rtw1\fit\intern\fit_2i\50_Equipment\5020_Handler\Retestauswertung\bin5_auswertung_quelle.txt", _
        Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=True, _
        Comma:=True, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1))
    Cells.Select
    Selection.Copy
    Windows("H:\rtw1\fit\intern\fit_2i\50_Equipment\5020_Handler\Retestauswertung\bin5_auswertung_neu.xls").Activate
    Sheets("bin5_auswertung_datei").Select
    Cells.Select
    ActiveSheet.Paste
    Windows("bin5_auswertung_quelle.txt").Activate
    ActiveWorkbook.Close
End Sub

  


Betrifft: AW: index außerhalb der gültigen bereich bereich von: Uduuh
Geschrieben am: 10.09.2004 12:56:30

Hallo,
ist das überhaupt offen?
Windows("H:\rtw1\fit\intern\fit_2i\50_Equipment\5020_Handler\Retestauswertung\bin5_auswertung_neu.xls").Activate
Außerdem darfst du im Activate nur den Dateinamen angeben.
Windows("bin5_auswertung_neu.xls").Activate
(Ich würde immer Workbooks("bin5_auswertung_neu.xls").Activate benutzen)
Wenn es nicht geöffnet ist, dann:
WorkBooks.open ("H:\rtw1\fit\intern\fit_2i\50_Equipment\5020_Handler\Retestauswertung\bin5_auswertung_neu.xls")

Gruß aus'm Pott
Udo


 

Beiträge aus den Excel-Beispielen zum Thema "index außerhalb der gültigen bereich bereich "