VＢ.NETでエクセル操作

質問

度々失礼します。

ＶＢよりエクセルを開けて
Ａ列の数字の合計とＢ列の数字の合計との差を
Label1に表示するようなソースで悩んでます。
教えて下さい。よろしくお願い致します。

回答No.1

BLUEPIXY · ベストアンサー

Dim excel As Object
excel = GetObject("D:\sample\test.xls")
dim sumA as integer = excel.Application.WorksheetFunction.Sum(excel.Sheets("Sheet1").Range("A:A"))
dim sumB as integer = excel.Application.WorksheetFunction.Sum(excel.Sheets("Sheet1").Range("B:B"))
みたいな感じで、Ａ列とＢ列の合計が求められます

お礼

ＢＬＵＥＰＩＸＹ　様

早速のご回答でありがとうございます。
返事が遅くなりまして、申し訳ございませんでした。
質問させて頂きました悩みは解決しました。

ちなみにエクセルを開いた後、オートフィルタの検索値を合計するにはどうすればよいのでしょうか？
Ｓｕｂｔｏｔａｌは使用できませんよね？

よろしくお願い致します。

補足

今現在のソースです。

Dim app As Object
Dim book As Object
Dim sheet As Object
Dim Selection As Object

app = CreateObject("Excel.Application")
app.application.visible = True

book = app.Workbooks.Open("C:\ｘｘｘ.xls")
sheet = book.Worksheets(1)

With sheet.Range("A1")
If .AutoFilter Then .AutoFilter(field:=1, Criteria1:=TextBox1.Text)
End With

Dim sumA As Integer = app.WorksheetFunction.sum(sheet.Range("C:C"))
Dim sumB As Integer = app.WorksheetFunction.sum(sheet.Range("D:D"))

Label1.Text = sumA + sumB

回答No.2

BLUEPIXY

>Ｓｕｂｔｏｔａｌは使用できませんよね？
使えますよ

お礼

BLUEPIXY 様

解決しました。ありがとうございました。