ある Excel ワークブックのシートの範囲を合計して、別のワークブックに書き込みたい。次のコードを思いつきましたが、機能していません。
1)更新するワークブックを選択するように求めるファイルを開くウィンドウを開きます
2) ワークブックを選択すると、値として「0」が書き込まれます。
コード:
Dim xl1 As New Excel.Application
Dim xl2 As New Excel.Application
Dim wb1 As Excel.Workbook
Dim wb2 As Excel.Workbook
Dim st1 As Excel.Worksheet
Dim st2 As Excel.Worksheet
wb1 = xl1.Workbooks.Open("F:\excelsumtest\file1.xlsx")
wb2 = xl2.Workbooks.Open("F:\excelsumtest\file2.xlsx")
st1 = wb1.Worksheets(1)
st2 = wb2.Worksheets(1)
st2.Cells(1, 1).formula = "=Sum(st1!A1:S1)"
乾杯