code to delete rows based of empty cells

[jcbrackett]

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

[aytee111]

Sounds very complicated - why not just import the entire file (exclude headings if that is your row 1) and then run a delete query to delete all records where column D is blank (null). Use DoCmd.TransferSpreadsheet

[jcbrackett]

I would but the problem is that i do not want the data imported as the file grows as the month goes on, becomes quit large and is ALOT of useless data within it at that point.

[ssanfu]

How about checking column d and if NULL, skip that line (don't import it). Don't have to delete the line, just don't import it....