mit VBA-Makro: Einzelnes Excel-Tabellenblatt als *.prn Datei exportieren?

JonnyHeart · 13.12.2006

Ich habe ein Excelfile mit meheren Tabellenblättern und möchte nun Tabelle1 als eigenständige Datei per Makro exportieren, da diese ´mit einem anderen Programm weiterverarbeitet wird.

Wie funktioniert das ?? geht das auch ohne zuvor eine externe Mappe anzulegen ??

Folgendes habe ich bisher geschafft:
---------------------------------------------
Private Sub ()
Application.EnableEvents = False
Sheets(Tabelle1).Copy
Application.EnableEvents = True
End Sub

--> NUn kann umständlicherweise über Datei - Speichern unter usw....gespeichert werden...

Mit diesem Makro wird das aktuelle Worksheet Tabelle1 in einer neuen Mappe geöffnet
(öffnen in neuer Mappe sollte eigentlich vermieden werden !!)

HIER FÄNGT DAS PROBLEM AN...

Das ganze dauert viel zu lange und ist zu umständlich..#

Freu mich über Hilfe !

Gruß

JONNY

JonnyHeart · 17.12.2006

selbst nach einer ausführlichen WebRecherche und zahlreichen Telefonaten gibts keine Erfolge zu vermelden...

Das muss doch möglich sein ?!?!?!?? :| :| :| :| :|

Greetx

JONNY

Matjes · 18.12.2006

Hallo JonnyHeart,

vielleicht probierst du es mal wie folgt. Den Zielpfad und -namen mußt du noch anpassen.

Gruß Matjes

Code:

Private Sub Tabelle1AlsPRNSpeichern()

  Dim wb As Workbook, ws As Worksheet
  Dim x As Long
  
 ->zunaechst erstaml sichern
  Set wb = ActiveWorkbook
  wb.Save
  
 ->Dann Tabelle1 alle Formel raus
  Set ws = wb.Worksheets(Tabelle1)
  Application.ScreenUpdating = False
 ->kopieren
  ws.Cells.Select
  Selection.Copy
 ->Werte einfügen
  ws.Range(A1).Select
  Selection.PasteSpecial Paste:=xlValues, _
                         Operation:=xlNone, _
                         SkipBlanks:=False, _
                         Transpose:=False

 ->alle Tabellenblätter bis auf Tabelle1 löschen
  Application.DisplayAlerts = False
  For x = wb.Worksheets.Count To 1 Step -1
    If wb.Worksheets(x).Name &lt;> Tabelle1 Then wb.Worksheets(x).Delete
  Next
  
 ->jetzt ist nur noch Tabelle1 in der Mappe
  
 ->als prn speichern
  wb.SaveAs _
    FileName:=wb.Path &amp; Application.PathSeparator &amp; MeineTabelle1.prn, _
    FileFormat:=xlTextPrinter, _
    CreateBackup:=False
  
 ->Ohne Speichern schliessen
  wb.Close Savechanges:=False
AUFRAEUMEN:
  Set wb = Nothing: Set ws = Nothing
End Sub

JonnyHeart · 18.12.2006

Hallo Matjes,

RESPEKT !!!!!

Vielen Dank für deine Hilfe !! es klappt 1a !

Ernüchternd ist nur, dass ich niemals auf eine Lösung wie diese gekommen wäre..

FROHE WEIHNACHTEN !

Gruß
JONNY

mit VBA-Makro: Einzelnes Excel-Tabellenblatt als *.prn Datei exportieren?

JonnyHeart

JonnyHeart

Matjes

JonnyHeart

mit VBA-Makro: Einzelnes Excel-Tabellenblatt als *.prn Datei exportieren?

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums