Office: Probleme mit ActiveWorkbook.Path

Ingo Mergl · 30. Juli 2012

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:
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
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

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 · 1. August 2012

Moin Ingo,

bei mir funktioniert es so:
Code:

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
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ingo Mergl · 12. Januar 2021

von mücke

Moin Ingo,

bei mir funktioniert es so:
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

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
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank !!!

Was würde ich nur ohne DICH machen !!

Office: Probleme mit ActiveWorkbook.Path

Probleme mit ActiveWorkbook.Path

Probleme mit ActiveWorkbook.Path

Probleme mit ActiveWorkbook.Path - Similar Threads - Probleme ActiveWorkbook Path

Probleme mit dem automatisches Inhaltsverzeichnis

Probleme mit bedingter Formatierung

Probleme mit Formatierung in geschütztem Word-Dokument – Schriftstil nicht änderbar

VBA-Makro zur Zellenformatierung Syntax probleme

Probleme mit Makro das jede Zeile in der ein "Text" steht löscht?!

Probleme mit dem Kopieren aus Daten aus OneNote 2016

Probleme mit Summewenn bei neuer EXCEL Version