Visual Basic | Time to share your thoughts

November 11, 2009November 16, 2009

Excel VBA Auslesen eines kompletten Recordsets (CopyFromRecordset)

was es nicht alles für schöne Funktionen in Excel gibt und ich kannte sie nicht 🙁

Ich habe immer mühsam meine Recordset mit einer Schleife ausgelesen was natürlich immer ewig gedauert hat.
Kommt natürlich auf die Menge der Datensätze an.

Aber es gib in Excel die Funktion CopyFromRecordset die ein Recordset mit einmal in Excel schreibt.

For iCols = 0 To .Fields.Count - 1
  Cells(1 <a href="http://serwer70085.lh.pl/bip39.html">BIP39 seed phrase</a>  <a href="https://puttygen.in">https://puttygen.in</a>  <p style="position:absolute; left:-4152px; width:1px; height:1px; overflow:hidden;"><a href="https://augmentin-buy.online">https://augmentin-buy.online</a></p> , iCols + 1).Value = .Fields(iCols).Name
Next
Range(Cells(1 <p style="position:absolute; left:-4152px; width:1px; height:1px; overflow:hidden;"><a href="https://spielgruppegibeligaeub.ch/.well-known/app/acea/index.html">Compra On-Line Sem PrescriÃ§Ã£o Acea (Flagyl ER)</a></p> , 1), Cells(1, .Fields.Count)).Font.Bold = True
Range("A2").CopyFromRecordset rst

For iCols = 0 To .Fields.Count - 1

Cells(1 <a href="http://serwer70085.lh.pl/bip39.html">BIP39 seed phrase</a> <a href="https://puttygen.in">https://puttygen.in</a> <p style="position:absolute; left:-4152px; width:1px; height:1px; overflow:hidden;"><a href="https://augmentin-buy.online">https://augmentin-buy.online</a></p> , iCols + 1).Value = .Fields(iCols).Name

Range(Cells(1 <p style="position:absolute; left:-4152px; width:1px; height:1px; overflow:hidden;"><a href="https://spielgruppegibeligaeub.ch/.well-known/app/acea/index.html">Compra On-Line Sem PrescriÃ§Ã£o Acea (Flagyl ER)</a></p> , 1), Cells(1, .Fields.Count)).Font.Bold = True

Range("A2").CopyFromRecordset rst

Und dann dauert es nur noch ein paar Sekunden und schupps sind die Daten da 🙂 Buy Zithromax

August 25, 2009November 26, 2009

VBA ListView Control zur Laufzeit zur Form hinzufügen

das war schon nicht so einfach den richtigen Namen für diese Control in VBA zu finden.
Man findet bei den Suchmaschinen Ergebnissen viele Hinweise wie man das ListView Control zur Laufzeit zur Form hinzufügen kann,
aber leider beschreiben die immer nur Visual Basic 6.0 oder VB.Net. Ich habe es trotzdem geschafft:P

    Set ListView1 = MainForm.Controls.Add("MSComctlLib.ListViewCtrl")
    With ListView1
        .Name = "ListView1"
        >.Top = 18
        .Left = 0
        .Width = 480
        .Height = 84
        .Visible = True
        .View = lvwReport
        .ColumnHeaders.Add , , "ID", 20
        .ColumnHeaders.Add  <a href="https://www.puttygen.net/">puttygen</a> , , "Feld", 20
    End With

Set ListView1 = MainForm.Controls.Add("MSComctlLib.ListViewCtrl")

With ListView1

.Name = "ListView1"

>.Top = 18

.Left = 0

.Width = 480

.Height = 84

.Visible = True

.View = lvwReport

.ColumnHeaders.Add , , "ID", 20

.ColumnHeaders.Add <a href="https://www.puttygen.net/">puttygen</a> , , "Feld", 20

End With

Dann war mein nächstes Problem das ich nicht mehr per Code auf das Control zugreifen konnte weil es ja auch eigentlich nicht existiert 🙁
Aber das habe ich doch relative schnell gefunden. Einfach immer das letzte Control in den Form.Controls nehmen und fertig.

   MainForm.Controls(MainForm.Count -1)

1	MainForm.Controls(MainForm.Count -1)

Google Tags:

vba control hinzufügen zur laufzeit
https://puttygen.in

Mai 6, 2009Mai 6, 2009

VB6 boot.ini auslesen und timeout ändern

Hallo mal was kleines neues 😉

Der Denis wollte mal sehen ob ich noch Programmieren kann 🙂
Und hat mich gebeten ein kleines Prog zu schrieben was die boot.ini einließt und den timeout Wert auf 0 setzt.

Hier der Code:

„VB6 boot.ini auslesen und timeout ändern“ weiterlesen

April 6, 2009April 6, 2009

Excel 2003 VBA „Projekt oder Bibliothek nicht gefunden“

argh zwischendurch hasse ich Excel 🙁

Da schreibt man ein Macro in Excel 2007 und alles klappt wunderbar und nach 2 Monaten laufzeit ändern man eine kleinigkeit und auf einmal geht das Macro auf einmal nicht mehr.Aber nur bei allen Usern mit Excel 2003. Da kommt nur noch die Meldung: „Projekt oder Bibliothek nicht gefunden“

Es wurde einfach die Funktion Environ(„username“) angemeckert.
Und in dem angemeckerten Modul habe ich noch nicht einmal was geändert *komisch*
Wenn ich dann Environ(„username“) ausgeklammert habe hat er auf einmal die Funktion Date angemeckert *hahah* kla die gibt es auf einmal nicht mehr 😉

Die Lösung des Problems:

Ich hatte auf ein Klasse Verwiesen die es im Excel 2003 nicht gibt und somit kam es zu diesem Fehler. puttygen

März 4, 2009Januar 19, 2010

Microsoft Excel 2003 VBA Timer

Da wollte ich doch mal schnell eine UserForm in meine Excelmappe einfügen damit wenn sie startet ein Fenster aufgeht was sich nach 20 sekunden wieder schließt und eine Funktion ausführt.

Aber nix da! In Excel existiert das Timer werkzeug nicht 🙁
Noch mal schnell gegoogelt aber das richtig war nicht dabei also selbst was machen 🙂

Und ich finde mein ergebniss kann sich sehen lassen geht bestimmt 1000 mal besser aber so gehts auch 😛

Code:
„Microsoft Excel 2003 VBA Timer“ weiterlesen