x = objExcel.Cells(objExcel.Rows.Count, 1).End(-4162).Row

rs = objExcel.ActiveWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
rs = objExcel.ActiveWorkbook.ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Sub Test ()
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add (1)
For i = 1 To 5
objExcel.Cells(i, 1).Select
objExcel.Cells(i, 1) = 12
objExcel.ActiveCell.Offset(i, 1).Select
Next i
rs = objExcel.Cells(Rows.Count, 1).End(xlUp).Row
objExcel.Quit
Set objExcel = Nothing
End Sub

Sub Summ()
Dim ДК, ДК0, Сумма As Long
Dim ЖК, ЖК0 As String

ReDim Arr(0 To 3) As String
Arr(0) = "500-1x2"
Arr(1) = "100-1x2"
Arr(2) = "200-7x2"
Arr(3) = "300-7x2"

For i = LBound(Arr) To UBound(Arr)
s = s + 1
If S = 1 Then
        ДК = Left(Arr(i), InStr(1, Arr(i), "-") - 1) 'получаем длину
        ЖК = Right(Arr(i), InStr(1, Arr(i), "-") - 1) 'получаем жильность
        Сумма = Сумма + ДК
Else
        ДК0 = Left(Arr(i), InStr(1, Arr(i), "-") - 1)
        ЖК0 = Right(Arr(i), InStr(1, Arr(i), "-") - 1)
            If ЖК0 = ЖК Then
            Сумма = Сумма + ДК0
            End If
End If
Next i
MsgBox "Сумма кабеля жильностью" & ЖК & " - " & Сумма
End Sub

Sub r()
Dim PathX, PDFname
On Error Resume Next
PathX = ActiveWorkbook.Path
SetXXX = CreateObject("Scripting.FileSystemObject")
PDFname = XXX.GetBaseName(ActiveWorkbook.Name)
ChDir PathX
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFname, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Dim XL
Set XL = GetObject(, "Excel.Application" )
XL.ActiveSheet.ExportAsFixedFormat 0, , 0, True, False,,,True

With CreateObject("Scripting.FileSystemObject")
    For Each X In wscript.arguments
      .ExportAsFixedFormat 0, , 0, True, False,,,True
    Next
  End With

Sub asdas()
Set SI_ = CreateObject("ADSystemInfo")
Set Un_ = GetObject("LDAP://" & SI_.UserName)
UZ_ = Un_.DisplayName
Debug.Print UZ_
End Sub

CreateObject("WScript.Network").UserName
CreateObject("WScript.Network").ComputerName
CreateObject("WScript.Network").UserDomain

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Const EM_GETLINECOUNT = 186
 
' Подсчет строк
Public Function Strok() As Long
Strok = UBound(Split(TextBox1.Text, vbNewLine)) + 1
End Function
 
' Подсчет символов
Public Function Simvols() As Long
Simvols = Len(TextBox1.Text)
End Function
 
Private Sub CommandButton1_Click()
Lin = SendMessage(TextBox1.hwnd, EM_GETLINECOUNT, 0&, 0&)
'Вывод происходит в Label:
Label1.Caption = "Кол-во строк:" & " " & Strok & " " & "Кол-во символов: " & Simvols & " " & "Кол-во линий: " & Lin
End Sub

Sub UnionPages()For L = 2 To Sheets.Count
Sheets(L).Range("A1:Z" & Sheets(L).UsedRange.Rows.Count + 1).Copy Sheets(1).Range("A" & Sheets(1).UsedRange.Rows.Count)
Next
End Sub

Sub qq()
    With ActiveWorkbook
        .SaveAs Left$(.FullName, InStrRev(.FullName, ".") - 1) & ".xls", 56
    End With
End Sub

Sub AnyExtTOxls()
With ActiveWorkbook
BaseName = CreateObject("Scripting.FileSystemObject").GetBaseName(.FullName)
.SaveAs Filename:=.Path & Application.PathSeparator & BaseName & ".xls", FileFormat:=xlExcel8
End With
End Sub