Recent content by JSmothers

Margarit, you are a life saver!! Here is my final code to call on your procedure: Thanks so much for your help!! Public Sub ImportSeveranceData() Dim strCurrProjPath As String Dim objExcel As Object 'Excel.Application Dim objWorkbook As Object 'Excel.Workbook Dim objWorksheet As Object...

Thanks so much Margarit! I will try this code today!!

Here is another piece of the code I am calling on: Public Sub tsGetFileFromUserTest() On Error GoTo tsGetFileFromUserTest_Err Dim strFilter As String Dim lngFlags As Long Dim varFileName As Variant ' strFilter = "Access (*.mdb)" & vbNullChar & "*.mdb" _ ' & vbNullChar &...

Sorry, I get that message when I dim this out: If IsNull(varFileName) Or varFileName = "" Then Debug.Print "User pressed 'Cancel'." Beep MsgBox "File selection was canceled.", vbInformation Exit Sub Else tbFile = varFileName End If

When I DIM out the error, it states "Invalid use of Null"

Hello, since my pc was upgraded, this code will not run. It goes directly to the "File selection was canceled." It worked fine before the upgrade but I had to put PtrSafe declarations in the following to get it it even open. Any help would be greatly appreciated on ideas to fix??? Option...