Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4 / 13196 ツリー ←次へ | 前へ→

【80249】ExcelVBA 外部データのピボットをまとめて更新 VBA初心者 18/12/3(月) 6:20 質問[未読]

【80254】Re:ExcelVBA 外部データのピボットをまとめ... マナ 18/12/3(月) 19:52 発言[未読]
【80256】Re:ExcelVBA 外部データのピボットをまとめ... VBA初心者 18/12/3(月) 23:13 発言[未読]
【80258】Re:ExcelVBA 外部データのピボットをまとめ... マナ 18/12/4(火) 18:45 発言[未読]

【80254】Re:ExcelVBA 外部データのピボットをまと...
発言  マナ  - 18/12/3(月) 19:52 -

引用なし
パスワード
   ▼VBA初心者 さん:

フォルダごとコピーすれば、問題ないような気がしますが…
テーブル名で指定しているからでしょうか?

>都度同フォルダ内のソースを取得して更新したいのですが、可能でしょうか?

Sub test()
  Dim wb As Workbook
  Dim DATA_SOURCE As String
  Dim ws As Worksheet
  Dim pvt As PivotTable
  
  Set wb = Workbooks.Open(ThisWorkbook.Path & "\データ.xlsx")
  DATA_SOURCE = wb.Sheets("データ").Cells(1).CurrentRegion.Address(, , xlR1C1, True)

  For Each ws In ThisWorkbook.Worksheets
    For Each pvt In ws.PivotTables
      pvt.SourceData = DATA_SOURCE
    Next
  Next
  
  wb.Close False

End Sub

【80256】Re:ExcelVBA 外部データのピボットをまと...
発言  VBA初心者  - 18/12/3(月) 23:13 -

引用なし
パスワード
   ▼マナさん

返信ありがとうございます!
ただ…

>      pvt.SourceData = DATA_SOURCE

この部分で
実行時エラー ‘1004’:
アプリケーション定義またはオブジェクト定義のエラーです

と出てしまいます。
もうひと押しのような印象なので諦めきれません!

【80258】Re:ExcelVBA 外部データのピボットをまと...
発言  マナ  - 18/12/4(火) 18:45 -

引用なし
パスワード
   ▼VBA初心者 さん:

>もうひと押しのような印象なので諦めきれません!

こちらでは、原因がわかりませんが、
DATA_SOURCEは、期待通りのアドレスとなっていることは確認済みでしょうか。

4 / 13196 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free