🤖UiPathでVBAを活用する方法：ExcelマクロとRPAを連携させる完全ガイド

Public Function UpdateCell(address As String, value As String) As String
  On Error GoTo ErrorHandler
  
  ' セルに値を設定
  Range(address).Value = value
  
  ' 成功時の戻り値
  UpdateCell = "完了"
  Exit Function
  
ErrorHandler:
  UpdateCell = "エラー: " & Err.Number & " - " & Err.Description
End Function

Public Function FormatRange(startCell As String, endCell As String, fontSize As Integer) As String
  On Error GoTo ErrorHandler
  
  Dim targetRange As Range
  Set targetRange = Range(startCell & ":" & endCell)
  
  With targetRange
      .Font.Size = fontSize
      .Font.Bold = True
      .Interior.Color = RGB(255, 255, 200) ' 薄い黄色の背景
      .Borders.LineStyle = xlContinuous
  End With
  
  FormatRange = "書式設定完了"
  Exit Function
  
ErrorHandler:
  FormatRange = "エラー: " & Err.Number & " - " & Err.Description
End Function

Public Function CreateSalesChart(dataRange As String, chartTitle As String) As String
  On Error GoTo ErrorHandler
  
  Dim ws As Worksheet
  Dim chartObj As ChartObject
  
  Set ws = ActiveSheet
  
  ' グラフを作成
  Set chartObj = ws.ChartObjects.Add(Left:=300, Top:=50, Width:=400, Height:=250)
  
  With chartObj.Chart
      .SetSourceData Source:=Range(dataRange)
      .ChartType = xlColumnClustered
      .HasTitle = True
      .ChartTitle.Text = chartTitle
      .HasLegend = True
  End With
  
  CreateSalesChart = "グラフ作成完了"
  Exit Function
  
ErrorHandler:
  CreateSalesChart = "エラー: " & Err.Number & " - " & Err.Description
End Function

Public Function SafeVBAOperation(param1 As String, param2 As Integer) As String
  On Error GoTo ErrorHandler
  
  ' 引数の検証
  If param1 = "" Then
      SafeVBAOperation = "エラー: パラメータ1が空です"
      Exit Function
  End If
  
  If param2 <= 0 Then
      SafeVBAOperation = "エラー: パラメータ2は正の整数である必要があります"
      Exit Function
  End If
  
  ' メイン処理
  ' ... ここに実際の処理を記述 ...
  
  ' 正常終了
  SafeVBAOperation = "正常終了"
  Exit Function
  
ErrorHandler:
  ' エラー情報を返す
  SafeVBAOperation = "VBAエラー: " & Err.Number & " - " & Err.Description
End Function