filnavne i en given mappe over til excel [VB6]

det er besvaret her
http://www.eksperten.dk/spm/501966

nu er jeg ikke så stærk i det her vb6 og vba ting, så det jeg skal bruge er til vb6
og gerne et brubart eksempel

Først:

Dim ex As Excel.Application
Set ex = New Excel.Application
Dim work As Excel.Workbook
Set work = ex.Workbooks.Open(NAVN PÅ EXELFIL)
   
Sådan puttes der data i:   
   
work.Worksheets(ARK NR).Range("a").Value = "Hej"
work.Worksheets(ARK NR).Range("b").Value = "Næste felt"

Du kan så se i ovenstående link hvordan du henter filnavnene...

Altså, komplet kode:

'Opret reference til MS Excel Object Library: Project > References

Dim ex As Excel.Application
Set ex = New Excel.Application
Dim work As Excel.Workbook
Set work = ex.Workbooks.Open("c:\test.xls")
Dim fso, row

row = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set myFolder = fso.GetFolder("c:\")
Set Files = myFolder.Files
For Each file In myFolder.Files
  work.Worksheets(1).Cells(row, 1).Value = file.Name
  row = row + 1
Next

Set work = Nothing
Set ex = Nothing
MsgBox "Færdiiii"

ok men der kommer en fejl i denne linje ved mig

Set ex = New Excel.Application

Hej jeg er nu nok ikke klog nok til det her , jeg kan ikke få det til at virke
mvh H Cichosz

Det hjælper ikek at du siker at der kommer fejl, når du ikke siger hvad fejlen er. Og hvorfor accepterer du hvis det ikke virker?

Nå - tror du har glemt at læse denne linie:

'Opret reference til MS Excel Object Library: Project > References

hej og tak
nu virker det for mig
mvh H Cichosz