Сотни xlsx-файлов, проживающих в каталоге, импортируются в базу данных MSAccess 2010 , но пользователи, как обычно, недисциплинированы (нужна бомба ...), поэтому я должен очистите рабочий лист перед импортом. Вопрос: как удалить все строки, у которых нет данных в столбце A и всех столбцах, начиная с O до XFD? Код ниже работает, но только для одного файла времени, благодарен заранее за любую помощь. enter image description here Все красные должны быть удалены.MSAccess VBA для удаления строк и столбцов на листе
Private Sub Comand_Click()
Dim FullPath As String
Dim oXL As Object, oWb As Object, oWs As Object
FullPath = "D:\Access\_Test_XlsImport\FileName.xlsx"
Set oXL = CreateObject("Excel.Application")
Set oWb = oXL.Workbooks.Open(FullPath)
Set oWs = oWb.Sheets("Worksheet_name")
oXL.Visible = True
With oWs
.Columns("O:XFD").Delete
.Rows("xx:xx").Delete ' <---problem to identify the starting point to delete below..
End With
oWb.Save
CleanUp:
oWb.Close False
oXL.Quit
Set oWb = Nothing
Set oXL = Nothing
Set oWs = Nothing
End Sub
Вы спрашиваете, как написать цикл? Или как определить первую непустую строку? Как вы определяете «пустой» - вся строка должна быть пустой или конкретной ячейкой в столбце? – dbmitch
Точно мистер dbmitch цикл, который работает для всех резидентных файлов, проживающих в каталоге Заголовок столбца для каждого отдельного файла от A1 до N1 I Проверяем строку на первые 3 символа строки, хранящейся в первой ячейке в столбце A – PhobiaBlu