Thema Datum  Von Nutzer Rating
Antwort
Rot Daten importieren aus anderer Excel Datei
 12.01.2017 13:30:43 Fabian
NotSolved
12.01.2017 17:25:05 Gast1731
NotSolved

Ansicht des Beitrags:
Von:
Fabian		 Datum:
12.01.2017 13:30:43		 Views:
1139		 Rating:
     
Antwort:
  Ja
Thema:
Daten importieren aus anderer Excel Datei

Hallo Leute habe gerade schon wieder ein Problem an dem ich schon lange überlegt

Ich habe mir eine Funktion geschrieben die Daten von einer Excel Datei in eine andere übertrat, mit einer File-Funktion. Dies Funktioniert auch nur möchte ich gerne noch das mir der Datei Pfad in eine TextBox überträgt wird, dass man weiß wo die Datei herkommt.

Hier mein Coding

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
btnBrowse_Click()                               
  Dim WBZiel As Workbook, ExportDatei As Variant
  Dim WBQuelle As Workbook, WSZiel As Worksheet
   
  Set WBZiel = ThisWorkbook
   
  Application.ScreenUpdating = False
   
  'DateiÖffnen Dialog anbieten
  ExportDatei = Application.GetOpenFilename("Excel-Dateien, *.xlsx;*.xls;*.xlsm*", , "Bitte die Datei zum Kopieren öffnen ...")
  ExportDatei = CStr(ExportDatei)
   
  If ExportDatei = "Falsch" Then Exit Sub
  'öffnen der ausgewählten Datei
  Set WBQuelle = Workbooks.Open(ExportDatei)
  'kopieren des Blattinhaltes und Schließen der Quell-Datei
  With WBQuelle
     .Sheets("Generierte Interfaceliste 1").range("A1:KT9000").Copy WBZiel.Sheets("Standartisierte_IL").range("A1")
     .Close savechanges:=False
  End With
  WBZiel.Sheets("Standartisierte_IL").Activate
   
  Application.ScreenUpdating = True
End Sub

Hoffe Ihr könnt mir helfen

Fabian

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Daten importieren aus anderer Excel Datei
 12.01.2017 13:30:43 Fabian
NotSolved
12.01.2017 17:25:05 Gast1731
NotSolved