Aprire Microsoft Office Access 2007 , selezionare " Strumenti di database ", quindi su " Visual Basic ". Selezionare il menu "Inserisci" e fare clic su "Modulo ".
2
Copia e incolla il seguente nel nuovo modulo .
Private Sub ExportAccessDataToExcel ( ) per
Dim SqlString As String
SqlString = " CREATE TABLE testMeasurements ( TESTO TestName , testo di stato ) "
DoCmd.SetWarnings False
DoCmd.RunSQL ( SqlString ) per
SqlString = " INSERT INTO testMeasurements VALUES ( 'Power media ' , 'pass' ) "
DoCmd.RunSQL ( SqlString ) per
SqlString = " INSERT INTO testMeasurements VALUES ( 'Power Vs Time' , ' FAIL ') "
DoCmd.RunSQL ( SqlString ) per
SqlString =" testMeasurements.TestName SELECT, testMeasurements.Status INTO exportToExcel "
SqlString = SqlString & " DA testMeasurements "
SqlString = SqlString & " WHERE ( ( ( testMeasurements.TestName ) = ' media potenza ')); "
DoCmd.RunSQL ( SqlString ) per
DoCmd.TransferSpreadsheet acExport , acSpreadsheetTypeExcel7 , _
" exportToExcel " , "G : \\ TestMeasurements.xls ", True , "A1 : G12 "
End Sub
3
eseguire la subroutine con il tasto " F5 ".
software © www.354353.com