vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: Daten aus VB.NET-Anwendung an Excel übergeben und formatieren 
Autor: Vaubehnet
Datum: 14.03.17 07:40

Hallo Andi,

schon mal vielen Dank! Ich habe gestern den Code überarbeitet. Option strict on funktioniert jetzt - super - aber die Daten werden nicht in die Tabelle geschrieben, die ich geplant hatte.
Ich öffne also die geplante Datei, schreibe aber in die falsche... Denkfehler...
Private Sub btnExcel2_Click(sender As Object, e As EventArgs) Handles _
  btnExcel2.Click
        'Beispielcode
        'Option Explicit ist on
        'Option strict ist on und funktioniert
        '>>> Fehler: Daten werden nicht in der richtigen Excel-Datei gespeichert
 
        Dim strFilename As String = "i:\Exceltest.xlsx"
 
        'Variablen für Excel-Ansteuerung
        Dim xlApp As New Excel.Application
 
        Dim xlWorkbooks As Excel.Workbooks = xlApp.Workbooks
        Dim xlWorkbook As Excel.Workbook = xlWorkbooks.Add()
 
        'Drei Variablen
        Dim intNummer As Integer = 5000
        Dim dblBetrag As Double = 123.45
        Dim datDate As Date = Date.Parse("25.01.2022")
 
        '----------------------------------------------------------------
        'Option Strict On: Excel-Objekt erstellen
        xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
 
        '----------------------------------------------------------------
        'Option Strict On: Worksheet
        Dim xlWorksheet1 As Excel.Worksheet = CType(xlWorkbook.Sheets( _
          "Tabelle1"), Excel.Worksheet)
 
        With xlApp
            'Datei öffnen und Daten manipulieren
            xlWorkbook = .Workbooks.Open(strFilename)
 
            With xlWorksheet1 'Register: Tabelle1
                'Aktivieren
                .Activate()
                'Werte
                .Range("A2").Value = intNummer
                .Range("A3").Value = dblBetrag
                .Range("A4").Value = datDate
                'Layout
                'fett
                .Range("A5").Value = "Das wird fett dargestellt"
                .Range("A5").Font.Bold = True
 
                'kursiv
                .Range("A6").Value = "Das wird kursiv dargestellt"
                .Range("A6").Font.Italic = True
 
                'Farbe zuweisen
                .Range("A7").Value = "Die Zelle wird grau dargestellt"
                .Range("A7").Interior.Color = RGB(204, 204, 204)
            End With
 
            xlApp.Columns.AutoFit()
            xlWorkbooks.Close()
            .Quit()
        End With
    End Sub

---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14)

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Daten aus VB.NET-Anwendung an Excel übergeben und formatiere...6.103Vaubehnet13.03.17 10:39
Re: Daten aus VB.NET-Anwendung an Excel übergeben und format...2.655CAM-Andi13.03.17 12:50
Re: Daten aus VB.NET-Anwendung an Excel übergeben und format...2.624Vaubehnet13.03.17 12:57
Re: Daten aus VB.NET-Anwendung an Excel übergeben und format...2.560CAM-Andi13.03.17 14:33
Re: Daten aus VB.NET-Anwendung an Excel übergeben und format...2.393Vaubehnet14.03.17 07:40
Re: Daten aus VB.NET-Anwendung an Excel übergeben und format...2.614CAM-Andi14.03.17 07:59
Re: Daten aus VB.NET-Anwendung an Excel übergeben und format...2.409Vaubehnet14.03.17 08:07
Re: Daten aus VB.NET-Anwendung an Excel übergeben und format...2.495CAM-Andi14.03.17 08:19
Re: Daten aus VB.NET-Anwendung an Excel übergeben und format...3.699Vaubehnet14.03.17 08:52
Re: Daten aus VB.NET-Anwendung an Excel übergeben und format...2.952Vaubehnet16.03.17 15:37
Re: Daten aus VB.NET-Anwendung an Excel übergeben und format...2.406CAM-Andi14.03.17 08:55

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

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 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