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
  Excel VBA erweiterter Text import Simozerus 2 33 01.12.2016, 16:36
Letzter Beitrag: Gast 123
  Daten aus geschlossener Datei kopieren waldemarrrrr 1 58 22.11.2016, 20:36
Letzter Beitrag: AlterDresdner
  Daten aus CSV Import aufbereiten für weitere Nutzung Fuchur112 4 116 19.11.2016, 20:46
Letzter Beitrag: Gast 123
  Bezug zu geschlossener Datei tmessers 10 212 08.11.2016, 21:30
Letzter Beitrag: tmessers
  import aus selber Tabelle philosapiens 5 56 26.10.2016, 22:28
Letzter Beitrag: steve1da
  Externer Bezug bei geschlossener Arbeitsmappe DocMarley 14 178 22.10.2016, 12:55
Letzter Beitrag: Peter
  Daten aus geschlossener Datei suchen und einfügen michel34497 5 248 29.09.2016, 11:57
Letzter Beitrag: Steffl
  Excel Datei exportieren zu einer XML Datei FaDos 4 281 15.09.2016, 15:56
Letzter Beitrag: FaDos
  Verlinkung aus geschlossener Datei respecter11 1 262 03.09.2016, 08:30
Letzter Beitrag: schauan
  automatischer csv import in Excel Daror 2 139 10.08.2016, 19:08
Letzter Beitrag: schauan

Gehe zu:


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