Kopiera rader i Excel med hjälp av VBScript kan enkelt åstadkommas genom att använda Notepad , som redan ingår i operativsystemet Windows . VBScript är ett skriptspråk som kan användas i en mängd olika miljöer. Om du är en Visual Basic -programmerare sedan VBScript ska vara lätt att förstå eftersom syntaxen är mycket lika . I VBScript kan du använda " Excel.Application " objektet för att öppna ett Excel-kalkylblad och kopiera alla värden i kalkylbladet . Instruktioner
1
Starta Microsoft Excel och typ "kopiera " i A1 , " här " i B1 , och " text " i C1 . Tryck på " Ctrl " och " S " för att spara kalkylbladet . Spara det som . " C: . \\ Temp \\ myXLS.xls " Stäng Excel
2
Launch Anteckningar och kopiera och klistra in följande rader kod för att öppna kalkylbladet som du skapade i Steg 1 :
Set objExcel = CreateObject ( " Excel.Application " ) Set objWorkbook = objExcel.Workbooks.Open _ ( " C : \\ Temp \\ myXLS.xls " ) Addera 3
Lägg till följande kod för att skapa den variabel som du använder för att kopiera text från varje cell i en viss rad : Dim rowValues
4
Kopiera och klistra in följande kod för att skapa variabeln som kommer att identifiera rad för att kopiera och en variabel för att identifiera målet raden :
sourceRow = 1targetRow = 2
5
Kopiera och klistra in följande kod för att kopiera värdena för varje cell i rad nummer ett att ro nummer två : .
rowValues = objExcel.Cells ( sourceRow , 1 ) ValueobjExcel.Cells ( targetRow , 1 ) Standard = rowValuesrowValues = objExcel.Cells ( sourceRow , 2 ) ValueobjExcel.Cells ( targetRow , . . 2 ) Värde = rowValuesrowValues = objExcel.Cells ( sourceRow , 3 ) ValueobjExcel.Cells ( targetRow , 3 ) Standard = rowValues
6
Stäng Excel-objektet genom att lägga till följande kod : . . . objExcel . avsluta
7
Tryck " Ctrl " och " S " för att spara VBScript filen som " C: . \\ Temp \\ copyExcelData.vbs " Navigera till " C : \\ Temp " och dubbelklicka på " copyExcelData . vbs " för att köra koden .
