Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1680to1684
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
Inhaltsverzeichnis

Tabellenblatt in neue Datei kopieren

Tabellenblatt in neue Datei kopieren
09.03.2019 18:18:35
kuro
Hallo zusammen,
nach vielen vergeblichen Versuchen und Recherchen in diversen Foren, hoffe ich hier die Lösung zu finden.
Ich möchte eigentlich nur ganz einfach aus einer Excel-Mappe ein Tabellenblatt in eine neue eigenständige noch nicht vorhandene Datei kopieren.
Bei mir kommt bei Verwendung ständig der Fehler, dass die Datei nicht existiert, das ja auch richtig ist.
Hier mein Code, der in den Foren ähnlich dafür verwendet wurde.

path_file = ThisWorkbook.Path + "\"
Set QuellWs = ActiveSheet ' Auslesen der aktuellen Tabellennummer (Gesamttabelle)
sheetNr = Worksheets("A_Jgd").Index 'Auslesen der Tabellenblattnummer für Zielverzeichnis
Text1 = ZielWs.name
Text2 = QuellWs.name
filename = Text2 + "_" + Text1  ' Dateiname
filename = filename + ".csv"                ' Dateiendung
Workbooks.Open filename:=path_file + filename
ThisWorkbook.Activate
ActiveSheet.Move After:=Workbooks(filename).Sheets(1)
Sheets(1).Select
ActiveWindow.SelectedSheets.Delete
Workbooks(filename).Save
Workbooks(filename).Close
Application.DisplayAlerts = True

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt in neue Datei kopieren
09.03.2019 18:22:29
Hajo_Zi
benutze den Makrorecorder.
Der Code hat nichts mit der Aufgabe zu tun.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
AW: Tabellenblatt in neue Datei kopieren
10.03.2019 08:05:35
Sepp
Hallo Kuro,
als Beispiel.
Modul Modul2
Option Explicit 
 
Sub saveSheetAsFile() 
  Dim strPath As String, lngFormat As Long, strExt As String 
 
  strPath = ThisWorkbook.Path & "\" 
 
  ThisWorkbook.Sheets("Tabelle1").Copy 
 
  Call getFormatAndExtesion(ActiveWorkbook, lngFormat, strExt) 
 
  With ActiveWorkbook 
    Call .SaveAs(Filename:=strPath & .Sheets(1).Name & strExt, FileFormat:=lngFormat) 
    .Close 
  End With 
End Sub 
 
Private Sub getFormatAndExtesion(ByRef WKBook As Workbook, ByRef FileFormatNum As Long, ByRef FileExtStr As String) 
 
  With WKBook 
    If Val(Application.Version) < 12 Then 
      'Excel 97-2003 
      FileExtStr = ".xls": FileFormatNum = -4143 
    Else 
      'Excel 2007-2016 
      Select Case .FileFormat 
        Case 51: FileExtStr = ".xlsx": FileFormatNum = 51 
        Case 52: 
          If .HasVBProject Then 
            FileExtStr = ".xlsm": FileFormatNum = 52 
          Else 
            FileExtStr = ".xlsx": FileFormatNum = 51 
          End If 
        Case 56: FileExtStr = ".xls": FileFormatNum = 56 
        Case Else: FileExtStr = ".xlsb": FileFormatNum = 50 
      End Select 
    End If 
  End With 
 
End Sub 

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0


 ABCDEF
1Gruß Sepp
2
3

Anzeige

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige