คือตอนนี้ผมใช้ โคสแค่นี้ เอา excel ออกมา
ได้ excel 3 ชีส
Qry_Inq_Dss_detail
Qry_Rpt_DSS_Final_ZONE
Qry_Rpt_DSS_Final_ZONE_CMR

ผมต้องการเปลี่ยน ชื่อ 3 ชีส นี้ ได้ไหมครับ ตอนนี้มันดึงชื่อที่ตั้งตาม Qry มา
อะครับ


Dim Strsql As String
Dim pathname As String



    With Me.ComDialog
        .Filter = "Microsoft Excel|*.xls"
        .filename = "" & "Dss_Report_" & Month(Me.Date_Entry) & Year(Me.Date_Entry) & ".xls"
        .ShowSave
        pathname = .filename
    End With
If pathname = "" Then
GoTo Ext
End If
    dbConnect.dbConnect
        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Qry_Inq_Dss_detail", pathname
        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Qry_Rpt_DSS_Final_ZONE", pathname
        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Qry_Rpt_DSS_Final_ZONE_CMR", pathname
    MsgBox "Tranfer to " & pathname & " Complete !!!"
Ext:     Exit Sub


ขอบคุณมากครับ