https://bugs.documentfoundation.org/show_bug.cgi?id=139936
--- Comment #5 from Harald Langheinrich <hal71...@gmail.com> ---
Created attachment 169192
--> https://bugs.documentfoundation.org/attachment.cgi?id=169192&action=edit
This file was create by makro
Sub Settings_sichern()
Dim NewWorkbook
dim BasisVerzeichnis
dim Settings_DateiName
BasisVerzeichnis = ActiveWorkbook.Path & GetPathSeparator()
Settings_DateiName = "Settings.xlsx"
'make new workbook
NewWorkbook= Application.Workbooks.Add
'give it a name
NewWorkbook.SaveAs filename:= BasisVerzeichnis & Settings_DateiName ,
CreateBackup:=True'give it a name
'put data in
Workbooks(Settings_DateiName).Worksheets(1).Name="Settings-Daten"
Workbooks(Settings_DateiName).Worksheets(1).Cells(1,1).value =
"AblageVerzeichnis = "
Workbooks(Settings_DateiName).Worksheets(1).Cells(1,2).value =
AblageVerzeichnis
Workbooks(Settings_DateiName).Worksheets(1).Cells(2,1).value =
"AuftragsVerzeichnis = "
Workbooks(Settings_DateiName).Worksheets(1).Cells(2,2).value =
AuftragsVerzeichnis
Workbooks(Settings_DateiName).Worksheets(1).Cells(3,1).value=
"RechnungsVerzeichnis = "
Workbooks(Settings_DateiName).Worksheets(1).Cells(3,2).value =
RechnungsVerzeichnis
Workbooks(Settings_DateiName).Worksheets(1).Cells(4,1).value=
"KundenListe_PfadDateiName= "
Workbooks(Settings_DateiName).Worksheets(1).Cells(4,2).value =
KundenListe_PfadDateiName
Workbooks(Settings_DateiName).Worksheets(1).Cells(5,1).value=
"ObjektListe_PfadDateiName= "
Workbooks(Settings_DateiName).Worksheets(1).Cells(5,2).value =
ObjektListe_PfadDateiName
Workbooks(Settings_DateiName).Worksheets(1).Cells(6,1).value=
"AuftragListe_PfadDateiName= "
Workbooks(Settings_DateiName).Worksheets(1).Cells(6,2).value =
AuftragListe_PfadDateiName
Workbooks(Settings_DateiName).Worksheets(1).Cells(7,1).value=
"Artikel_PfadDateiName= "
Workbooks(Settings_DateiName).Worksheets(1).Cells(7,2).value =
Artikel_PfadDateiName
Workbooks(Settings_DateiName).Worksheets(1).Cells(8,1).value=
"Dienste_PfadDateiName= "
Workbooks(Settings_DateiName).Worksheets(1).Cells(8,2).value =
Dienste_PfadDateiName
'Save it
Workbooks(Settings_DateiName).Save
'close it
Workbooks(Settings_DateiName).Close
end sub
The content is defined somewhere else
Saving the file works fine and makes a file
if I open this file again it is a workbook with a worksheet and all the
content , but without filename filename is unbekannt1.xlsx
--
You are receiving this mail because:
You are the assignee for the bug.
_______________________________________________
Libreoffice-bugs mailing list
Libreoffice-bugs@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs