Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler '1004' bei AddIn
03.07.2019 14:18:08 S.
NotSolved
04.07.2019 15:28:14 Gast95447
NotSolved

Ansicht des Beitrags:
Von:
S.
Datum:
03.07.2019 14:18:08
Views:
41
Rating: Antwort:
  Ja
Thema:
Laufzeitfehler '1004' bei AddIn
Hallo, ich habe folgendes Code für mein Makro (Funktion: Alle Tabellen von ausgewählten Dateien in 1 Datei zusammenfügen)
Ich mache das wieder mit einem AddIn, ohne funktioniert es, aber wenn ich es als AddIn ausführe kommt folgende Meldung:

Die Methode 'Copy' für das Objekt '_Worksheet' ist fehlgeschlagen (Laufzeitfehler '1004':)
Beim Debuggen verweist er auf folgende Zeile:
wksT.Copy wbkZiel.Worksheets(wbkZiel.Worksheets.Count)

kann mir da jemand helfen? Bzw. würd ich hier noch zusätzlich gerne das der Dateiname der ausgewählten Dateien dann als Tabellenname übernommen wird (am Besten wäre Ursprungsdateiname+Ursprungstabellenname)

Sub AlleSheetsAusGewaehltenMappenInEineMappe(control As IRibbonControl)
'GetOpenFileName Dialog: auch zur mehrfach Auswahl von Dateien
 'es wird der Filename mit dem Path zurückgegeben
 'Zur Mehrfachauswahl einzeln: Strg Taste gedrückt halten und Files anklicken
 'oder Shift Taste gedrückt halten und erste + letztes File anclicken
 'Wird Multiselect verwendet gibt die GetOpenFileName ein Array zurück
  
 'code kann ggf. mehrfach ausgeführt werden bis zB alle Unterordner nacheinander ereicht wurden
 Dim vntPathAndFileNames As Variant 'kein String !
 Dim strPathAndFile As String
 Dim lngI As Long
 Dim wbkMappe As Workbook
 Dim wksT As Worksheet
 Dim wbkZiel As Workbook

Set wbkZiel = ActiveWorkbook 'Beispiel ggf. anpassen

vntPathAndFileNames = Application.GetOpenFilename( _
    FileFilter:="Excel Files (*.xlsx), *.xlsx", _
    Title:="Wählen sie die gewünschten Dateien aus (mit STRG). mit STRG-A wählen sie alle Dateien aus", _
    MultiSelect:=True)
If VarType(vntPathAndFileNames) = vbBoolean Then
  MsgBox "Abgebrochen!"
Else
 For lngI = LBound(vntPathAndFileNames) To UBound(vntPathAndFileNames)
  strPathAndFile = vntPathAndFileNames(lngI)
  Set wbkMappe = Application.Workbooks.Open(strPathAndFile)
  For Each wksT In wbkMappe.Worksheets
   wksT.Copy wbkZiel.Worksheets(wbkZiel.Worksheets.Count)
  Next
  wbkMappe.Close False
 Next
End If

End Sub

LG S.

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler '1004' bei AddIn
03.07.2019 14:18:08 S.
NotSolved
04.07.2019 15:28:14 Gast95447
NotSolved