是否可以通过vba设置Excel Power查询的用户名和密码？

Sub SetPowerQueryCredentials()
    Dim conn As WorkbookConnection
    Dim cred As OLEDBConnection
    
    ' 获取Power查询的连接
    Set conn = ThisWorkbook.Connections("Connection Name")
    
    ' 获取连接的凭据
    Set cred = conn.OLEDBConnection
    
    ' 设置用户名和密码
    cred.Connection = "OLEDB;Provider=SQLOLEDB.1;User ID=YourUsername;Password=YourPassword;Data Source=YourDataSource;"
    
    ' 刷新查询
    conn.Refresh
End Sub