würde gerne wissen, ob es möglich ist wenn man eine Excel-Datei speichert, dass dann automatisch eine Explorer-Ordner mit dem selben Namen erzeugt wird?
Vielen Dank vorab
Gruß Andreas
Option Explicit
Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal Pfad As String) As Long
Sub speichern()
'Ist das Verzeichnis nicht wie angegeben vorhanden, wird es angelegt.
Const sPfad As String = "C:\temp\test\test\test\"
MakeSureDirectoryPathExists sPfad
ActiveWorkbook.SaveAs sPfad & "Test", xlOpenXMLWorkbookMacroEnabled
End Sub
'Mit Einbindung der Library "Microsoft Scripting Runtime"
' und "Microsoft VB-Script Regular expressions 5.5"
'In VB-Editor unter Extras, Verweise
Sub MappeImEigeneFolder_speichern(WBName As String)
Dim FSO As New FileSystemObject
Dim FolderName As String
Dim FD As FileDialog
Const cBasisPfad = "C:\temp\" '"\" am Ende wichtig
If Not FSO.FolderExists(cBasisPfad) Then MsgBox "Verziechnis """ & cBasisPfad & """ nicht gefunden.": Exit Sub
Set FD = Application.FileDialog(msoFileDialogSaveAs)
FD.InitialFileName = cBasisPfad & wb.Name & ".xls"
If FD.Show Then
FolderName = Mid(FD.SelectedItems(1), 1, InStrRev(FD.SelectedItems(1), ".") - 1)
If Not FSO.FolderExists(FolderName) Then FSO.CreateFolder (FolderName)
Workbooks(WBName).SaveAs cBasisPfad & FolderName & "\" & FD.SelectedItems(1)
End If
End Sub
VG Yal
Sub ThisWorkbook_speichern()
MappeImEigeneFolder_speichern ThisWorkbook.Name
End Sub
Um eine Liste der gerade geöffneten Workbook zu sehen:
Sub Workbook_auflisten()
Dim msg, W
For Each W In Workbooks
msg = msg & W.Name
Next
MsgBox "Gerade geöffnete Workbooks: " & msg
End Sub
VG
Sub aa()
MkDir Environ("userprofile") _
& "\Desktop\SM" & Range("B2") _
& "-" & Range("J2") & "_" & Range("M2")
End Sub
Sub aa()
MkDir "X:\Vertrieb\Desktop\SM" & Range("B2") & "-" & Range("J2") & "_" & Range("M2")
End Sub
VG