Hvordan opretter jeg en database/Excelark

hvis du laver en lille vbs i notebook med linjer mellem streger
---
Set objFSO=CreateObject("Scripting.FileSystemObject")
outFile="c:\demo.txt"
Set objFile = objFSO.CreateTextFile(outFile,True)

for i=Asc("A") to Asc("C")
  for j=Asc("A") to Asc("Z")
    for k=0 to 96
      tekst=Chr(i) & Chr(j) & Right(String(2, "0") & k, 2)
      objFile.Write tekst & vbCrLf
    next
  next
next

objFile.Close
---

så vil du få en c:\demo.txt som du kan importere i excel.
Og - nej - jeg har ikke testet det.

det skal ikke være
for k=0 to 96
men
for k=1 to 96

Tak for svaret.

Så prøver jeg, at arbejde videre med det.

Hilsen Mistermogs