|
| |
VB.NET - Ein- und Umsteiger| Auf verschiedene Excelversionen zugreifen | |  | | Autor: dexX | | Datum: 15.10.07 21:32 |
| Hi,
ich habe zum Testen ein Programm in VB.NET geschrieben, welches eine Excelarbeitsmappe erzeugt und da einige Modifikationen zulässt. Ich selbst verwende hier Office 2007 und greife auch auf diese Objektbibliothek zu. Genauer:
Microsoft.Office.Interop.Excel / Microsoft Excel 12.0 Object Library
Das Problem ist nun, dass ein User mit einer älteren Officeversion mein Programm nicht ausführen kann, da eben diese Library fehlt. Ich benutze keine spezifischen Befehle, sondern eigentlich nur Standartsachen.
Welche Möglichkeit gibt es nun, das ganze auch für andere Systeme nutzbar zu machen? Langt es, wenn ich mit einem Setupprogramm die entsprechende dll installieren lasse oder gibt es die Möglichkeit vorher zu ermitteln, was vorhanden ist und dementsprechend die richtige auswählen?
Hier mal der Code und ein Screenshot der Form:
Public Class Form1
Dim exApp As Microsoft.Office.Interop.Excel.Application
Dim exWorkbook As Microsoft.Office.Interop.Excel.Workbook
Dim exWorksheet As Microsoft.Office.Interop.Excel.Worksheet
Private Sub btnErstellen_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles btnErstellen.Click
exApp = CreateObject("Excel.Application")
exWorkbook = exApp.Workbooks.Add
exWorksheet = exWorkbook.ActiveSheet
exWorksheet.Name = "Daten"
With exApp
.Visible = True
.UserControl = True
.ScreenUpdating = True
End With
btnErstellen.Enabled = False
btnOeffnen.Enabled = False
gpEingeben.Enabled = True
btnHinzufuegen.Enabled = True
btnSchliessen.Enabled = True
End Sub
Private Sub btnOeffnen_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles btnOeffnen.Click
OpenFileDialog.ShowDialog()
exApp = CreateObject("Excel.Application")
exWorkbook = exApp.Workbooks.Open(OpenFileDialog.FileName)
exWorksheet = exWorkbook.ActiveSheet
With exApp
.Visible = True
.UserControl = True
.ScreenUpdating = True
End With
btnErstellen.Enabled = False
btnOeffnen.Enabled = False
gpEingeben.Enabled = True
btnHinzufuegen.Enabled = True
btnSchliessen.Enabled = True
End Sub
Private Sub btnHinzufuegen_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles btnHinzufuegen.Click
Try
exWorksheet.Cells(CInt(boxZeile.Text), CInt(boxSpalte.Text)) = _
boxInhalt.Text
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub btnSchliessen_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles btnSchliessen.Click
'exApp.DisplayAlerts = False
exWorkbook.Close()
exApp.Quit()
btnErstellen.Enabled = True
btnOeffnen.Enabled = True
gpEingeben.Enabled = False
btnHinzufuegen.Enabled = False
btnSchliessen.Enabled = False
End Sub
End Class | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
Neu! sevPopUp 2.0 
Dynamische Kontextmenüs!
Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
November 2025
Sie sind aktuell nicht angemeldet.
