, затем запустите цикл, который закончится, когда он найдет пустое значение в столбце A:
ел бы посчитать строки, которые имеют значения. Я старалсяoSheet.Rows.Count но это не работает Есть идеи по этому поводу?
Мой код следующий:
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
oExcel = CreateObject("Excel.Application")
oBook = oExcel.Workbooks.Add
oSheet = oBook.Worksheets("Sheet")
oSheet.Range("A" & max).Value = "0000111"
oSheet.Range("B1").Value ="Name"
oBook.SaveAs("C:\New folder\excel\" & datenw & ".xlsx")
oExcel.Quit()