so i have this vba script
But some of the users of this file want it to be useable on web,
for this i would like to know if there is an equivalent way to do this with either office scripts or power automate
i dont know if this is even possible.
any advice or solutions are appreciated
VBA Code:
Sub import()
Application.DisplayAlerts = False 'switching off the alert button
Application.ScreenUpdating = False
Dim fName As String, wb As Workbook, sh As Worksheet
Dim lastRow As String
MsgBox "Select the List"
Application.ScreenUpdating = False
fName = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If fName <> "" Then
Set wb = Workbooks.Open(fName)
wb.Sheets(1).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
wb.Close False
Sheets("Data").Select
Sheets("Data").Name = "List"
lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & lastRow).Select
ActiveCell.FormulaR1C1 = "fill"
End If
Sheets("List").Select
Range("A3:EP3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Tellingen").Select
lastRow = ActiveSheet.Cells(Rows.Count, "I").End(xlUp).Row
Range("I" & lastRow).Select
ActiveSheet.Paste
Sheets("List").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True 'switching on the alert button
End Sub
But some of the users of this file want it to be useable on web,
for this i would like to know if there is an equivalent way to do this with either office scripts or power automate
i dont know if this is even possible.
any advice or solutions are appreciated