Visual Basic 2010 eine Excel VBA Dateien erstellen SelMcKenzie Selzer-McKenzieVisual Basic 2010 Excel VBA Dateien erstellen SelMcKenzie Selzer-McKenzieVisual Basic 2010 Excel VBA Dateien erstellen SelMcKenzie Selzer-McKenzie Author D.Selzer-McKenzie Video http://www.youtube.com/watch?v=pqk8ZdwTpOI Heute zeige ich Ihnen, wie man aus einer Visual-Basic-Anwendung Excel-Dateien programmieren und erstellen kann und darin auch Inhalte aus Internet-Seiten enthalten sein können. Natürlich braucht es nicht Excel zu sein, es geht mit jedem anderen Programm wie Word,Access, Open Office usw. auch. Dies ist eine erhebliche Erleichterung, Sie können in einem Schwung ganze Excel-Anwendungen aus Visual-Basic heraus konfigurieren, jede einzelne Zelle einfärben, die Schriftfarben bestimmen, Formeln einschreiben lassen und natürlich auch Inhalte. Dies ist sinnvoll, wenn Sie z.B. aus dem Internet oder aus Ihrer Anwendung Börsenkurse, Fussballergebnise oder Permanenzen von Spielcasinos übertragen wollen. Das geht dann in einem Schwung und Sie können auch auf der Excel-Datei gleich die Formeln, ein Diagramm und alles weitere konfigurieren lassen, also jede Funktion, die Excel hat. Ich mache es so, dass hier hier mal eine Reihe Zahlen formatiert in eine Excel-Datei übertragen lasse, diese Datei auch formatiere mit farbigen Zellenhintergründen, farbiger Schrift usw. Dann lade ich den Inhalt einer Internetsite in Excel auf und kann diesen Inhalt dort auch gleich weiterverarbeiten. Nur ein relativer kurzer Code ist für alle das notwending und der lautet: Excel_load = CreateObject("Excel.Application") Excel_load.Visible = True Excel_done = Excel_load.Workbooks.Add Tabellenblatt = Excel_done.ActiveSheet Zeile = Excel_done.ActiveSheet.Range("A1:A20") Zeile.Font.bold = True 'Fettschrift Zeile.Font.Italic = True 'Schrift kursiv Zeile.Font.Name = "Arial Black" 'Schriftart Zeile.Font.Color = 14066153 'Schriftfarbe, hier rosa Zeile.Interior.Color = 43099156 'Zellenfarbe, hier grün Zeile.ColumnWidth = 70 'Breite der Zellen Zeile.value = "Moin, Moin, heute am " _ & Format$(Now, "dddd") _ & " dem " & Now 'Internet Site auslesen oder komplett in Excel schreiben Dim SelMcKenzieWWW As Object : Dim DerInhalt(1) As Object SelMcKenzieWWW = CreateObject("InternetExplorer.Application") SelMcKenzieWWW.Visible = True SelMcKenzieWWW.Navigate("http://www.tagesschau.de") NeueZeile = Excel_done.ActiveSheet.Range("A22") NeueZeile = SelMcKenzieWWW.Navigate("http://www.tagesschau.de") NeueZeile.value = DerInhalt(1) Sie können das Video ja anhalten und den Code, den ich gross lesbar geschrieben habe, abschreiben und erweitern. So, nun geht's los und wir starten und sehen Sie, alles funktioniert, die Excel Datei ist geschrieben, formatiert und auch der Inhalt der Internetsite ist enthalten. Das wars. Selzer-McKenzie code pour embarquer la vidéo : >>> http://www.youtube.com/embed/NS8FuHTHJsU <<< |