Downloading the Assignment and saving the values in excel

Sub Main()

Dim objExcel As Object
Dim objWorkbook As Object
Dim objWorksheet As Object

'Excel file name
Dim excelFileName As String
excelFileName = "Excel.xlsx"

'The path to the Excel file
Dim excelFilePath As String
excelFilePath = "T:\Kontrola_jakosci\PC-DMIS\Damian\" & excelFileName

'If the Excel file doesn't exist, create a new file
If Dir(excelFilePath) = "" Then
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Add
    Set objWorksheet = objWorkbook.Sheets(1)
Else
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open(excelFilePath)
    Set objWorksheet = objWorkbook.Sheets(1)
End If

'Column title
Dim i As Integer
objWorksheet.Cells(1, 1 ).Value =   "Wymiar x"

'Finding the first available row
i = 1
Do Until objWorksheet.Cells(i,1).Value = empty
i = i +1
Loop

'Using Assignment V1 to input values into a row
Dim App As Object
Set App = CreateObject ("PCDLRN.Application")
Dim Part As Object
Set Part = App.ActivePartProgram
Dim Var As Object
Set Var = Part.GetVariableValue ("V1")

objWorksheet.Cells(i, 1 ).Value  =  Var.LongValue


'Saving and closing Excel
objWorkbook.Save
objWorkbook.Close

objExcel.Quit
Set objExcel = Nothing
Set objWorksheet = Nothing
Set objWorkbook = Nothing
End Sub​

'Using Assignment V1 to input values into a row
Dim App As Object
Set App = CreateObject ("PCDLRN.Application")
Dim Part As Object
Set Part = App.ActivePartProgram
Dim Var As Object
Set Var = Part.GetVariableValue ("V1")

objWorksheet.Cells(i, 1 ).Value  =  Var.LongValue
​