<html>
<head>
<base href="https://bugs.documentfoundation.org/">
</head>
<body>
<p>
<div>
<b><a class="bz_bug_link
bz_status_UNCONFIRMED "
title="UNCONFIRMED - open *.xlsx file"
href="https://bugs.documentfoundation.org/show_bug.cgi?id=139936#c5">Comment # 5</a>
on <a class="bz_bug_link
bz_status_UNCONFIRMED "
title="UNCONFIRMED - open *.xlsx file"
href="https://bugs.documentfoundation.org/show_bug.cgi?id=139936">bug 139936</a>
from <span class="vcard"><a class="email" href="mailto:Hal71229@gmail.com" title="Harald Langheinrich <Hal71229@gmail.com>"> <span class="fn">Harald Langheinrich</span></a>
</span></b>
<pre>Created <span class=""><a href="http://bugs.documentfoundation.org/attachment.cgi?id=169192" name="attach_169192" title="This file was create by makro">attachment 169192</a> <a href="http://bugs.documentfoundation.org/attachment.cgi?id=169192&action=edit" title="This file was create by makro">[details]</a></span>
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</pre>
</div>
</p>
<hr>
<span>You are receiving this mail because:</span>
<ul>
<li>You are the assignee for the bug.</li>
</ul>
</body>
</html>