Hallo!
Wie könnte man ein Excel 97 Sheet in eine XLM-File exportieren???
(Excel 2000 kann das wohl schon, aber gibts irgendwo ein VB-Script der das auch für E.97 ausführt?)
Bin dankbar für jeden noch so kleinen Hinweis!
Gruss
catmad
Wie könnte man ein Excel 97 Sheet in eine XLM-File
exportieren???
(Excel 2000 kann das wohl schon, aber gibts irgendwo ein
VB-Script der das auch für E.97 ausführt?)
Bin dankbar für jeden noch so kleinen Hinweis!
Hi Catmad,
hab ich aus dem Inet gefischt also keine Ahnung ob und wie das funktioniert.
Gruß
Reinhard
Sub TOXML()
Dim rng As Range
Dim i As Integer
Dim j As Integer
Dim Jstr As String
Dim strDateiname As String
Dim n As Integer
n = Worksheets.Count
Set db_bereich = Worksheets(„n“).Range(„A4“).CurrentRegion
ActiveWorkbook.Names.Add Name:=„Datenbank“, RefersToR1C1:=db_bereich
Set rng = ThisWorkbook.Names(„Datenbank“).RefersToRange
strDateiname = „MyData.xml“
Open ThisWorkbook.Path & „“ & _
strDateiname For Output Access Write As #1
Print #1, „“
Print #1, „“
For j = 2 To rng.Rows.Count
Jstr = (j - 1)
Print #1, Spc(4), „“
For i = 1 To rng.Columns.Count
Print #1, Spc(8), „“,
Print #1, rng.Cells(j, i).Value,
Print #1, „“,
Next
Print #1, „“
Next
Print #1, „“
Close #1
End Sub