Thema Datum  Von Nutzer Rating
Antwort
Rot Excel Druck Makro
 14.11.2007 08:36:27 paarrtyy
NotSolved
15.11.2007 08:28:21 jh
NotSolved
15.11.2007 10:21:41 paarrtyy
NotSolved

Ansicht des Beitrags:
Von:
paarrtyy		 Datum:
14.11.2007 08:36:27		 Views:
1805		 Rating:
     
Antwort:
  Ja
Thema:
Excel Druck Makro
Hi leute ich möchte ein Makro in Excel erstellen das alle Excel Dateien von einem Ordner ausliest und diese dann druckt jeweils ausdruckt.
hab folgendes SCRIPT erstell:

Sub Makro1()

Dim i As Long
Dim Bereich As Range
Dim Zelle As Range

Const verz = "c:\test"
ChDir verz

With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Execute

For i = 1 To .FoundFiles.Count

Workbooks.Open Filename:=.FoundFiles(i)
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
FEHLER FEHLER: Workbooks(.FoundFiles(i) ).Close SaveChanges:=False

Next i

End Sub

Es funktioniert auch soweit nur ich bekomm einen Fehler bei Workbooks(FILENAME).CLOSE weil ich dort eine Variable verwenden wenn ich dort den fixen Namen z.b. Workbooks("test.xls").close eingebe dann funktionierts. Kann mir da mal jemand helfen das dort die Variable auch funktioniert???

Vielen Dank

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel Druck Makro
 14.11.2007 08:36:27 paarrtyy
NotSolved
15.11.2007 08:28:21 jh
NotSolved
15.11.2007 10:21:41 paarrtyy
NotSolved