パソコン

フリーページ

< 新しい記事

新着記事一覧(全201件)

過去の記事 >

2024年05月09日

サム

カテゴリ：カテゴリ未分類

Sub SummarizeExcelData()
Dim xlApp As Excel.Application
Dim wb1 As Excel.Workbook, wb2 As Excel.Workbook, wb3 As Excel.Workbook
Dim ws1_1 As Excel.Worksheet, ws2_1 As Excel.Worksheet, ws3 As Excel.Worksheet
Dim Total1 As Double, Total2 As Double, Total3 As Double
Dim filePath1 As String, filePath2 As String, filePath3 As String

' Excelファイルのパスを設定します（ここで正しいパスに変更してください）
filePath1 = "C:\Path\To\集計1.xlsx"

filePath3 = "C:\Path\To\集計3.xlsx"

' Excelアプリケーションのインスタンスを作成
Set xlApp = New Excel.Application
xlApp.Visible = False ' Excelのウィンドウを非表示にする

' ワークブックを開く
Set wb1 = xlApp.Workbooks.Open(filePath1)
Set wb2 = xlApp.Workbooks.Open(filePath2)
Set wb3 = xlApp.Workbooks.Open(filePath3)

Set ws1_1 = wb1.Sheets("sheet1")
Set ws2_1 = wb2.Sheets("sheet1")
Set ws3 = wb3.Sheets("集計3")

' 各セルから値を取得

Total2 = ws2_1.Range("N62").Value
Total3 = ws3.Range("D2").Value

' 結果を表示
ws3.Range("E1").Value = "集計結果"
ws3.Range("E2").Value = Total3 & "（" & Total2 & "," & Total1 & "）"

' ワークブックを保存して閉じる
wb1.Close False
wb2.Close False
wb3.Save
wb3.Close

' Excelアプリケーションを閉じる
xlApp.Quit

' オブジェクトの解放
Set ws1_1 = Nothing
Set ws2_1 = Nothing
Set ws3 = Nothing
Set wb1 = Nothing
Set wb2 = Nothing
Set wb3 = Nothing
Set xlApp = Nothing

' 完了メッセージ
MsgBox "集計が完了しました。", vbInformation, "完了"

' "集計3"を開く
Set xlApp = New Excel.Application
xlApp.Visible = True
Set wb3 = xlApp.Workbooks.Open(filePath3)
Set ws3 = wb3.Sheets("集計3")
End Sub

お気に入りの記事を「いいね！」で応援しよう