Come copiare le righe in Excel tramite VBScript

Copia di file in Excel utilizzando VBScript può essere facilmente realizzato utilizzando il Blocco note , che è già incluso con il sistema operativo Windows . VBScript è un linguaggio di script che può essere utilizzato in una varietà di ambienti . Se sei un programmatore Visual Basic, VBScript quindi dovrebbe essere facile da capire dato che la sintassi è molto simile . In VBScript è possibile utilizzare l' oggetto " Excel.Application " per aprire un foglio di lavoro di Excel e copiare tutti i valori nel foglio di calcolo. Istruzioni
1

lancio di Microsoft Excel e digitare " copia" in A1 , "questo" in B1 , e "testo" in C1. Premere il tasto " Ctrl " e " S " per salvare il foglio di calcolo . Salva come . "C: . \\ Temp \\ myXLS.xls " Chiudi
2

lancio Blocco note e copia di Excel e incollare le seguenti righe di codice per aprire il foglio di lavoro creato nel passaggio 1 : < br

Set> objExcel = CreateObject ( " Excel.Application " ) Set objWorkbook = objExcel.Workbooks.Open _ ( "C : \\ Temp \\ myXLS.xls " )
3

Aggiungere il seguente codice per creare la variabile che si intende utilizzare per copiare il testo da ogni cella in una riga specifica : rowValues Dim
4

Copia e incolla il seguente codice per creare la variabile che identificherà il fila di copia e una variabile per individuare la riga di destinazione :

sourceRow = 1targetRow = 2
5

copia e incolla il seguente codice per copiare i valori per ogni cella in riga numero uno a remare numero due : .

rowValues = objExcel.Cells ( sourceRow , 1 ) ValueobjExcel.Cells ( targetRow , 1 ) Valore = rowValuesrowValues = objExcel.Cells ( sourceRow , 2) ValueobjExcel.Cells ( targetRow , . . 2 ) Valore = rowValuesrowValues = objExcel.Cells ( sourceRow , 3) ValueobjExcel.Cells ( targetRow , 3) Valore = rowValues
6

Chiudere l'oggetto Excel , aggiungendo il seguente codice : . . . objExcel . Uscire
7

Premere " Ctrl" e "S" per salvare il file VBScript come "C: . \\ Temp \\ copyExcelData.vbs " Naviga a " C : \\ Temp" e fare doppio clic su " copyExcelData . vbs " per eseguire il codice .