Увеличить высоту строки Excel - PullRequest
Новая
       5

Увеличить высоту строки Excel

0 голосов
/ 05 августа 2020

Мне нужно увеличить высоту строк в моем Excel, только если в столбце «O» каждой строки написано что-то ... используя VB. net или C#. Я пробовал это: 

Imports Microsoft.Office.Interop.Excel

Module ExcelHandler
    Private Function SetRowHeight(ByVal filePath As String, ByVal sheetName As String) As Double
        Dim _xl As New Application
        Dim _xlBook As Workbook
        Dim _xlSheet1 As Worksheet
        Dim HeightRowsByRange As Double

        _xlBook = _xl.Workbooks.Open(filePath)
        _xlSheet1 = _xlBook.Worksheets(sheetName)
    
        For counter As Integer = 5 To 3000
            If String.IsNullOrEmpty(_xlSheet1.Rows(counter).Column("O").ToString) Then
                HeightRowsByRange = _xlSheet1.Rows(counter).RowHeight
                _xlSheet1.Rows(counter).RowHeight = HeightRowsByRange + 15.0
            End If
        Next
    
        _xlBook.Close(True)
        _xl.Quit()
    End Function

    Sub Main()
        Dim filePath As String = "C:\\Users\\Test\\Desktop\\General\\Output\\2020-06 1 - MR - Pronto - Copia"
        Dim sheetName As String = "MR (giam)"

        Dim returnedHeight As Double = SetRowHeight(filePath, sheetName)

        Debug.WriteLine(returnedHeight)
    End Sub
End Module

Но у меня есть это исключение для оператора if:

System.MissingMemberException: 'Для типа' Integer 'не найдены члены по умолчанию.'

Где ошибка? Спасибо

...