1
clic en la pestaña " desarrolladores" y seleccione "Insertar ". Seleccione una función en " controles de formulario " o "Controles ActiveX ". Esto convierte el cursor en cruz . Haga clic en la celda en la que desea que el formulario o el botón ActiveX en aparecer. Haga clic en el botón y seleccione
2
Copia y pega el código de abajo " Ver código. "
Función SkipLineInFile
Const ForReading = 1 , ForWriting = 2
Dim fso , f
Set fso = CreateObject ( " Scripting.FileSystemObject " )
Set f = fso.OpenTextFile ("c : \\ archivoPrueba.txt " , ForWriting , True)
f.Write " ¡Hola, mundo ! " Y vbCrLf & " VBScript es divertido ! "
Set f = fso.OpenTextFile ("c : \\ archivoPrueba.txt " , ForReading )
f.SkipLine
SkipLineInFile = f.readline
End Function
3
Haga clic en " archivo", " Guardar Libro1 " y el nombre de su archivo . Haz clic en la flecha desplegable a la derecha de "Guardar como tipo ", seleccione " Libro de Excel habilitado para macros " y haga clic en " Guardar".