Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Tabellenblattexport + Import in bzw. aus geschlossener Datei - Importprobleme
#1
Hallo liebe VBA Cracks,

ich habe ein kleines Programm (Tabellenexport) geschrieben, welches ein aktives Tabellenblatt in die geschlossene Datei Speicher.xls verschiebt. Das Programm funktioniert einwandfrei. Was mir nicht gelingt ist der umgekehrte Fall. Ich möchte die in der Datei Speicher.xls abgespeicherten Tabellenblätter jeweils einzeln wieder in meine aktive Exceldatei einbinden.

Wer von Euch Experten weiß wie der Code dazu aussehen müsste?

Code:
Option Explicit

Sub Tabellenblattexport()
   'Exportiert das jeweils aktive Tabellenblatt in die Datei Speicher.xls
  
   Dim CopyFrom As Object
   Dim CopyTo As Object
   Dim CopyThis As Object
   Dim vbName As String
   Dim vbWas As Variant
   Dim xl As Object
  
   Set xl = CreateObject("Excel.Application")
   xl.Visible = False
  
   vbWas = ActiveSheet.Index
   vbName = ThisWorkbook.FullName
  
   Set CopyFrom = xl.Workbooks.Open(vbName)
   Set CopyThis = CopyFrom.Sheets(vbWas)
   Set CopyTo = xl.Workbooks.Open("C:\Test\Speicher.xls")
  
   CopyThis.Copy After:=CopyTo.Sheets(CopyTo.Sheets.Count)
  
   CopyTo.Save
   CopyTo.Close
   CopyFrom.Close
  
   Application.DisplayAlerts = False
   Sheets(vbWas).Delete
   Application.DisplayAlerts = True
  
End Sub


19:15 Uhr:
Code strukturiert dargestellt durch 3. Button von rechts im Beitragsformular: #
Moderator
?mage
to top
#2
Erstmal Hallo
das Problem ist bei Sehschwachen;Nichtkennern den/die Codezeilen zu betrachten, deswegen siehe hier:
 photo Raute_zps3ee56209.jpg

Nicht maßregelnd nur hinweisgebend.

man liest sich ... 21
?mage
[-] Folgende(r) 1 Benutzer sagt Danke an WergibtmirRat für diesen Beitrag:
Rabe
to top
#3
Hallo ratrad,
Was geht denn nicht?
Im Prinzip hast Du in Deinem Code alles nötige drin. Beim Import muss jedoch die Reihenfolge der Aktionen und Zuweisungen überdacht und korrigiert werden.
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
to top
#4
Hallo Andre,
den Code umzudrehen war natürlich meine erste Idee. Ich will also das Tabellenblatt Erik aus der Excel Datei Speicher.xls in meine aktuelle Dateie importieren. Das sieht dann so aus:

Code:
vbWas = "Erik"
vbName = ThisWorkbook.FullName
vbDatei = "C:\Verzeichnis\Speicher.xls"

Set CopyFrom = xl.Workbooks.Open("C:\Verzeichnis\Speicher.xls")
Set CopyThis = CopyFrom.Workbooks.Sheets(vbWas)
Set CopyTo = xl.Workbooks.Open(vbName)

Dann stoppt der Compiler bei dieser Zeile und ich weiß nicht wieso:
Set CopyThis = CopyFrom.Workbooks.Sheets(vbWas)

Ich verzweifel langsam an der ganzen Sache
to top
#5
Hallo ratrad,
da hast Du was doppelt gemoppelt. Excel hat ein Problem, weil Du das Workbook-Objekt nun zwei mal verwendest. CopyFrom ist ja das Workbook. Also nur
Set CopyThis = CopyFrom.Sheets(vbWas)
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Summenbildung - Externer Bezug bei geschlossener Arbeitsmappe PeterHoffmann 1 99 25.12.2016, 16:14
Letzter Beitrag: shift-del
  Daten aus anderer Excel Datei selektiert in neue Datei übernehmen Casual 5 212 08.12.2016, 15:35
Letzter Beitrag: Casual
  Excel VBA erweiterter Text import Simozerus 2 102 01.12.2016, 16:36
Letzter Beitrag: Gast 123
  Daten aus geschlossener Datei kopieren waldemarrrrr 1 166 22.11.2016, 20:36
Letzter Beitrag: AlterDresdner
  Daten aus CSV Import aufbereiten für weitere Nutzung Fuchur112 4 249 19.11.2016, 20:46
Letzter Beitrag: Gast 123
  Bezug zu geschlossener Datei tmessers 10 434 08.11.2016, 21:30
Letzter Beitrag: tmessers
  import aus selber Tabelle philosapiens 5 108 26.10.2016, 22:28
Letzter Beitrag: steve1da
  Externer Bezug bei geschlossener Arbeitsmappe DocMarley 14 555 22.10.2016, 12:55
Letzter Beitrag: Peter
  Daten aus geschlossener Datei suchen und einfügen michel34497 5 432 29.09.2016, 11:57
Letzter Beitrag: Steffl
  Excel Datei exportieren zu einer XML Datei FaDos 4 423 15.09.2016, 15:56
Letzter Beitrag: FaDos

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste