我有从存储过程写入控制台的代码，但是我想写入文本文件/ Excel

CREATE PROCEDURE WriteToTextFile
AS
BEGIN
    DECLARE @FileID INT
    DECLARE @FileObject INT
    DECLARE @FilePath VARCHAR(100)
    DECLARE @TextData VARCHAR(100)

    SET @FilePath = 'C:\path\to\output.txt'
    SET @TextData = 'Hello, World!'

    EXEC @FileObject = sp_OACreate 'Scripting.FileSystemObject', @FileID OUT
    EXEC sp_OAMethod @FileObject, 'OpenTextFile', @FileID OUT, @FilePath, 8, 1
    EXEC sp_OAMethod @FileID, 'WriteLine', NULL, @TextData
    EXEC sp_OAMethod @FileID, 'Close', NULL
    EXEC sp_OADestroy @FileID
END

using OfficeOpenXml;

CREATE PROCEDURE WriteToExcelFile
AS
BEGIN
    DECLARE @FilePath VARCHAR(100)
    DECLARE @TextData VARCHAR(100)

    SET @FilePath = 'C:\path\to\output.xlsx'
    SET @TextData = 'Hello, World!'

    DECLARE @ExcelPackage VARBINARY(MAX)
    DECLARE @FileStream VARBINARY(MAX)

    -- Create a new Excel package
    SET @ExcelPackage = CAST('' AS VARBINARY(MAX))
    EXEC sp_OACreate 'System.IO.MemoryStream', @FileStream OUTPUT
    EXEC sp_OAMethod @FileStream, 'Write', NULL, @ExcelPackage, 0
    EXEC sp_OADestroy @FileStream

    -- Load the Excel package
    DECLARE @ExcelPackageObject INT
    EXEC sp_OACreate 'OfficeOpenXml.ExcelPackage', @ExcelPackageObject OUTPUT
    EXEC sp_OAMethod @ExcelPackageObject, 'Load', NULL, @ExcelPackage

    -- Get the first worksheet
    DECLARE @WorksheetObject INT
    EXEC sp_OAMethod @ExcelPackageObject, 'GetWorksheet', @WorksheetObject OUTPUT, 1

    -- Write data to the worksheet
    EXEC sp_OAMethod @WorksheetObject, 'Cells', NULL, 1, 1, @TextData

    -- Save the Excel package to a file
    EXEC sp_OAMethod @ExcelPackageObject, 'SaveAs', NULL, @FilePath

    -- Clean up
    EXEC sp_OADestroy @WorksheetObject
    EXEC sp_OADestroy @ExcelPackageObject
END