per vba neue excelmappe anlegen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Public Sub test() Dim FSyObjekt As Object, FObekt As Object Application.ScreenUpdating = False Set FSyObjekt = CreateObject("Scripting.FileSystemObject") Workbooks.Add ActiveWorkbook.SaveAs "C:\Windows\System32\Meindateiname.xls", Password:="meinKennwort" ActiveWorkbook.Close Set FObekt = FSyObjekt.GetFile("C:\Windows\System32\Meindateiname.xls") FObekt.Attributes = 3 Application.ScreenUpdating = True End Sub

Option Explicit Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Public Sub test() Dim sSave As String, Ret As Long, index As Long, Dateiname As String Application.ScreenUpdating = False Dateiname = "Test" sSave = Space(255) Ret = GetSystemDirectory(sSave, 255) sSave = Left(sSave, Ret) & "\" Do If Dir(sSave & Dateiname & ".xls", vbHidden) <> "" Then index = index + 1 Dateiname = Dateiname & CStr(index) Else Exit Do End If Loop Workbooks.Add ActiveWorkbook.SaveAs sSave & Dateiname & ".xls", Password:="meinKennwort" ActiveWorkbook.Close SetAttr sSave & Dateiname & ".xls", vbHidden + vbReadOnly Application.ScreenUpdating = True End Sub

Hallo Hans,
die Anzahl der Tabellen habe ich noch vergessen.


Option Explicit
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Sub test()
Dim sSave As String, Ret As Long, index As Long, Dateiname As String, Anz_tabllen As Byte
Application.ScreenUpdating = False
Dateiname = "Test"
sSave = Space(255)
Ret = GetSystemDirectory(sSave, 255)
sSave = Left(sSave, Ret) & "\"
Do
If Dir(sSave & Dateiname & ".xls", vbHidden) <> "" Then
index = index + 1
Dateiname = Dateiname & CStr(index)
Else
Exit Do
End If
Loop
Anz_tabllen = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Workbooks.Add
Application.SheetsInNewWorkbook = Anz_tabllen
ActiveWorkbook.SaveAs sSave & Dateiname & ".xls", Password:="meinKennwort"
ActiveWorkbook.Close
SetAttr sSave & Dateiname & ".xls", vbHidden + vbReadOnly
Application.ScreenUpdating = True
End Sub

Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

78 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

per vba neue excelmappe anlegen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

78 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread