Ankündigung

Einklappen
Keine Ankündigung bisher.

Hilfe bei VBA Script

Einklappen
X
 
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge

  • Hilfe bei VBA Script

    Hallo zusammen,

    ich möchte gerne folgendes umsetzen: Bulk Erstellung von QR Codes in Excel. Funktioniert auch soweit, aber ene Funktion fehlt mir noch. Und zwar generiert es schon die QR Codes, aber ich möchte gerne den Inhalt von mehreren Spalten verarbeiten lassen. Momentan ist es immer nur die erste oder je nachdem was ich definiere. Ich habe schon mit RangeCell probiert mehrere erfassen zu lassen, aber das verträgt sich mit dem Skript alles nicht. Skript ist dieses hier:

    Code:
    Dim wsh As Worksheet
    Set wsh = Application.ActiveSheet 'QR codes are generated on the active worksheet
       
    Dim shp As Shape
    For Each shp In wsh.Shapes 'Deletes all barcode pictures which are generated previously
      If shp.Type = msoPicture And InStr(shp.Name, "BarcodePicture") > 0 Then
         shp.Delete
      End If
    Next
       
     Dim ss As StrokeScribeClass 'Invisible COM server
     Set ss = CreateObject("STROKESCRIBE.StrokeScribeClass.1")
     ss.Alphabet = QRCODE
    
     pict_path = wsh.Parent.Path + "\bar.wmf" 'A temporary file for pictures
     
     Row = 1
     Do
         Dim data As String
         data = wsh.Cells(Row, 1) 'Data for barcodes is taken from the first column
         
         If Len(data) = 0 Then Exit Do 'The code will stop execution on first empty cell occurrence
         
         ss.text = data
         rc = ss.SavePicture(pict_path, WMF, 1440, 1440) 'A 1x1 inch QR Code is stored in a temporary file. 1440 TWIPs=1in.
         If rc > 0 Then 'Reports the error if SavePicture() call was unsuccessful
            MsgBox ss.ErrorDescription
            Exit Do
         End If
          
         Set qrcode_cell = wsh.Cells(Row, 2) 'The cell where the QR Code will be placed
         
         'The rectangle which fits into the cell. QR codes are square in shape.
         qrcode_size = Application.Min(qrcode_cell.Width, qrcode_cell.Height)
         
         'Barcode picture is loaded from file and centered in the cell:
         Set shp = wsh.Shapes.AddPicture(pict_path, msoFalse, msoTrue, _ 
            qrcode_cell.Left + (qrcode_cell.Width - qrcode_size) / 2, _
            qrcode_cell.Top + (qrcode_cell.Height - qrcode_size) / 2, _
            qrcode_size, qrcode_size)
        
         'Each picture is named as BarcodePictureN, where N is 1,2,3...
         'So the pictures can be easily removed next time
         shp.Name = "BarcodePicture" & Format(Row)
          
         Row = Row + 1 'Going to the next worksheet row
    Loop
    
    Kill pict_path 'We don't need the temporary picture file any more
    
    Set ss = Nothing 'Deletes the barcode COM server
    Hat jemand eine Idee, wie man das beheben kann? Vielen Dank und beste Grüße

  • #2
    AW: Hilfe bei VBA Script

    Hallo peaer,
    das Thema geht ja weit weg vom eigentlichen Inhalt des Forums. Vielleicht schaust du mal in einem Forum für VBScript, WSH oder VB. Da kann dir besser geholfen werden.

    PS: Du solltest ss erst leeren, bevor du es löscht :-)
    Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt.
    Albert Einstein

    Kommentar


    • #3
      AW: Hilfe bei VBA Script

      Ja vermutlich schon. Dachte, vielleicht ist der ein oder andere Findige VBler auch in diesen Reihen zu finden

      Danke für den Tipp!

      Grüße

      Kommentar


      • #4
        AW: Hilfe bei VBA Script

        @pear

        Hi pear, ich kenne mich mit VBScript gut aus, aber mit Excel eigentlich fast garnicht. Ich versteh dein Problem, habe dafür keine Lösung, weil es zu spezifisch ist. Hier im Forum ist ja mehr an Internetseiten gedacht und vielleicht noch an VBScript für Internetseiten die IE benutzen, aber sonst wäre ein spezifisches Forum besser angebracht.


        Liebe Grüße und viel Erfolg

        Localfun
        Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt.
        Albert Einstein

        Kommentar


        • #5
          AW: Hilfe bei VBA Script

          Nur der Vollständigkeit halber: Ich habe es jetzt gelöst, dass mehrere Spalten erfasst werden. Funktioniert so:
          Code:
          data = wsh.Cells(Row, 1) & wsh.Cells(Row, 2)'Data for barcodes is taken from the first column
          So kann man beide verbinden und in einen QR Code bringen. Jetzt bräuchte ich nur noch der Lesbarkeit wegen einen Leerschritt zwischen beiden...Der geht aber weder mit
          Code:
          &" "&
          noch mit
          Code:
           __
          Was solls, werde schon nen Lösung dafür finden

          Gruß

          Kommentar


          • #6
            AW: Hilfe bei VBA Script

            Hi,

            hab eine Lösung:

            Benutze doch die Funktion char()

            Code:
            ... & chr(32) & ...
            Liebe Grüße

            Localfun
            Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt.
            Albert Einstein

            Kommentar


            • #7
              AW: Hilfe bei VBA Script

              Zitat von Localfu Beitrag anzeigen
              Hi,

              hab eine Lösung:

              Benutze doch die Funktion char()

              Code:
              ... & chr(32) & ...
              Liebe Grüße

              Localfun
              Sorry, habe ich bis gerade eben gar nicht gesehen. Probiere ich später mal aus Vielen Dank

              Kommentar


              • #8
                AW: Hilfe bei VBA Script

                Und hat es funktioniert?
                Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt.
                Albert Einstein

                Kommentar


                • #9
                  AW: Hilfe bei VBA Script

                  Zitat von Localfu Beitrag anzeigen
                  Und hat es funktioniert?
                  Nein, leider auch nicht. Ich habe das Gefühl, dass Strokescribe zu instabil ist, da Excel jedes Mal schlapp macht (keine Rückmeldung). Habe es jetzt über eine Google API gelöst, das ging auch. Jetzt funktioniert alles wie gewünscht. Danke für die Hilfe und das Mitdenken

                  VG

                  Kommentar

                  homepage-forum.de - Hilfe für Webmaster! Statistiken

                  Einklappen

                  Themen: 56.504   Beiträge: 427.331   Mitglieder: 28.081   Aktive Mitglieder: 49
                  Willkommen an unser neuestes Mitglied, Coni1726.

                  Online-Benutzer

                  Einklappen

                  144 Benutzer sind jetzt online. Registrierte Benutzer: 4, Gäste: 140.

                  Mit 2.057 Benutzern waren am 14.07.2019 um 11:45 die meisten Benutzer gleichzeitig online.

                  Die neuesten Themen

                  Einklappen

                  • daniel5959
                    Antwort auf Gästebuch für meine Homepage
                    Nachtrag




                    Was jetzt stimmt - Kommentarfunktion oder Gästebuch - mal selber herausfinden....
                    Heute, 01:25
                  • daniel5959
                    Antwort auf Gästebuch für meine Homepage
                    Hallo,

                    muss es denn unbedingt ein Gästebuch sein?

                    Früher gab es Gästebücher auf sehr vielen Homepages. Heute sind sie selten, da meistens gar nichts geschrieben wird oder es wird mit Spam überflutet, so dass es dauernd überprüft und vom Spam gesäubert werden muss....
                    Heute, 01:03
                  • arnego2
                    Antwort auf Wartungs .htaccess auf nginx zum Laufen bringen?
                    Post ihn doch einfach passiv...
                    Gestern, 22:50
                  • Coni1726
                    Gästebuch für meine Homepage
                    Hallo zusammen,
                    ich brauche dringend Hilfe. Ich habe bei 1&1 ionos eine Homepage angelegt über das Baukastenprinzip. Die bieten kein Gästebuch an. Ich habe im Internet gesucht aber da gibt es immer nur welche die auf anderen Homepages liegen. Wie bekomme ich eins nur auf meine Seite. habe...
                    Gestern, 22:22
                  • ThegreenY
                    Antwort auf Wartungs .htaccess auf nginx zum Laufen bringen?
                    Vielen Dank für deine Antwort, ich habe eine der einfachsten aber auch nicht so tolle methode nicht bedacht, es gibt diverse Converter die einem eine einfache htaccess in nginx code umwandeln, da bin ich auf der Suche nach einer erklärung zu nginx config code drüber gestolpert, damit war es dann...
                    Gestern, 21:39

                  Die neuesten Beiträge

                  Einklappen

                  • Coni1726
                    Gästebuch für meine Homepage
                    Hallo zusammen,
                    ich brauche dringend Hilfe. Ich habe bei 1&1 ionos eine Homepage angelegt über das Baukastenprinzip. Die bieten kein Gästebuch an. Ich habe im Internet gesucht aber da gibt es immer nur welche die auf anderen Homepages liegen. Wie bekomme ich eins nur auf meine Seite. habe...
                    Gestern, 22:22
                  • daniel5959
                    Antwort auf Gästebuch für meine Homepage
                    Nachtrag




                    Was jetzt stimmt - Kommentarfunktion oder Gästebuch - mal selber herausfinden....
                    Heute, 01:25
                  • daniel5959
                    Antwort auf Gästebuch für meine Homepage
                    Hallo,

                    muss es denn unbedingt ein Gästebuch sein?

                    Früher gab es Gästebücher auf sehr vielen Homepages. Heute sind sie selten, da meistens gar nichts geschrieben wird oder es wird mit Spam überflutet, so dass es dauernd überprüft und vom Spam gesäubert werden muss....
                    Heute, 01:03
                  • ThegreenY
                    Wartungs .htaccess auf nginx zum Laufen bringen?
                    Hallo Forum,

                    ich weiß nicht wo ich dass hier sonnst posten sollte, falls es hier nicht rein passt, einfach verschieben.

                    Ich habe nun eine .htaccess Datei erstellt, die im falle einer anstehenden Wartung auf den Server geladen werden soll und dann die Nutzer auf die Wartungs...
                    Gestern, 18:09
                  • arnego2
                    Antwort auf Wartungs .htaccess auf nginx zum Laufen bringen?
                    Post ihn doch einfach passiv...
                    Gestern, 22:50
                  • ThegreenY
                    Antwort auf Wartungs .htaccess auf nginx zum Laufen bringen?
                    Vielen Dank für deine Antwort, ich habe eine der einfachsten aber auch nicht so tolle methode nicht bedacht, es gibt diverse Converter die einem eine einfache htaccess in nginx code umwandeln, da bin ich auf der Suche nach einer erklärung zu nginx config code drüber gestolpert, damit war es dann...
                    Gestern, 21:39
                  • Localfu
                    Antwort auf Wartungs .htaccess auf nginx zum Laufen bringen?
                    HiThegreenY,
                    leider wird das nix mit .htaccess und nginx. Denn nginx ist ein sehr hochperformanter Webserver, der auf .htaccess deswegen verzichtet. Also bringt deine .htaccess-Datei auf dem Server leider nichts.

                    Da funktioniert die Apache-Konfigurationsdatein nicht. Such doch im...
                    Gestern, 21:09
                  • daniel5959
                    Antwort auf Wartungs .htaccess auf nginx zum Laufen bringen?
                    Hallo,

                    bei mehrere IPs müssten diese wohl in die IF-Zeile mit "or" hinzugefügt werden

                    PHP-Code:
                    if ($remote_addr != 127.0.0.1 or 127.0.0.2 or 127.0.0.3
                    Es heißt im Link oben



                    Wie heißt den die Konfigurationdatei in diesem Verzeichnis?...
                    Gestern, 19:54
                  • ThegreenY
                    Antwort auf Wartungs .htaccess auf nginx zum Laufen bringen?
                    Bei google habe ich die meißten Sachen jetzt schon Durch.

                    Ich würde es gerne so haben dass ich entweder eine Datei ins Verzeichnis reinladen oder umbennen muss damit die Wartung Aktiv wird, z.B. eine .htaccess datei ins Verzeichnis laden oder aber wartung_off.php in wartung_on.php umbenennen....
                    Gestern, 19:27
                  • daniel5959
                    Antwort auf Wartungs .htaccess auf nginx zum Laufen bringen?
                    Hallo,

                    bei Google gibts noch weitere Funde - auch dort mal geschaut?

                    Und wenn es nicht so funktioniert wie gewünscht, dann schildern was anders sein soll, damit die Helfer wissen, ob und wie sie helfen können.

                    daniel5959 ...
                    Gestern, 19:19
                  Lädt...
                  X