Cách tạo nguồn dữ liệu động cho pivot table từ 1 file excel khác. (2 người xem)

[dazkangel]

Xin chào các bác, em có 1 file excel làm pivot table lấy từ file excel khác từ ổ đĩa server.
Mỗi tháng file excel sẽ đổi vị trí và tên nên em mong muốn có 1 cách để có thể lấy dữ liệu tự động hoặc theo 1 ô mà em nhập vị trí và tên file vào.
Với file excel dữ liệu có 1 password cố định cho em hỏi luôn có cách nào gán password sẵn để mở mà không cần nhập lại.

 

[dazkangel]

@HieuCD anh giúp em với, có công thức VBA nào gán địa chỉ (ví dụ: A1='D:\Dazk\[abc.xlsx]Sheet1'!$A$1:$D$12) từ 1 ô chỉ định vào nguồn pivot được không ạ.

 

[HieuCD]

@HieuCD anh giúp em với, có công thức VBA nào gán địa chỉ (ví dụ: A1='D:\Dazk\[abc.xlsx]Sheet1'!$A$1:$D$12) từ 1 ô chỉ định vào nguồn pivot được không ạ.

Gởi file ví dụ lên mới hình dung được

 

[dazkangel]

Gởi file ví dụ lên mới hình dung được

File em để công ty rôi, để em giải thích thế này à.
Em tạo 1 file in ấn dựa vào pivot để lọc dữ liệu ví dụ lấy dữ liệu 1 file ở ổ Z:/LO/WH/2019/01/[finishgood]out!A1:F5000 chẳng hạn.
Dữ liệu pivot thay đổi theo tháng có cách nào gán lại source data không anh.

 

[HieuCD]

File em để công ty rôi, để em giải thích thế này à.
Em tạo 1 file in ấn dựa vào pivot để lọc dữ liệu ví dụ lấy dữ liệu 1 file ở ổ Z:/LO/WH/2019/01/[finishgood]out!A1:F5000 chẳng hạn.
Dữ liệu pivot thay đổi theo tháng có cách nào gán lại source data không anh.

Code mình dùng bộ thu macro

Sub Macro1()
    ActiveSheet.PivotTables("PivotTable1").ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "C:\Users\Administrator\Downloads\[Loc Pickup.xlsx]DL!R9C1:R48C14", Version:= _
        xlPivotTableVersion12)
End Sub

Bạn chỉnh lại và chạy thử

 

[dazkangel]

Code mình dùng bộ thu macro

Sub Macro1()
    ActiveSheet.PivotTables("PivotTable1").ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "C:\Users\Administrator\Downloads\[Loc Pickup.xlsx]DL!R9C1:R48C14", Version:= _
        xlPivotTableVersion12)
End Sub

Bạn chỉnh lại và chạy thử

Anh cho em hỏi cái dòng này có thể dựa vào 1 ô trên file excel không ạ.
SourceData:= _"'D:\[dulieu.xlsx]Sheet1'!$A$1:$D$100"
SourceData:= _"C1" chẳng hạn.

 

[HieuCD]

Anh cho em hỏi cái dòng này có thể dựa vào 1 ô trên file excel không ạ.
SourceData:= _"'D:\[dulieu.xlsx]Sheet1'!$A$1:$D$100"
SourceData:= _"C1" chẳng hạn.

Dùng 1 ô lưu source với địa chỉ vùng dữ liệu theo dạng: R9C1:R48C14
C:\Users\Administrator\Downloads\[Loc Pickup.xlsx]DL!R9C1:R48C14