kopiëren rijen in Excel met behulp van VBScript kan gemakkelijk worden bereikt met Kladblok , dat reeds is inbegrepen bij uw Windows-besturingssysteem . VBScript is een scripttaal die kan worden gebruikt in een verscheidenheid van omgevingen . Als je een Visual Basic -programmeur dan VBScript moet gemakkelijk te begrijpen omdat de syntax is zeer vergelijkbaar . In VBScript kunt u de " Excel.Application " object gebruiken om een Excel-werkblad te openen en kopieer alle waarden in de spreadsheet . Instructies Lancering Microsoft Excel 1 en type " copy " in A1 , "dit" in B1 , en "text " in C1 . Druk op " Ctrl " en " S " aan het werkblad op te slaan . Sla het op als . ' C : . \\ Temp \\ myXLS.xls " Close Excel kopen van 2 Launch Notepad en kopieer en plak de volgende regels code om het werkblad die u hebt gemaakt in stap 1 te openen : < br Set > objExcel = CreateObject ( " Excel.Application " ) Set objWorkbook = objExcel.Workbooks.Open _ ( " C : \\ Temp \\ myXLS.xls " ) 3 Voeg de volgende code toe aan de variabele die u wilt gebruiken om tekst te kopiëren uit elke cel in een bepaalde rij te maken: Dim rowValues Kopieer 4 en plak de volgende code om de variabele die zal bepalen het creëren rij te kopiëren en een variabele aan de doelrij identificeren: sourceRow = 1targetRow = 2 Copy 5 en plak de volgende code om de waarden voor elke cel in rij nummer een copy . rowValues = objExcel.Cells ( sourceRow , 1 ) ValueobjExcel.Cells ( targetRow , 1 ) Value = rowValuesrowValues = objExcel.Cells ( sourceRow , 2 ) ValueobjExcel.Cells ( targetRow , : . . naar nummer twee roeien 2 ) Waarde = rowValuesrowValues = objExcel.Cells ( sourceRow , 3 ) ValueobjExcel.Cells ( targetRow , 3 ) Value = rowValues 6 Sluit het Excel-object door toevoeging van de volgende code : . . . objExcel . quit Druk " Ctrl " 7 en " S " om de VBScript- bestand op te slaan als " C : . \\ Temp \\ copyExcelData.vbs " Navigeer naar " C : \\ Temp " en dubbelklik op " copyExcelData . vbs "om de code uit te voeren .
|