Kopiering rader i Excel ved hjelp av VBScript kan enkelt oppnås ved å bruke Notepad , som allerede er inkludert med Windows-operativsystemet . VBScript er et skriptspråk som kan brukes i en rekke miljøer . Hvis du er en Visual Basic -programmerer deretter VBScript skal være enkelt å forstå siden syntaksen er svært like. I VBScript kan du bruke " Excel.Application " objekt for å åpne et Excel-regneark og kopiere noen verdier i regnearket . Instruksjoner
en
Launch Microsoft Excel og skriv " kopi " i A1 , "dette" i B1 , og " tekst" i C1 . Trykk "Ctrl " og " S" for å lagre regnearket . Lagre det som . " C: . \\ Temp \\ myXLS.xls " Close Excel
2
Launch Notepad og kopiere og lime inn følgende linjer med kode for å åpne regnearket du opprettet i trinn 1 :
Set objExcel = CreateObject ( " Excel.Application ") Set objWorkbook = objExcel.Workbooks.Open _ ( "C : \\ Temp \\ myXLS.xls ")
3
Legg til følgende kode for å opprette variabelen som du vil bruke til å kopiere tekst fra hver celle i en bestemt rad : Dim rowValues
4
Kopier og lim inn følgende kode for å lage den variabelen som vil identifisere rad for å kopiere og en variabel til å identifisere målet rad : en
sourceRow = 1targetRow = 2
5
Kopier og lim inn følgende kode for å kopiere verdiene for hver celle i rad nummer én å ro nummer to: .
rowValues = objExcel.Cells ( sourceRow , 1 ) ValueobjExcel.Cells ( targetRow , 1 ) Verdi = rowValuesrowValues = objExcel.Cells ( sourceRow , 2 ) ValueobjExcel.Cells ( targetRow , . . 2 ) Verdi = rowValuesrowValues = objExcel.Cells ( sourceRow , 3 ) ValueobjExcel.Cells ( targetRow , 3 ) Verdi = rowValues
6
Lukk Excel-objekt ved å legge følgende kode: . . . objExcel . Avslutt
7
Trykk " Ctrl" og " S " for å lagre VBScript filen som " C: . \\ Temp \\ copyExcelData.vbs " Naviger til "C : \\ Temp " og dobbeltklikk på " copyExcelData . vbs "for å utføre koden .