Speicherpfad innerhlab eines Macros



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Speicherpfad innerhlab eines Macros
von: jochen
Geschrieben am: 08.06.2002 - 16:41:50

hallo

mit welcher variablen kann man innerhalb eines macros
den speicher pfad fuer eine datei abfragen?

z.b ueber ein makro soll eine datei erzeugt werden.
nun nimmt er beim macro aufzeichnen immer den absoluten pfad.

wenn nun die excel datei verschoben wird,
wir die datei trotzdem im absoluten pfad (waerend der macro erstellung) gespeichert.

ich haette es allerdings gerne so
das er immer relativ zur excel datei den export speichert

danke im voraus

gruss


nach oben   nach unten

Re: Speicherpfad innerhlab eines Macros
von: Hajo
Geschrieben am: 08.06.2002 - 16:44:32

Hallo

Jochen so ganz komme ich mit Deiner Beschreibung nicht klar. Den Phad der Datei mit Makro erhälts Du mit


Phad = ThisWorkbook.Path

Gruß Hajo


nach oben   nach unten

Re: Speicherpfad innerhlab eines Macros
von: jochen schutzbach
Geschrieben am: 08.06.2002 - 17:03:24

so sieht das macro aus
und nun muss der pfad nicht c:\katalog heissen
sondern nur relativ zur position der excel

d.h wenn di tabelle nicht unter c:\katalog ist sondern wo anderst soll er das automatisch merken.

Columns("B:T").Select
Range("L1").Activate
Selection.EntireColumn.Hidden = True
Columns("AR:AT").Select
Selection.EntireColumn.Hidden = True
ActiveWorkbook.SaveAs FileName:= _
"c:\katalog\daten\wg1_s1_de.txt", FileFormat:=xlTextPrinter _
, CreateBackup:=False
Cells.Select
Selection.EntireColumn.Hidden = False
Range("I25").Select
ActiveWorkbook.SaveAs FileName:= _
"c:\katalog\artikel\wg1_s1_de.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub


danke im voraus

gruss

nach oben   nach unten

Re: Speicherpfad innerhlab eines Macros
von: Hajo
Geschrieben am: 08.06.2002 - 17:12:43

Hallo Jochen


Sub Test()
    Dim Phad As String
    Columns("B:T").EntireColumn.Hidden = True
    Columns("AR:AT").EntireColumn.Hidden = True
    Phad = ThisWorkbook.Path
    ActiveWorkbook.SaveAs Filename:= _
    Phad & "wg1_s1_de.txt", FileFormat:=xlTextPrinter _
    , CreateBackup:=False
    Cells.EntireColumn.Hidden = False
    ActiveWorkbook.SaveAs Filename:= _
    Phad & "wg1_s1_de.xls", FileFormat:=xlNormal, _
    ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Gruß Hajo

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "vergleichen"