Avviare Microsoft Office Excel e digitare " 1 " a " A1 ". Digitare " 2 " a " A2 ", "3" in " A3 " e "4" in " A4 ".
2
Selezionare la " scheda" e fare clic su "Sviluppatore Visual Basic . " Tasto destro del mouse "Microsoft Excel Oggetti " e selezionare "Inserisci ", quindi fare clic su "Modulo ".
Tipo
" saveDataArray Private Sub ( ) " per creare una subroutine e premere "Invio ".
3
digitare quanto segue per dichiarare le variabili :
Dim txtFileNum As Integer Dim
dataArray ( 5) As String Dim
xloop As Integer
4
Digitare quanto segue per creare un nuovo file di testo :
aprire "C: \\ MyTextFile.txt " For Append As # txtFileNum
sostituire "C : \\ myTextFile . . txt " con il nome del file di vostra scelta
5
digitare quanto segue per scorrere i dati in Excel e salvarlo sul tuo array:
xloop = 1 a 4
Range (" A" & xloop ) . Scegli
dataArray ( xloop ) = Range ( " A" & xloop ) . Valore
Avanti xloop
Pagina 6
digitare quanto segue per scorrere la matrice e salvare i dati nel file di testo :
xloop = 1 To 4
Stampa # txtFileNum , dataArray ( xloop )
Avanti xloop
7
digitare quanto segue per chiudere il file di testo :
chiudere # txtFileNum
Premere " F5 " per eseguire il sottoprogramma .
software © www.354353.com