1
lanzamiento Microsoft Excel y escriba " copia " en la A1, " este ", en B1, y " texto" en C1 . Pulse la tecla "Ctrl " y " S " para guardar la hoja de cálculo . Guardar como . "C: . \\ Temp \\ myXLS.xls " Close Excel
2
Bloc de notas de lanzamiento y copiar y pegar las siguientes líneas de código para abrir la hoja de trabajo que ha creado en el Paso 1 :
Set objExcel = CreateObject ( " Excel.Application ") Set objWorkbook = objExcel.Workbooks.Open _ ("C: \\ temp \\ myXLS.xls " )
3
Agregue el código siguiente para crear la variable que va a utilizar para copiar texto de cada celda de una fila particular: rowValues Dim
4
Copia y pega el siguiente código para crear la variable que identificará el fila a copiar y una variable para identificar la fila de destino :
sourceRow = 1targetRow = 2
5
copia y pega el siguiente código para copiar los valores de cada celda de la fila número uno a la fila número dos : .
rowValues = objExcel.Cells ( sourceRow , 1 ) ValueobjExcel.Cells ( targetRow , 1 ) Valor = rowValuesrowValues = objExcel.Cells ( sourceRow , 2 ) ValueobjExcel.Cells ( targetRow , . . 2 ) Valor = rowValuesrowValues = objExcel.Cells ( sourceRow , 3 ) ValueobjExcel.Cells ( targetRow , 3 ) Valor = rowValues
6
Cierre el objeto de Excel agregando el siguiente código: . . . objExcel . Salir
7 Pulse
" Ctrl" y " S " para guardar el archivo de VBScript como " C: . \\ temp \\ copyExcelData.vbs " Vaya a " C: \\ Temp " y haga doble clic en " copyExcelData . vbs "para ejecutar el código.