Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Werte von Datei zu Datei kopieren
01.12.2005 15:04:20
Datei
Hallo,
ich habe eine geöffnete Excel Datei, aus der heraus ich
durch betätigen eines CommandButtons eine zweite Datei mit der
Endung .TRA öffne. Aus dieser zweiten Datei möchte ich Werte in die
erste Datei kopieren.
Mit dem Code den ich geschrieben habe klappt das öffnen der zweiten
Datei, aber beim kopieren gibt es Probleme.
Ich denke es liegt daran, das ich zwei geöffnete Dateien habe und
nicht eine Datei mit zwei Arbeitsblättern.
Ich habe beide Dateien auf dem Server abgelegt.
Die .txt Datei ist bei mir .TRA, die Endung wurde beim upload nicht
akzeptiert
Für Eure Hilfe im voraus schon einmal vielen Dank
Gruß
Frank
https://www.herber.de/bbs/user/28889.xls

Die Datei https://www.herber.de/bbs/user/28890.txt wurde aus Datenschutzgründen gelöscht

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte von Datei zu Datei kopieren
02.12.2005 10:48:50
Datei
Hallo ZAP
ich hab dein Klickprozedur etwas angepasst. So wie es war hatte das zweite Excelfile nicht den Namen import bzw. das Sheet nicht "import".
In VBA ist es besser wenn du fremde Arbeitsblätter genau mit Worksbooks und Workscheets ansprichst. Activate bzw. Select führt leicht zu Missverständnissen. Ich poste mal die modifizierte Prozedur:


      
Private Sub CommandButton1_Click()
Dim var As Variant
Dim sFiles As String
Dim ende As Integer
Dim ImportFileName As String
Dim ImportSheetName As String
 
    
    ChDir (
"c:\")
    
    sFiles = 
"TRA Files (*.TRA), *.,"
    var = Application.GetOpenFilename(sFiles)
    
If var = False Then
        
Exit Sub
    
End If
    Workbooks.OpenText FileName:=var, Origin:= _
        xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, Comma:=
True, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1))
     
    ImportFileName = ActiveWorkbook.Name
    ImportSheetName = Left(ImportFileName, Len(ImportFileName) - 4)
 
    MsgBox 
"Der Kopiervorgang kann eine Weile dauern.", vbExclamation
   
    ende = Workbooks(ImportFileName).Worksheets(ImportSheetName).Cells(Rows.Count, 2).End(xlUp).Row
    
    Workbooks(ImportFileName).Worksheets(ImportSheetName).Range(
"a3:a" & ende).Copy Destination:=ThisWorkbook.Worksheets("blanko").Range("a11:a" & ende + 8)
    Workbooks(ImportFileName).Worksheets(ImportSheetName).Range(
"B3:B" & ende).Copy Destination:=ThisWorkbook.Worksheets("blanko").Range("B11:B" & ende + 8)
    Workbooks(ImportFileName).Close SaveChanges:=
False
   
MsgBox 
"fertig", vbInformation
                
End Sub
 


Ich hoffe ich konnte dir helfen
Gruss
Daniel
Anzeige
AW: Werte von Datei zu Datei kopieren
03.12.2005 10:41:13
Datei
Hallo Daniel,
vielen Dank für deine Hilfe.
Ich habe deine Lösung nicht getestet,
da ich durch Suche im Forum ein ähnliches
Problem gefunden hatte, was mir weiter geholfen
hat. Trotzdem noch einmal vielen Dank.
Gruß
Frank

202 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige