Cópia de linhas no Excel usando VBScript pode ser facilmente realizado usando o Bloco de Notas , que já está incluído no seu sistema operacional Windows. VBScript é uma linguagem que pode ser utilizada numa variedade de ambientes . Se você é um programador Visual Basic , em seguida, VBScript deve ser fácil de entender já que a sintaxe é muito semelhante. No VBScript , você pode usar o objeto " Excel.Application " para abrir uma planilha do Excel e copiar todos os valores na planilha. Instruções
1
Abra o Microsoft Excel e digite " cópia " em A1, "isto" em B1, e " texto" em C1. Pressione " Ctrl" e "S" para salvar a planilha. Salve-o como . "C: . \\ Temp \\ myXLS.xls " Fechar Excel
2
lançamento Notepad e copie e cole as seguintes linhas de código para abrir a planilha que você criou no Passo 1 : < br > Definir
objExcel = CreateObject (" Excel.Application " ) Definir objWorkbook = objExcel.Workbooks.Open _ (" C: \\ Temp \\ myXLS.xls " ),
3
Adicione o seguinte código para criar a variável que você vai usar para copiar o texto de cada célula em uma linha especial: rowValues Dim
4
copie e cole o seguinte código para criar a variável que irá identificar o linha para copiar e uma variável para identificar a linha de destino :
sourceRow = 1targetRow = 2
5
copie e cole o seguinte código para copiar os valores para cada célula na linha número um para a linha número dois : . . .
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
Feche o objeto Excel , adicionando o seguinte código: objExcel . Sair
7
Pressione " Ctrl" e "S" para salvar o arquivo VBScript como "C: . \\ temp \\ copyExcelData.vbs " navegar para "C: \\ Temp" e clique duas vezes em " copyExcelData . vbs "para executar o código.