copie de rangées dans Excel à l'aide de VBScript peut facilement être accompli en utilisant le Bloc-notes , qui est déjà inclus avec votre système d'exploitation Windows. VBScript est un langage de script qui peut être utilisé dans une variété d'environnements. Si vous êtes un programmeur Visual Basic puis VBScript doit être facile à comprendre car la syntaxe est très similaire. En VBScript , vous pouvez utiliser l'objet " Excel.Application " pour ouvrir une feuille de calcul Excel et copier toutes les valeurs de la feuille de calcul . Instructions
1
Lancez Microsoft Excel et tapez " copie " en A1 ", ce" dans B1, et "texte" en C1 . Appuyez sur " Ctrl" et " S " pour enregistrer la feuille de calcul . Enregistrez-le sous . "C: \\ temp \\. MyXLS.xls " Fermer Excel
2
Notepad de lancement et copier et coller les lignes de code suivantes pour ouvrir la feuille de calcul que vous avez créé à l'étape 1 : < br >
Set objExcel = CreateObject (" Excel.Application ") Set objWorkbook = objExcel.Workbooks.Open _ (" C: \\ Temp \\ myXLS.xls " )
3 < p > Ajoutez le code suivant pour créer la variable que vous allez utiliser pour copier le texte de chaque cellule dans une ligne particulière : Dim rowValues
4
Copiez et collez le code suivant pour créer la variable qui permettra d'identifier le ligne à copier et une variable pour identifier la ligne de cible :
sourceRow = 1targetRow = 2
5
Copiez et collez le code suivant pour copier les valeurs de chaque cellule dans le numéro de ligne d'une à la ligne numéro deux : .
rowValues = objExcel.Cells ( sourceRow , 1) ValueobjExcel.Cells ( targetRow , 1) Valeur = rowValuesrowValues = objExcel.Cells ( sourceRow , 2) ValueobjExcel.Cells ( targetRow . . 2) Valeur = rowValuesrowValues = objExcel.Cells ( sourceRow , 3) ValueobjExcel.Cells ( targetRow , 3) Valeur = rowValues
6
Fermez l'objet Excel en ajoutant le code suivant : . . . objExcel . quitter
7
Appuyez sur "Ctrl " et " S" pour enregistrer le fichier VBScript comme "C: \\ temp \\. copyExcelData.vbs " Naviguer vers "C: \\ Temp " et double -cliquez sur " copyExcelData . vbs " pour exécuter le code .
