Excel VBA Code宏在编码时输入用户名和密码，以便宏本身登录到数据库

我对VBA宏和access非常陌生。。。我创建了一个宏，可以将数据从access导出到excel文件。现在，每次执行任何表或查询时，access数据库都需要用户名和密码。因此，当我运行宏时，它还要求进一步执行用户名和密码，因此我想在代码中输入用户名和密码，因此在执行/运行宏时，输入用户名和密码。我有下面这样的代码，但它不工作。。。请帮帮我

下面是我的代码：-

Dim ws As Excel.Worksheet
Dim xl As Excel.Application
Dim wbtarget As Workbook
Dim FinalExp As QueryDef
Dim rsFinalExp As Recordset
Dim arrFound As Variant, arrReplace As Variant
Dim i As Long

Dim Username_List As Variant
Dim Passoword_List As Variant
Dim Username As String
Dim Password As String

'Extract from Access Database

Set FinalExp = CurrentDb.QueryDefs("FinalExp")

Username = "QWERT"
Password = "TREWQ@1"

Set rsFinalExp = FinalExp.OpenRecordset()

Set xl = CreateObject("Excel.Application")


'Export to Excel

Set wbtarget = xl.Workbooks.Open("C:DestinationPath.xlsm")
Set ws = wbtarget.Worksheets("Sample File")


ws.Cells(2, 1).CopyFromRecordset rsFinalExp

'Further modification in excel

arrFound = Array("A", "B", "C")
    arrReplace = Array("Ok", "Deal", "Run")
    
    With ws
    
        For i = LBound(arrFound) To UBound(arrFound)
            .Range("B:B").Replace what:=arrFound(i), Replacement:=arrReplace(i), _
            LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
            SearchFormat:=False, ReplaceFormat:=False
        Next i
        
    End With


wbtarget.Close True

End Sub

---

看起来您正在尝试访问DB2数据库。您是否在创建到DB2表的链接时尝试保存密码？或者通过DSN？听起来像是

FinalExp

是一个。将凭据合并到其连接中。FinalExp是一个查询名称。。。DB2数据库每次登录时都会询问用户名和pwd