PDA

Vollständige Version anzeigen : Probleme mit ActiveWorkbook.Path


Ingo Mergl
01.08.2012, 14:01
Hi,

ich habe folgendes Problem beim abspeichern meiner Tabellen.

In meiner Grundtabelle die auf einem Netzwerk liegt, werden die Daten mittels VBA in einzelne Tabellenblätter sortiert und anschließend als einzelne Dateien unter dem Namen des Tabelleblattes abgespeichert.
Ich benutze dazu folgenden Code:
Public Sub Tabellen_speichern()

Dim Pfad As String
Dim wks As Worksheet
Dim neuName As String


Pfad = ActiveWorkbook.Path
neuName = ActiveSheet.name


Application.ScreenUpdating = False
ActiveSheet.Copy


ActiveWorkbook.SaveAs Filename:=Pfad & neuName & ".xlsx"
Application.ScreenUpdating = True
ActiveWorkbook.Close
End Sub

Da funktioniert auch eigentlich, aber er speichert mir die Dateien immer ein Verzeichnis über dem gewünschten.

Also, meine Datei liegt unter

H:\Daten\Excel\Liste\Grunddaten.xlsx

gespeichert werden die Dateien aber unter

H:\Daten\Excel\

Wäre super wenn mir jemand helfen könnte.

Vielen Dank
Gruß

mücke
01.08.2012, 14:40
Moin Ingo,

bei mir funktioniert es so:
Option Explicit

Public Sub Tabellen_speichern()

Dim Pfad As String
Dim wks As Worksheet
Dim neuName As String

Pfad = ActiveWorkbook.Path
neuName = ActiveSheet.Name

Application.ScreenUpdating = False
ActiveSheet.Copy

ActiveWorkbook.SaveAs Filename:=Pfad & "\" & neuName & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Application.ScreenUpdating = True
ActiveWorkbook.Close
End Sub

Ingo Mergl
01.08.2012, 14:52
Moin Ingo,

bei mir funktioniert es so:
Option Explicit

Public Sub Tabellen_speichern()

Dim Pfad As String
Dim wks As Worksheet
Dim neuName As String

Pfad = ActiveWorkbook.Path
neuName = ActiveSheet.Name

Application.ScreenUpdating = False
ActiveSheet.Copy

ActiveWorkbook.SaveAs Filename:=Pfad & "\" & neuName & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Application.ScreenUpdating = True
ActiveWorkbook.Close
End Sub

Vielen Dank !!!

Was würde ich nur ohne DICH machen !!