0

ツール: asp.net VB、SpreadsheetGear 2010

外部ユーザーから Excel ファイルを読み込む必要がありますが、形式を制御できません。3 つのセクションのデータがあります。ヘッダーを読み取ることができます。課題は、本文の詳細に無限の数の行が含まれる可能性があり、それらの行が空白になる場合があることです。一意のテキストがあるため、フッター行を特定できます。したがって、次のことを実行できます。

Dim dFoot As SpreadsheetGear.IRange = worksheet.Cells("20:21").Rows

Dim rngDet As SpreadsheetGear.IRange  

rngDet = dFoot.Find(what:="UNIQUE TEXT HERE", 
                    lookIn:=SpreadsheetGear.FindLookIn.Values, 
                    lookAt:=SpreadsheetGear.LookAt.Whole, 
                    searchOrder:=SpreadsheetGear.SearchOrder.ByColumns, 
                    searchDirection:=SpreadsheetGear.SearchDirection.Next, 
                    matchCase:=False, 
                    after:=dFoot)

残念ながら、私は今ここで立ち往生しています。セルがどこにあるか (すなわち V79)、または挿入する最初の値を取得するために 7 列を上に 3 列を下に移動する方法を特定できません。オフセットと を読み取るさまざまな方法をrngDet試しましたが、うまくいきません。アクティブ セルも読み取ろうとrngDet.Activate()しましたが、Microsoft と同じようには機能しません。

あなたが提供できる助けに感謝します。

4

1 に答える 1

0

ティム、ご質問ありがとうございます。初めて質問したので、よく分からなかったかもしれません。今日、私は自分自身のための答えを見つけました。アップロードする必要があるセルのグループがあります。問題は、上記のセクションに入力された行数に応じて、ページを上下に移動することです。それがどの列に入るかわかっていたので、次のことを実行しました。

Dim x As Integer
    Dim xFooter As Integer
    Dim columnnumber As Integer = 21 'Column V

    txtTest.Text = worksheet.Cells.RowCount
    For x = 500 To 1 Step -1

        If worksheet.Cells(x, columnnumber).Value = "TOTAL PRODUCT COST CALCULATION" Then
            txtTest.Text = x
            xFooter = x
            Exit For
        End If
    Next x

x 値をセル グループの左隅として使用できるようになりました。値がここから 7 列を超えて 20 行下にあることがわかっているため、値の象限が得られます。

誰かが同じ問題を抱えている場合に備えて、共有したいと思いました。

于 2012-11-15T01:41:08.027 に答える