U mag in de problemen wanneer je probeert om programmatisch te schrijven aan een open Excel-werkblad , vooral als je het opent het een tweede keer . Excel ondersteunt geen andere werkmap opent met dezelfde naam , zelfs als het is opgeslagen in een ander pad . Met Visual Basic for Applications , of VBA , kunt u de Window Interface -object gebruiken om actieve Windows schakelen in plaats van het openen van de spreadsheet om data te versturen . Met behulp van de Window-object kan ook het verbeteren van de snelheid van gegevensoverdracht , omdat je niet hoeft te de spreadsheet meerdere malen te openen om te schrijven naar het. Instructies
1 Launch Excel en typ " Dit is de open sheet " in " A1 . " Sla de werkmap op " C : \\ Temp \\ " als " . Sheet1.xlsx " kopen van 2 Lanceer een nieuwe sessie van Excel , en typ " data een " in " A1 ", "data b " in " B1 " en " data c " in " C1 . " Klik op het tabblad " Developer " en klik op " Visual Basic " om de Visual Basic Editor venster te starten . Klik op het menu "Invoegen " en klik op "Module . " Typ de volgende code om een nieuwe procedure te maken: " . Enter" Private Sub transferDataToSheet
( ) Pers
Kopieer en plak de volgende 3 tot drie variabelen naar cel data-hold te maken: Dim clmnA
als Koord Dim clmnB
als Koord Dim clmnC
als Koord
Copy 4 en plak de volgende code om de waarden in de cellen A1 , B1 en C1 in variabelen opslaan : . .
p Met Worksheets ( " Blad1 " ) op Twitter Range ( " A1 " ) Selecteer
clmnA = ActiveCell.Value
. Range ( " B1 " ) . Selecteer clmnB = ActiveCell.Value
. Range
( " C1 " ) . Selecteer < br clmnC End > = ActiveCell.Value
met
5 Kopieer en plak de volgende aan de open werkblad ( Sheet1.xlsx ) activeren:
. Windows ( " Blad1 " ) Activeer
Copy 6 en plak de volgende om de gegevens van uw huidige werkblad over te dragen aan de open werkblad :
p Met werkbladen ( " Blad1 " ) < br > . Range ( " A2 " ) . Selecteer Selection.Value = clmnA
. Range
( " B2 " ) . Selecteer Selection.Value
= clmnB . Range
( " C2 " ) . Selecteer Selection.Value Einde
= clmnC
met
Druk op " F5 " 7 tot lopen uw procedure om gegevens over te dragen aan de open werkblad .
|
