Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.
Function getXlFile() Dim objXL As Object, xlSht As Object Dim strWSname As String Dim i As Integer, j As Integer Dim sFile, sTable sFile = "\\anetworkshare\test\test.xls" sTable = "Headcount_Import" Set objXL = CreateObject("Excel.Application") objXL.Workbooks.Open sFile, , True With objXL For i = 1 To .worksheets.Count strWSname = .worksheets(i).Name Set xlSht = .activeworkbook.worksheets(i) 'Get header names For j = 1 To xlSht.usedrange.Columns.Count ' Test msg box ' MsgBox xlSht.cells(1, j).Value Next DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ "" & sTable & "_" & strWSname & "", sFile, True, "" & strWSname & "!" Next End With objXL.Quit Set objXL = Nothing End Function
|Spell checker for VBA||4||29|
|MS Access 2012, Split Form||2||39|
|qry in a qry worked by week ending date! how do I get it to work by weeks (y-t-d) instead of one week at a time?||25||56|
|How open a file when clicking on a text field||7||19|