Avviare Microsoft Office Access , selezionare " Strumenti di database ", quindi su " Visual Basic " per aprire la finestra " Microsoft Visual Basic " .
2
Selezionare " Inserisci " dal menu e fare clic su " Modulo "
3
Copia e incolla il seguente codice al modulo : .
Sub importExcelfile ( ) per
Dim sheetPath As String
sheetPath = "C: \\ Book1.xls "
DoCmd.TransferSpreadsheet acImport , acSpreadsheetTypeExcel97 , _
" ImportedSpreadsheet " , sheetPath , vero , " Foglio1 A1 ! : D100 "
MsgBox" Foglio1 Importato da " & sheetPath e " con successo "
End Sub
!
software © www.354353.com