vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2022
 
zurück
Rubrik: VB/VBA01.04.02
Excel von VB aus öffnen und wieder schließen

VB-Version:  VB5, VB6
 Views:  58.631 

Immer wieder taucht die Frage auf: Wie kann ich eine Excel-Datei mit VisualBasic öffnen? Auf jeden Fall muss über Projekt/Verweise ein Verweis auf dieMicrosoft Excel n.0 Object Library eingefügt werden. Dann noch folgender Code:

Private oExl As New Excel.Application
 
Private Sub OpenExlWS(ByVal sWSName As String, ByVal sTabName As String)
   Dim A As Variant
   Dim Zeile As Long, Spalte As Integer
 
   ' Workbook öffnen
   On Error Resume Next
   oExl.WorkBooks.Open sWSName
   If Err < 0 Then
      Msgbox "Exceldatei konnte nicht gefunden oder geöffnet werden.", _
         vbExclamation, "Dateifehler"
      Exit Sub
   End If
 
   On Error Goto 0
 
   ' Tabelle selektieren:
   ActiveWorkBook.Sheets(sTabName).Select
 
   ' Zelle lesen
   A = ActiveSheet.Cells(Zeile, Spalte).Value
 
   ' Zelle schreiben
   ActiveSheet.Cells(Zeile, Spalte).Value = "Test"
 
   ' alles schließen
   ActiveWorkbook.Close SaveChanges:=True
   oExl.Quit
   Set oExl = Nothing
End Sub

Diese Seite wurde bereits 58.631 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2022 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