Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1252to1256
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

AW:Ordern und Datei anlegen von Josef

AW:Ordern und Datei anlegen von Josef
Josef
Hallo Josef,
du hast mir gestern frendlicher weise für mein Problem diesen Code gschriegen,
wenn ich den jetzt in mein Projekt reikopieren kommt folgender Laufzeitfehler:
VBA-Projekte und XML-Blätter können in einer Arbeitsmappe ohne MAKROS nicht gespeichert werden!
Kannst du mir das Problem noch lösen?
Gruß Paul
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Private Declare

Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

Sub Akte_anlegen()
Dim strFilePath As String, strRoot As String
strRoot = Sheets("StDa").Range("A19").Text
If Right(strRoot, 1)  "\" Then strRoot = strRoot & "\"
With Sheets("Daten")
strFilePath = strRoot & .Range("L8").Text & "\" & .Range("C12").Text & _
.Range("K2").Text & " " & .Range("O2").Text & ".xls"
End With
If MakeSureDirectoryPathExists(strFilePath)  0 Then
ActiveWorkbook.SaveAs Filename:=strFilePath
Else
MsgBox "Fehler!"
End If
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: AW:Ordern und Datei anlegen von Josef
18.03.2012 20:12:49
Josef
Hallom Paul,
Du solltest die Datei als XLSM speichern.

AW: AW:Ordern und Datei anlegen von Josef
18.03.2012 20:14:33
Josef
Hallo Hajo,
da gibt es leider das Problrm dass das Projekt in einem Netzwerk läuft in den einzelne User noch mit Excel 03 arbeiten
Gruß Paul
AW: AW:Ordern und Datei anlegen von Josef
18.03.2012 20:21:11
Josef
Hallo Paul,
dann speichere sie im alten 97-2003 Format.
Alternativ gibt es auch von MS das Kompatibilitäts_Paket.
Ich habe das nicht installiert und kann nicht genau sagen was dann die User
mit ihrem 2003 an der 2007-Mappe tun können.
Gruß
Reinhard
AW: AW:Ordern und Datei anlegen von Josef
18.03.2012 20:46:40
Josef
Hallo,
sorry, ich hoffe ich nerv nicht, aber ich denke ich muß mein Proplem noch mal von vorne schildern, ich hab hiir im Forum eine code bekommen mit den ich eine Datei in allen Excel.Versionen als XLS anlegen kann. Jetzt möchte ich nicht nur die Datei variabel anlegen sondern vorher auch noch ein Verzeichnis für diese Datei das in den Verzeichnis angelgt wird welches in den Feld StDa!A19 definiert ist.
Beispiel anbei
https://www.herber.de/bbs/user/79431.xls
Gruß
Paul
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige