问如何在.net中更改google sheets api v4中范围的颜色
EN

Stack Overflow用户

提问于 2016-07-13 09:52:03

回答 0查看 4.1K关注 0票数 4

我尝试使用google sheets api v4来修改VB.Net中现有的电子表格。我使用BatchGetRequest和BatchUpdateRequest对文件进行读写：

        'Get File's Datas
        Dim reqBatchGet As SpreadsheetsResource.ValuesResource.BatchGetRequest = service.Spreadsheets.Values.BatchGet(fileId)
        reqBatchGet.Ranges = "'2016'!A1:AP60"
        Dim test = reqBatchGet.Execute()

        Dim myBatchUpdate As BatchUpdateValuesRequest = New BatchUpdateValuesRequest()
        myBatchUpdate.ValueInputOption = "RAW"
        myBatchUpdate.Data = New List(Of ValueRange)


        For Each res As GetDatasMonitoringAgencyResult In result

            Dim vrxN As ValueRange = New ValueRange()
            Dim lstN As IList(Of IList(Of Object)) = New List(Of IList(Of Object))

            lstN.Add(New List(Of Object)(New Object() {res.N01, res.N02, res.N03, res.N04, res.N05, res.N06, res.N07, res.N08, res.N09, res.N10, res.N11, res.N12}))

            For Each n In lstN

                For Each dataInN In n

                    If dataInN Is Nothing Then
                        dataInN = "-"
                    End If
                Next
            Next

            vrxN.Values = lstN

            Dim RangeN As String = String.Format("'{0}'!D{1}:O{1}", Now.Year, res.ligne)
            vrxN.Range = RangeN
            vrxN.MajorDimension = "ROWS"

            Dim vrxN_1 As ValueRange = New ValueRange()
            Dim lstN_1 As IList(Of IList(Of Object)) = New List(Of IList(Of Object))

            lstN_1.Add(New List(Of Object)(New Object() {res.N_01, res.N_02, res.N_03, res.N_04, res.N_05, res.N_06, res.N_07, res.N_08, res.N_09, res.N_10, res.N_11, res.N_12}))

            For Each n_1 In lstN_1

                For Each dataInN_1 In n_1

                    If dataInN_1 Is Nothing Then
                        dataInN_1 = ""
                    End If
                Next
            Next

            vrxN_1.Values = lstN_1
            Dim RangeN_1 As String = String.Format("'{0}'!AD{1}:AO{1}", Now.Year.ToString(), res.ligne)
            vrxN_1.Range = RangeN_1
            vrxN_1.MajorDimension = "ROWS"

            myBatchUpdate.Data.Add(vrxN)
            myBatchUpdate.Data.Add(vrxN_1)
        Next
        Dim reqBatchUpdate As SpreadsheetsResource.ValuesResource.BatchUpdateRequest = service.Spreadsheets.Values.BatchUpdate(myBatchUpdate, fileId)

        reqBatchUpdate.Execute()

现在，我想改变一些单元格的颜色。我尝试使用conditionalRule：

  Dim req As Request = New Request()
        Dim acfrr As AddConditionalFormatRuleRequest = New AddConditionalFormatRuleRequest()
        acfrr.Rule = New ConditionalFormatRule()
        Dim range1 As GridRange = New GridRange()
        range1.SheetId = 0
        range1.StartColumnIndex = 1
        range1.StartRowIndex = 1
        acfrr.Rule.Ranges = New List(Of GridRange)
        acfrr.Rule.Ranges.Add(range1)
        acfrr.Rule.GradientRule = New GradientRule()
        acfrr.Rule.GradientRule.Minpoint = New InterpolationPoint()
        acfrr.Rule.GradientRule.Minpoint.Type = "MIN"
        acfrr.Rule.GradientRule.Minpoint.Color = New Google.Apis.Sheets.v4.Data.Color()
        acfrr.Rule.GradientRule.Minpoint.Color.Red = 1
        acfrr.Rule.GradientRule.Minpoint.Color.Green = 0
        acfrr.Rule.GradientRule.Minpoint.Color.Blue = 0
        acfrr.Rule.GradientRule.Midpoint = New InterpolationPoint()
        acfrr.Rule.GradientRule.Midpoint.Type = "NUMBER"
        acfrr.Rule.GradientRule.Midpoint.Value = 0.5
        acfrr.Rule.GradientRule.Midpoint.Color = New Google.Apis.Sheets.v4.Data.Color()
        acfrr.Rule.GradientRule.Midpoint.Color.Red = 0
        acfrr.Rule.GradientRule.Midpoint.Color.Green = 1
        acfrr.Rule.GradientRule.Midpoint.Color.Blue = 0
        acfrr.Rule.GradientRule.Maxpoint = New InterpolationPoint()
        acfrr.Rule.GradientRule.Maxpoint.Type = "MAX"
        acfrr.Rule.GradientRule.Maxpoint.Color = New Google.Apis.Sheets.v4.Data.Color()
        acfrr.Rule.GradientRule.Maxpoint.Color.Red = 0
        acfrr.Rule.GradientRule.Maxpoint.Color.Green = 0
        acfrr.Rule.GradientRule.Maxpoint.Color.Blue = 1
        acfrr.Index = 0
        req.AddConditionalFormatRule = acfrr
        Dim testReq As BatchUpdateSpreadsheetRequest = New BatchUpdateSpreadsheetRequest()
        testReq.Requests = New List(Of Request)
        testReq.Requests.Add(req)
        Dim responseAddConditionalRules = service.Spreadsheets.BatchUpdate(testReq, fileId).Execute