All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.
Private Sub ExportOneTable() 'EXPORTS TABLE IN ACCESS DATABASE TO EXCEL 'REFERENCE TO DAO IS REQUIRED Dim strExcelFile As String Dim strWorksheet As String Dim strDB As String Dim strTable As String Dim objDB As Database 'Change Based on your needs, or use 'as parameters to the sub strExcelFile = "C:\EquipmentDatabase.xls" strWorksheet = "sheet1" strDB = "Z:\Database\Machinery\MachineryDatabase.accdb" strTable = "sheet1" Set objDB = OpenDatabase(strDB) 'If excel file already exists, you can delete it here If Dir(strExcelFile) <> "" Then Kill strExcelFile objDB.Execute _ "SELECT * INTO [Excel 8.0;DATABASE=" & strExcelFile & _ "].[" & strWorksheet & "] FROM " & "[" & strTable & "]" objDB.Close Set objDB = Nothing MsgBox "Exported to C:", , "Done" End Sub
|Error compiling fairly simple database||3||16|
|How to get the MS access function DSUM to work?||4||31|
|Ms Access How Can I Display Values in a Query Differently Then They Appear? N = New or U = Used||10||15|
|MS Access Trim Function After Specific Character If It Doesn't Exist Then Show The Original Value||5||20|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
15 Experts available now in Live!