Question : Avoir besoin de Microsoft VBA pour faire une boucle par le presse-papiers et pour ajouter des disques par l'intermédiaire de la commande SQL exécutée par Currentdb ?

Tous, note du

Please l'article suivant j'ai copié dans mon besoin de clipboard.

I le codage d'un certain VBA qui me permettra de faire une boucle par le texte de presse-papiers et de prendre chaque ligne article comme corde et de l'insérer pendant qu'un SQL statement.

I comprennent déjà comment obtenir mon sSQL de corde = « INSERTION DANS la table…. » et faire un sSQL de CurrentDb.execute - je juste n'ai pas le codage à faire une boucle par le presse-papiers.  Et je veux être sûr que je n'ajoute pas la première rangée mais plutôt saut au second.

IF que vous ne savez pas que les VBA codant pour faire une boucle par le presse-papiers dans Microsoft Access satisfont alors le bon refrain du commentaire.  Je n'essayerais plutôt pas autre chose.  Jusque exactement ce que je fais moi manipulerai la pièce de corde qui s'insère dans un autre table.

Thanks sincerely. class= > " clair " de

> de " codeSnippet " de class= de

class= " lineNumbers " de

class= de

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 :

la quantité " de " codeSnippet816920 d'id= " de Text45 de class= a vérifié de nouvelles Unitcost remarques de txtUnitcost de txtDiscount de QTYPERRM EXQTY $15.952 10215 ont moulé le système de déplacement : Inclut la lame tenue dans la main de wth de coupeur, boîte métallique mobile de vide, et la base 1343 des écarteurs M 0 de fonte a offert 0 1.00 0 1.00 $2.400.00 1.00 $2.400.00 « poste de travail $15.952 12706 : Processeur d'informations de formation image avec le moniteur d'écran plat de 17 "" ; Unité centrale de traitement et logiciel standard préchargé. La » base 23371 de M -1 a offert 0 1.00 0 1.00 $3.000.00 1.00 $3.000.00 $15.952 14215 « TV : la couleur de 20 "", avec la » base 12665 à télécommande de N 0 a offert 0 3.00 0 3.00 $289.00 1.00 $867.00 four $15.952 17146 : La micro-onde, résidentiel, la partie supérieure du comptoir ou le Cabinet ont monté N -1 6445 que la base a offert 0 1.00 0 1.00 $650.00 1.00 $650.00 « civière $15.952 19661 : Électrique, base 1731 avec de 4 "" de matelas épais la » M -1 a offert 0 1.00 0 1.00 $5.600.00 1.00 $5.600.00 balance $15.952 19721 : Le stand dessus, Digitals, avec la balustrade, la base 1768 de l'adapteur M -1 d'a/c a offert 0 1.00 0 1.00 $2.595.00 1.00 $2.595.00 « fauteuil roulant $15.952 19899 : L'adulte, la norme, siège large de 18 "", avec Anti-Plient le dispositif, Perm arme, a fixé des pieds, le noir » N 0 21829 que la base a offert 0 3.00 0 3.00 $280.00 1.00 $840.00

class= de

Réponse : Avoir besoin de Microsoft VBA pour faire une boucle par le presse-papiers et pour ajouter des disques par l'intermédiaire de la commande SQL exécutée par Currentdb ?

   Faible DataObj en tant que nouveau MSForms.DataObject
   Faible S comme corde
   Faibles lignes comme variante
   Faible ligne comme corde
   DataObj.GetFromClipboard
   S = DataObj.GetText
   'Vous avez maintenant une corde contenir le texte de presse-papiers.
   
   Les lignes = se sont dédoublées (S, Chr (13))
   'Ceci coupe la corde en ensemble de différentes lignes
   Pour chaque ligne dans les lignes
      'Mettre votre code pour manipuler chaque ligne ici
   Après