Wie Zeilen in Excel VBScript kopieren

Mitglieder-Login

InformationenMicrosoft Access

Wie haben Excel Solver nur ganze Za… Excel Solver ist ein Optimierungsalgorithmus von Frontline Systems , Inc. hergestellt , die entworfe
Was ist ein Excel ODS ? ODS hat ein paar Bedeutungen im Zusammenhang mit Excel-Dateien. Wenn Sie die Datei-Endung . Ods
Wie -Center Arbeitsblätter sowohl … Bei der Präsentation eine wichtige Arbeitsblatt an Ihre Kollegen Sie sie , um attraktiv und professi
Wie lassen sich zwei Email Hyperlin… Microsoft Excel 2007 können für eine Vielzahl von Funktionen verwendet werden. Viele Menschen werden

Software

HOME

* Computer Wissen >> Software >> Microsoft Access >> .

Wie Zeilen in Excel VBScript kopieren

Kopieren von Zeilen in Excel mit VBScript kann leicht mit dem Editor , der bereits mit dem Windows-Betriebssystem enthalten ist erreicht werden. VBScript ist eine Skriptsprache, die in einer Vielzahl von Umgebungen verwendet werden kann. Wenn Sie ein Visual Basic -Programmierer sind dann VBScript sollte leicht zu verstehen, da die Syntax ist sehr ähnlich. In VBScript können Sie die " Excel.Application " Aufgabe, ein Excel -Arbeitsblatt öffnen und kopieren Sie alle Werte in der Tabelle. Anleitung
1

Starten Sie Microsoft Excel und geben Sie " Kopie " in A1, "this" in B1 und "text" in C1 . Drücken Sie "Strg" und "S" , um die Tabelle zu speichern. Speichern Sie es als . "C: . \\ Temp \\ myXLS.xls " Close Excel
2

Start Notepad und kopieren Sie die folgenden Zeilen von Code, um das Arbeitsblatt, das Sie in Schritt 1 erstellt öffnen:

Set objExcel = CreateObject (" Excel.Application " ) Set objWorkbook = objExcel.Workbooks.Open _ (" C : \\ Temp \\ myXLS.xls " )
3 < p > Fügen Sie den folgenden Code, um die Variable, die Sie verwenden, um Text aus jeder Zelle kopieren in einer bestimmten Zeile erstellt : Dim rowValues
4

kopieren Sie den folgenden Code, um die Variable, die die Identifizierung schaffen Zeile zu kopieren und eine Variable , um das Ziel zu identifizieren Reihe :

sourceRow = 1targetRow = 2
5

kopieren Sie den folgenden Code , um die Werte für jede Zelle in Zeile Nummer eins kopieren .

rowValues = objExcel.Cells ( sourceRow , 1 ) ValueobjExcel.Cells ( targetRow , 1 ) = Wert = rowValuesrowValues objExcel.Cells ( sourceRow , 2) ValueobjExcel.Cells ( targetRow , : . . zur Nummer zwei rudern 2) Wert = rowValuesrowValues = objExcel.Cells ( sourceRow , 3) ValueobjExcel.Cells ( targetRow , 3) Wert = rowValues
6

Schließen Sie die Excel-Objekt , indem Sie den folgenden Code: . . . objExcel . Beenden
7

Drücken Sie "Strg " und " S ", um die VBScript-Datei speichern unter " C: . \\ Temp \\ copyExcelData.vbs " Navigieren Sie zu " C: \\ Temp" und doppelklicken Sie auf " copyExcelData . vbs ", um den Code auszuführen.