Excel aus VB.NET befüllen

R

RWA3

Hallo Leute,

ich habe folgendes Problem. Aus einer SQL DB sollen bestimmte Daten in ein Excelfile geschreiben werden. Eigendlich kein Problem. Das eigendliche Problem ist, dass wenn jemand wärend der Excelbefüllung ein anderes Excelfile öffnet und bearbeitet, kann ich meine Datei vergessen, die ist dann leer bzw. ich bekomme eine Fehlermeldung. Hat jemand eine Idee was man hier tun kann. (Verhindern das ein weiterer Excelfile geöffnet wird oder besser wäre, meine Excelbefüllung so optimieren das es keine Probleme gibt).

public sub ErstellXLS(l_XLSDateiname as string)
'office 2007
Dim l_xlsApp As Microsoft.Office.Interop.Excel.Application
Dim l_xlsBook As Microsoft.Office.Interop.Excel.Workbook
Dim l_xlsSheet As Microsoft.Office.Interop.Excel.Worksheet
'office 2000
'Dim l_xlsApp As Excel.Application
'Dim l_xlsBook As Excel.Workbook
'Dim l_xlsSheet As Excel.Worksheet

'Ein Verweis auf eine Excel-Application
l_xlsApp = CreateObject("Excel.Application")
'Excel ausblenden
l_xlsApp.Visible = False
'neue Excel Datei erzeugen und unter l_XLSDateiname abspeichern
l_xlsBook = l_xlsApp.Workbooks.Add
l_xlsBook.SaveAs(l_XLSDateiname)
'Focus auf das 1. Tabellenblatt setzen
l_xlsSheet = l_xlsBook.Worksheets._Default(1)
'Tabellenblattname ändern
l_xlsSheet.Name = "Datenblatt"

'Header befüllen
l_xlsApp.Range("A1").Value() = "Artikel"
l_xlsApp.Range("B1").Value() = "Seiten Nr."
l_xlsApp.Range("C1").Value() = "Link 1"
l_xlsApp.Range("D1").Value() = "Datenblatt"
l_xlsApp.Range("E1").Value() = "Link 2"

'Excel aus einer SQL DB befüllen
while not ...
...
End While
'alles wieder schliessen
l_xlsBook.Save()
l_xlsBook.Close()
l_xlsBook = Nothing
l_xlsApp.Workbooks.Close()
l_xlsApp.Application.Quit()
l_xlsApp.Quit()
l_xlsApp = Nothing

end sub
 
Zurück