ник: Вакшуль Сергей
Добрый вечер,
Сделал тестовую процедуру(чтобы выполнить код поставьте ссылку на библиотеку Excel):
Sub test()
Dim lLastRow As Long
Dim lLastCol As Long
Dim objExcel As Excel.Application
Dim sse As String
Dim wb As Excel.Workbook
Dim wsh As Excel.Worksheet
sse = "C:\Users\Vakshul\Documents\Книга2.xlsx"
Set objExcel = CreateObject("Excel.application")
objExcel.Visible = True
Set wb = objExcel.Workbooks.Open(FileName:=sse, ReadOnly:=False)
Set wsh = wb.Worksheets(1)
With wsh
lLastRow = .Cells(.Rows.Count, 3).End(xlUp).Row
.Range("C" & lLastRow + 1).Value = "ФамилияЛат"
.Range("F" & lLastRow + 1).Value = "Заказчик"
.Range("D" & lLastRow + 1).Value = "krat"
' If Len(Примечания) > 0 Then
.Range("C" & lLastRow + 1).AddComment ' примечание
.Range("C" & lLastRow + 1).Comment.Visible = False '' примечание
.Range("C" & lLastRow + 1).Comment.Text Text:=Chr(34) & "Примечания" & Chr(34) ' примечание
' End If
End With
Set objExcel = Nothing
End Sub
|
код работает стабильно. Office 2010
В прошлый раз, когда я говорил о четкой иерархии и привел пример:
lLastRow = wb.Sheets(1).Cells(Sheets(1).Rows.Count, 3).End(xlUp).Row
я просто обозначил направление. Думал, вы доделаете.
Выделил жирным пропущенный кусок.
lLastRow = wb.Sheets(1).Cells(
wb.Sheets(1).Rows.Count, 3).End(xlUp).Row
В общем, все работает.
Сергей