Herbers Excel-Forum - das Archiv

Problem mit Dateiname

Bild

Betrifft: Problem mit Dateiname
von: Christine

Geschrieben am: 17.03.2005 20:26:46
Hallo,
ich habe ein Problem mit dem Dateinamen. Ich moechte etwas zwischen mehreren Exceldateien kopieren, kann also nicht "ActiveWorkbook" oder so nehmen.
Nun habe ich folgendes gemacht:
Dim filename As String
Dim sheetname As String
filename = ActiveWorkbook.Name
sheetname = ActiveSheet.Name
sheetname.Unprotect
hier bekomme ich aber bereits eine Fehlermeldung "Invalid Qualifier". Wie kann ich denn meine Strings filename und sheetname verwenden?
Vielen Dank schon mal in Voraus :)
Christine
Bild

Betrifft: AW: Problem mit Dateiname
von: Mischa Richter

Geschrieben am: 17.03.2005 20:32:41
hi,
mit: sheetname = ActiveSheet.Name
haste in der variablen ja nur den string, kein objekt, mit demdu arbeitenkannst.
versuche folgendes:
Sub t1()
Dim xlwkb As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlwkb = ActiveWorkbook
'MsgBox xlwkb.Name
Set xlSheet = ActiveWorkbook.ActiveSheet
'MsgBox xlSheet.Name
xlSheet.Unprotect
Set xlwkb = Nothing
Set xlSheet = Nothing
End Sub

Bild

Betrifft: AW: Problem mit Dateiname
von: Christine
Geschrieben am: 17.03.2005 21:03:02
Vielen Dank Mischa! :)
Es funktioniert. Da waere ich im Leben nicht drauf gekommen.
LG
Christine
Bild

Betrifft: ActiveWorkbook.Sheets(sheetname).Unprotect
von: Luc :-?
Geschrieben am: 17.03.2005 22:07:33
Hallo Christine & Mischa,
das würde reichen. Es fehlte ja nur das Objekt wie bereits erkannt!
Gruß Luc
 Bild
Excel-Beispiele zum Thema "Problem mit Dateiname"
Verschnittproblem mit Solver lösen Dateinamen filtern
Dateiname aus dem vollen Namen extrahieren Dateiname vorgeben bei Druck in Printdatei
Dateinamen in Listbox Dateinamen in Tabelle einlesen
Dateinamen eines Verzeichnisses als HTML-Datei Grafik nach Eingabe des Dateinamens einfügen
Dateinamen in TabStrip-Elemente einlesen Datei entsprechend der Eingabe des Dateinamens öffnen