Hoe rijen in Excel moet kopiëren met behulp van VBScript

Rijen kopieert in Excel met behulp van VBScript kan gemakkelijk worden bereikt met behulp van Notepad, die al opgenomen in uw Windows-besturingssysteem is. VBScript is een scripttaal die kan worden gebruikt in een verscheidenheid van omgevingen. Als u een Visual Basic-programmeur bent dan moet VBScript gemakkelijk te begrijpen omdat de syntax zeer vergelijkbaar is. In VBScript kunt u de "Excel.Application"-object te openen van een Excel-werkblad en eventuele waarden in het werkblad kopieert.

• Start Microsoft Excel en typ "copy" A1, "deze" in B1 en "tekst" in C1. Druk op "Ctrl" en "S" op te slaan van het werkblad. Sla het op als "C:\Temp\myXLS.xls." Sluit Excel.

• Start Kladblok en kopieer en plak de volgende coderegels aan open het werkblad dat u in stap 1 hebt gemaakt:

  Set objExcel = CreateObject("Excel.Application")
  Set objWorkbook = objExcel.Workbooks.Open _

  ("C:\Temp\myXLS.xls")

• Voeg de volgende code om de variabele die u wilt gebruiken om tekst te kopiëren van elke cel in een bepaalde rij maken:
  Dim rowValues

• Kopieer en plak de volgende code om de variabele die van de rij identificeren zal kopiëren en een variabele te identificeren van de doel-rij te maken:

  sourceRow = 1
  targetRow = 2

• Kopieer en plak de volgende code om de waarden voor elke cel in de rij nummer één aan nummer twee van de rij kopiëren:

  rowValues = objExcel.Cells (sourceRow, 1). Waarde
  objExcel.Cells (targetRow, 1). Waarde = rowValues
  rowValues = objExcel.Cells (sourceRow, 2). Waarde
  objExcel.Cells (targetRow, 2). Waarde = rowValues
  rowValues = objExcel.Cells (sourceRow, 3). Waarde
  objExcel.Cells (targetRow, 3). Waarde = rowValues

• Sluit het Excel-object door de volgende code toe te voegen:
  objExcel.Quit

• Druk op "Ctrl" en "S" op te slaan de VBScript-bestand als "C:\Temp\copyExcelData.vbs." Navigeer naar "C:\Temp" en dubbelklik op "copyExcelData.vbs" aan het uitvoeren van de code.