Fare clic sulla scheda " sviluppatori" e selezionare "Inserisci ". Selezionare una funzione sotto "Controlli modulo " o " controlli ActiveX. " Questo trasforma il cursore in mirino . Fare clic sulla cella in cui si desidera che la forma o il pulsante ActiveX di apparire . Fare clic con il pulsante e selezionare
2
Copia e incolla il codice qui sotto " Visualizza codice ". :
Funzione SkipLineInFile
Const ForReading = 1 , ForWriting = 2
Dim fso , f
Set fso = CreateObject ( " Scripting.FileSystemObject " ) per
Set f = fso.OpenTextFile ( "c : \\ Testfile.txt " , ForWriting , True)
f.write " Ciao mondo ! " & VbCrLf & " VBScript è divertente ! "
Set f = fso.OpenTextFile ( "c : \\ Testfile.txt " , ForReading ) per
f.SkipLine
SkipLineInFile = f.readline
End Function
3
Fare clic su " File ", " Salva Book1 " e il nome del file . Fare clic sulla freccia a discesa a destra di "Salva come ", selezionare " Cartella di lavoro Excel con attivazione macro " e fare clic su " Salva ".
software © www.354353.com