Eksport til et bestemt sted i Word or Excel

Jeg kan sende dig et par filer der viser hvordan.

Her i hvert fald til Excel.


Dim objExcelApp As Object              'late binding
Dim objExcelDoc As Object              'late binding
'Dim objExcelApp As Excel.Application  'early binding
'Dim objExcelDoc As Excel.Workbook      'early binding

Set objExcelApp = CreateObject("excel.application") 'late binding
'Set objExcelApp = New Excel.Application 'early binding

Set objExcelDoc = objExcelApp.Workbooks.Add   
objExcelApp.Visible = True

With objExcelDoc.Sheets(1)
  .range("D2").Value = 777
  .range("D3").Value = 888
  .range("D4").Value = 999
End With

Set objExcelDoc = Nothing
Set objExcelApp = Nothing

mugs

Det må du meget gerne. du kan sende dem på følgende email adresse
mickey@private-site.dk

på forhånd tak for hjælpen