MOJAB 24

کار کردن در اکسل با افزونه pi datalink، می توانید مقادیر بایگانی را بر اساس برچسب و زمان برداری کنید. چگونه می توان با استفاده از کد vba basic این عمل را انجام داد؟

برای برداشتن مقادیر بایگانی از اکسل با استفاده از افزونه PI Datalink و کد VBA، می توانید از کد زیر استفاده کنید:

Sub GetArchiveValues()
    Dim startTime As Date
    Dim endTime As Date
    Dim tag As String
    Dim archiveValues As Variant
    
    ' تعیین زمان شروع و پایان
    startTime = Range("A1").Value ' مقدار زمان شروع را در سلول A1 قرار دهید
    endTime = Range("A2").Value ' مقدار زمان پایان را در سلول A2 قرار دهید
    
    ' تعیین برچسب تگ
    tag = Range("A3").Value ' برچسب تگ را در سلول A3 قرار دهید
    
    ' درخواست مقادیر بایگانی از PI Datalink
    archiveValues = Application.Run("PIArchiveValue", tag, startTime, endTime)
    
    ' نمایش مقادیر بایگانی در ستون B
    Range("B1").Resize(UBound(archiveValues, 1), 1).Value = archiveValues
    
End Sub

این کد ابتدا زمان شروع و پایان و برچسب تگ را از سلول‌های مشخص شده در ورق کاری دریافت می‌کند. سپس با استفاده از تابع PIArchiveValue از افزونه PI Datalink، مقادیر بایگانی مربوط به تگ مشخص شده در بازه زمانی مشخص شده را دریافت می‌کند. در نهایت، مقادیر بایگانی در ستون B وارد می‌شوند.

لطفا توجه داشته باشید که بمنظور استفاده از این کد، باید افزونه PI Datalink نصب و فعال باشد و نیز باید مجوز دسترسی به داده‌های بایگانی داشته باشید.