Truy vấn Macro Microsoft Excel

Xin chào,

Tôi đã ghi lại một macro để hoàn thành một quy trình mà tôi phải làm mỗi tuần. Macro được thiết lập trên một bảng tính để thực thi trên một bảng tính khác. Vấn đề của tôi là tên tệp của bảng tính thứ hai liên tục thay đổi mỗi tuần vì ngày tháng luôn được cập nhật trong tên tệp. Điều này buộc tôi phải thay đổi thủ công trong VBA và rất khó sử dụng đối với những người hoàn toàn không quen thuộc với VBA. Có ai có thể cung cấp cho tôi một cách để macro của tôi chạy trên bảng tính này bất kể tên tệp là gì không? Tôi sẽ đăng một vài dòng đầu tiên của macro để tham khảo, nếu bạn cần thêm thông tin thì không vấn đề gì. Cảm ơn rất nhiều!

Windows("ManagmentLookupsCED-06-08-2018.xlsx").Activate
Range("Table_Query_from_OrionReporting[[#Headers],[OrionLeadID]]").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Table_Query_from_OrionReporting", Version:=6).CreatePivotTable _
TableDestination:="Sheet2!R3C1", TableName:="PivotTable1", DefaultVersion _
:(6
Trang tính ("Trang tính 2"). Chọn
Ô (3, 1).Chọn
Với ActiveSheet.PivotTables("PivotTable1")
.ColumnGrand = True
.HasAutoFormat = True
.DisplayErrorString = False
.DisplayNullString = True
.EnableDrilldown = True
.ErrorString = ""
.MergeLabels = False
.NullString = ""
.PageFieldOrder = 2
.PageFieldWrapCount = 0
.PreserveFormatting = True
.RowGrand = True
.SaveData = True
.PrintTitles = False
.RepeatItemsOnEachPrintedPage = True
.TotalsAnnotation = False
.CompactRowIndent = 1
.InGridDropZones = False
.DisplayFieldCaptions = True
.DisplayMemberPropertyTooltips = False
.DisplayContextTooltips = True
.ShowDrillIndicators = True
.PrintDrillIndicators = False
.AllowMultipleFilters = False
.SortUsingCustomLists = True
.FieldListSortAscending = Sai
.ShowValuesRow = False
.CalculatedMembersInFilters = False
.RowAxisLayout xlCompactRow
Kết thúc bằng
Với ActiveSheet.PivotTables("PivotTable1").PivotCache
.RefreshOnFileOpen = False
.MissingItemsLimit = xlMissingItemsDefault
Kết thúc bằng

Trả lời:
Là tên tệp tin hay tên trang tính bị thay đổi?

Trả lời:
Tôi đoán là cả hai? Thành thật mà nói, tôi không biết có sự khác biệt ở đó. Hàng ngày, tệp ManagmentLookupsCED-06-08-2018.xlsx được làm mới và ngày tháng được cập nhật. Báo cáo này được chạy một lần mỗi tuần. Hy vọng điều đó hữu ích.

Trả lời:
Các phiếu bài tập là các tab ở phía dưới. Bạn có thể đổi tên chúng.

Bạn có thể thêm vào macro của mình để mở hộp thoại chọn tệp, cho phép người dùng chọn tệp thay vì mã hóa cứng chức năng này vào trong chương trình.

Điều này sẽ giúp bạn bắt đầu:
https://www.ozgrid.com/forum/forum/help-forums/...

Lưu ý: Đây là trang web không thuộc Microsoft. Trang này dường như cung cấp thông tin chính xác và an toàn. Hãy cẩn thận với các quảng cáo trên trang web có thể quảng cáo các sản phẩm thường được phân loại là PUP (Sản phẩm không mong muốn tiềm ẩn). Hãy nghiên cứu kỹ bất kỳ sản phẩm nào được quảng cáo trên trang web trước khi bạn quyết định tải xuống và cài đặt nó.

Trả lời:
Tôi đã thử sử dụng "Application.Getopenfilename" để thay thế dòng đầu tiên, nhưng không may là sau đó nó cứ liên tục báo lỗi. Kỹ năng lập trình macro của tôi chưa đủ tốt để giải quyết vấn đề này.