Aperte .
2
Clicca su "Strumenti " di Microsoft Excel "Macro" e quindi fare clic su " Visual Basic ". Si aprirà l'ambiente di programmazione VBA .
3
Fare clic su " Inserisci ", "Modulo" . Si è ora in un modulo di codice di programmazione
Digitare o copiare e incollare il seguente codice : .
WorksheetExists funzione ( _
FullPathToWorkbook String, _
WorksheetName As String _
) come booleano
Dim objExcel As Object Dim
objWorksheet As Object
objExcel = CreateObject ( " Excel.Application " ) per
objExcel.Workbooks.Open " c: \\ Book1.xls "
Ogni objWorksheet In objExcel.ActiveWorkbook.Worksheets
objWorksheet.Name = " Foglio3 " Allora
WorksheetExists = True
MsgBox ( " foglio di lavoro esiste " ) per
Exit For End If
Successivo
objWorksheet
objExcel.ActiveWorkbook.Close SaveChanges : = False
objExcel = Nothing End Function
Programmazione © www.354353.com