Come copiare le righe in Excel Utilizzando VBScript

December 1

Come copiare le righe in Excel Utilizzando VBScript


file Copia 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 di Visual Basic allora VBScript 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 Excel e copiare tutti i valori nel foglio di calcolo.

istruzione

1 Avviare 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. Salvarlo come "C: \ Temp \ myXLS.xls." Chiudere Excel.

2 Avviare Blocco note e copiare e incollare le seguenti righe di codice per aprire il foglio di lavoro creato nel passaggio 1:

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 determinata riga:
rowValues ​​Dim

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

sourceRow = 1
targetRow = 2

5 Copia e incolla il seguente codice per copiare i valori per ogni cella in numero di riga uno alla riga numero due:

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

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

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