[Libreoffice-bugs] [Bug 139936] open *.xlsx file

[bugzilla-daemon at bugs.documentfoundation.org]

https://bugs.documentfoundation.org/show_bug.cgi?id=139936

--- Comment #5 from Harald Langheinrich <Hal71229 at 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.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.freedesktop.org/archives/libreoffice-bugs/attachments/20210127/48468d07/attachment-0001.htm>