VＢ.NETでエクセル操作

度々失礼します。

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

No.1 ベストアンサー 回答者： BLUEPIXY 回答日時： 2005/11/24 23:16

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

補足日時：2005/11/26 00:03

この回答へのお礼

ＢＬＵＥＰＩＸＹ　様

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

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

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

お礼日時：2005/11/25 23:49

No.2 回答者： BLUEPIXY 回答日時： 2005/11/26 02:17

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

使えますよ

この回答へのお礼

BLUEPIXY 様

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

お礼日時：2005/11/26 21:12