Hallo,
an alle, die sich genauso wie ich mit dem Sch… VBA/Excel rumärgern müssen
Wie kann ich den Namen eines zu öffnenden /geöffneten Templates ändern
Öffnen geht mit
Workbooks.Add Template:=„D:\win32app\Microsoft Office\Vorlagen\HALLO.XLT“
Dann habe ich ein neues Workbook mit Namen HALLO1.XLS
Wie kann ich den Namen ändern (Die Methode SaveAs möchte ich nicht verwenden)?
Vielen Dank,
Manfred
Hallo,
an alle, die sich genauso wie ich mit dem
Sch… VBA/Excel rumärgern müssen
Aber,Aber - Das Leben ist zu kurz für einen Sch…Job! 
)
Wie kann ich den Namen eines zu öffnenden
/geöffneten Templates ändern
…
Wie kann ich den Namen ändern (Die
Methode SaveAs möchte ich nicht
verwenden)?
Warum nicht „SaveAs“?
Alternativ gibt es in allen Basic-Sprachen
das Statment „NAME“. Damit können File umbenannt werden…
Grüsse Peter
Warum nicht „SaveAs“?
Alternativ gibt es in allen
Basic-Sprachen
das Statment „NAME“. Damit können File
umbenannt werden…Grüsse Peter
Nur leider ist Workbook.Name eine Read-only Eigenschaft.
Wenn Bei SaveAs die Datei schon existiert kommt ein Bestätigungsfeld „Wollen Sie …überschreiben“
Bei „Nein“ oder „Abbrechen“ stürtzt das Makro ab
Manfred
Nur leider ist Workbook.Name eine
Read-only Eigenschaft.
Gemeint war das VBA-Statement NAME, nicht die Name-Eigenschaft…
Wenn Bei SaveAs die Datei schon existiert
kommt ein Bestätigungsfeld „Wollen Sie
…überschreiben“
Bei „Nein“ oder „Abbrechen“ stürtzt das
Makro ab
Alternativ könntest du die Datei vorher löschen (und den dabei möglicherweise auftretenden Fehler ignorieren):
On Error Resume Next
Kill MyFile
On Error Goto Er
Reinhard
Gemeint war das VBA-Statement NAME, nicht
die Name-Eigenschaft…
Da muß ich zuerst unter einem dummy-Namen sichern (und eine bestehende dummy-Datei zuvor löschen), dann die Datei umbenennen und dann wieder laden.
Geht natürlich aber gibt´s nichts einfacheres ?
Alternativ könntest du die Datei vorher
löschen (und den dabei möglicherweise
auftretenden Fehler ignorieren):
Die bereits existierende Datei enthält evtl. wichtige Daten!
Alternativ könntest du die Datei vorher
löschen (und den dabei möglicherweise
auftretenden Fehler ignorieren):Die bereits existierende Datei enthält
evtl. wichtige Daten!
OK, dann prüfe halt auf Vorhandensein ab, z.B. indem du die Datei vorher zu öffnen versuchst:
On Error Resume Next
Open MyFile For Input As #1
ErN = Err.Number
Close #1
On Error goto Er
If ErN = 0 Then
MsgBox "Datei schon vorhanden"
Else
'Speichern
End If
Reinhard