Thema Datum  Von Nutzer Rating
Antwort
Rot String im SaveAs Method
 05.09.2008 12:32:11 Jan
NotSolved
05.09.2008 14:09:56 Holger
NotSolved

Ansicht des Beitrags:
Von:
Jan		 Datum:
05.09.2008 12:32:11		 Views:
1751		 Rating:
     
Antwort:
  Ja
Thema:
String im SaveAs Method
Sub SaveOpenWorkbooks()

Hallo!

Der Code funktioniert so wie er unten steht.
Ich wollte aber fragen ob es eine effizientere/kuerzere Moeglichkeit gibt den untenstehenden Code zu schreiben (vielleicht ein For Loop?). Ich moechte 18 Workbooks in einem File namens "Forcing Functions 15" abspeichern. Ich habe unten der kuerze halber nur 2 von 18 "Cases" aufgelistet. Das Problem ist, dass ich fuer jedes einzelne Workbook (im Code unten: HCB.xls und alpha-HCH.xls), das ich speichern moechte, die SaveAs Methode neu schreiben muss damit der Code funktioniert. Ich habe versucht eine "StringName()" Variable zu definieren, um dort alle 18 Workbooks zu speichern. Das funktioniert auch normalerweise...aber wenn ich das in diesem Fall tue, dann speichert es nicht mehr HCB.xls fuer das Workbook, sondern speichert StringName.xls.
StringName() scheint in diesem Fall kein Platzhalter fuer HCB.xls und alpha-HCH.xls zu sein. Es uebernimmt einfach diese StringName Variable...Wiss ihr wie man dieses Problem loest? Danke im voraus fuer die Antwort...Liebe Gruesse, Jan

Select Case LRTP

Case 1
Windows(Output$).Activate
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Bojan Gasic\Desktop\Project Generic Model\High Pressure Scenarios\Scenario 1\Forcing Functions 15\HCB.xls" _

Case 2
Windows(Output$).Activate
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Bojan Gasic\Desktop\Project Generic Model\High Pressure Scenarios\Scenario 1\Forcing Functions 15\alpha-HCH.xls" _

usw. bis

Case 18



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 String im SaveAs Method
 05.09.2008 12:32:11 Jan
NotSolved
05.09.2008 14:09:56 Holger
NotSolved