I am completely stumped and have searched and searched. I am trying(well can succesfully) import an excel file into an access table. I am stumped on trying to search colum D for blank cells and then delete the whole row. The code i used works for what i currently do and that is delete row 1 then import the file. I want to continue using that by deleting row 1 first then find the blank cells in column d and delete the whole row, then continue with the import. Below is my code i currently have:
Sub ModTMM()
Dim oXL As Object
Dim sFullPath As String
Set oXL = CreateObject("Excel.Application")
sFullPath = CurrentProject.Path & "\TMM\CrystalReportViewer1.xls"
With oXL
'.ScreenUpdating = False
.Visible = True
.Workbooks.Open (sFullPath)
.DisplayAlerts = False
.ActiveWorkbook.Sheets(1).Rows(1).Delete
.ActiveWorkbook.Save
.Quit
End With
ImportTMM
End Sub