ник: Мишок
Вакшуль Сергей , огромное Вам спасибо. Вы правы об отладке кода.
код был такй
Dim lLastRow As Long
Dim lLastCol As Long
Dim objExcel As Object, sse As String
sse = "X:\Groups\МС.xls"
Set objExcel = CreateObject("Excel.application")
With objExcel
.Workbooks.Open fileName:=sse, ReadOnly:=False
.Visible = True
lLastRow = Cells(Rows.Count, 3).End(xlUp).Row
' MsgBox lLastRow + 1
.Sheets(1).Range("C" & lLastRow + 1).Value = ФамилияЛат & ИмяЛат
.Sheets(1).Range("F" & lLastRow + 1).Value = Заказчик
.Sheets(1).Range("D" & lLastRow + 1).Value = krat
If Len(Примечания) > 0 Then
.Sheets(1).Range("C" & lLastRow + 1).AddComment ' примечание
.Sheets(1).Range("C" & lLastRow + 1).Comment.Visible = False '' примечание
.Sheets(1).Range("C" & lLastRow + 1).Comment.Text Text:=Chr(34) & Примечания & Chr(34) ' примечание
End If
End With
Set objExcel = Nothing
|