Copia delle righe in Excel utilizzando VBScript può essere facilmente realizzata utilizzando il blocco note, che è già incluso con sistema operativo Windows. VBScript è un linguaggio di scripting che può essere utilizzato in una varietà di ambienti. Se sei un programmatore di Visual Basic, VBScript dovrebbe essere facile da capire poiché 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

Avviare Microsoft Excel e digitare "copia" in A1, "questo" in B1 e "testo" in C1. Premere "Ctrl" e "S" per salvare il foglio di calcolo. Salvarlo come "C:\Temp\myXLS.xls." Chiudere Excel.

2

Avviare Blocco note e copia e incolla le seguenti righe di codice per aprire il foglio di lavoro creato nel passaggio 1:

Impostare objExcel = New
Impostare objWorkbook = _ objExcel.Workbooks.Open

("C:\Temp\myXLS.xls")3

Aggiungere il codice seguente per creare la variabile che si utilizzerà per copiare testo da ogni cella di una riga specifica:
Dim rowValues

4

Copiare e incollare il codice seguente per creare la variabile che identifica la riga da copiare e una variabile per identificare la riga di destinazione:

sourceRow = 1
targetRow = 2

5

Copiare e incollare il codice seguente per copiare i valori per ogni cella nella riga numero uno al numero di riga due:

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

6

Chiudere l'oggetto Excel aggiungendo il codice seguente:
objExcel.Quit

7

Premere "Ctrl" e "S" per salvare il file di VBScript come "C:\Temp\copyExcelData.vbs." Passare al "C:\Temp" e "copyExcelData.vbs" per eseguire il codice.