Vba 微焦点/反射工作区Attachmate.Emulation.Frame（32）位不'；关不上

我有一个宏，它运行14个文件传输，并将Relection Workspace连接到AS400机器。我使用Visual Basic自动执行宏，以便在Outlook提醒启动时运行。多年来，它一直运作良好。昨天，我买了一台新电脑，现在宏在没有人工干预的情况下无法运行。宏运行第一次文件传输，然后被卡住

我在任务管理器中发现，当反射打开时，它会在应用程序中打开Attachmate.Emulation.Frame（32）位。通常，当宏关闭反射时，此应用程序将关闭，不再显示在任务管理器中

在新机器上，此应用程序未关闭，宏无法继续。如果我在任务管理器中手动关闭应用程序，宏将继续。每次完成文件传输时，我都必须这样做

以下是其中一个文件传输的代码：

Sub Branch_Admin_To_L_Regional_No_AUXRABAll_Closed()

Dim Session As Reflection.Session
Set Session = CreateObject("ReflectionIBM.Session")
Session.SetupSession rc5250Terminal, rc31792, rcTelnet

vUID400 = "A778833ODBA"

With Session
.SetNumeric rcXfr400Transport, rcLIPITCP
.SetString rcHostName, "CENTRAL"
.SetString rcAPPNNetID, ""
.SetString rcLocationName, ""
.SetString rcUserName, vUID400
.SetString rcPassword, vPW400
.SetNumeric rcSingleSignOn, rcNo
.SetNumeric rcTelnetUseSocks, rcNo
.SetString rcModeName, "QPCSUPP"
.SetString rcFQRemoteLu, ""
.SetString rcSNADomainSuffix, ""
.SetString rcMPTNIPAddress, ""
.SetNumeric rcXfrSpacesToUnderscores, rcYes
.SetNumeric rcXfrUnderscoresToSpaces, rcYes
.SetNumeric rcXfrReceive8Dot3, rcNo
.SetNumeric rcXfr8Dot3FilenameCase, rcLowerCase
.SetNumeric rcXfr400ExistsAction, rcAppend
.SetNumeric rcXfr400UseDescriptionFile, rcYes
.SetNumeric rcXfr400SaveDescriptionFile, rcNo
.SetNumeric rcXfr400SendConversion, rcAS400DIF
.SetNumeric rcXfr400ReceiveConversion, rcAS400CommaDelim
.SetNumeric rcXfr400HostFileType, rcAS400Data
.SetNumeric rcXfr400Authority, rcAuthReadwrite
.SetNumeric rcXfr400RecordLength, rcAS400DefaultRecLen
.SetNumeric rcXfr400TimeFormat, rcAS400TimeDFT
.SetNumeric rcXfr400DateFormat, rcAS400DateDFT
.SetNumeric rcXfr400TimeSeparator, rcAS400Default
.SetNumeric rcXfr400DateSeparator, rcAS400Default
.SetNumeric rcXfr400IgnoreDecErrors, rcNo
.SetNumeric rcXfr400ReturnMissing, rcYes
.SetNumeric rcXfr400DecSep, rcAS400WinDefault
.SetNumeric rcXfr400OutputDest, rcAS400File
.SetString rcXfr400FileText, ""
.SetString rcXfr400MemberText, ""
.SetString rcXfr400SendDescFile, "R:\My Doc\pt101pup1.FDF"
.SetString rcXfr400ReceiveDescFile, "*.FDF"
.SetString rcXfr400LocalFile, "X:\NA\7799\branch_officesAll.csv"
.SetString rcXfr400RemoteFile, "ellib/offdrb, ellib/auxdrb, ellib/pt102p, ellib/pt100p, ellib/pt102p01,ellib/offwwd"
.SetString rcXfr400SortSeq, "*JOB"
.SetString rcXfr400RefFile, ""
.SetNumeric rcXFR400Objects, rcRepMemberConf
.SetNumeric rcXfr400ShowProgress, rcYes
.SetNumeric rcXfr400Charset, rcAS400ANSICS
.SetNumeric rcXfr400DeleteTrailingSpaces, rcYes
.SetString rcXfrCurrentDirectory, "R:\my documents"
.SetNumeric rcXfr400StartRecord, rcDefaultStartRecord
.SetNumeric rcXfr400NCS, rcUSEnglish
.SetNumeric rcXfr400CompatibleFDFFile, rcNo
.SetNumeric rcXfr400AssumePositiveNumerics, rcNo
.SetString rcAS400LinkName, ""
.SetNumeric rcXfr400HostTP, rcLIPI
.SetNumeric rcXfr400ForceHexConversion, rcYes
.SetNumeric rcXfr400CompatibleAsciiFile, rcNo
.SetNumeric rcXfrCloseDlgAfterTransfer, rcNo
'.SetSQLStatement rcAS400Select, "t1.ODBGP, t1.ODBBR, t4.PT0GPT, t4.PT0BU, t3.PT2DPT, t3.PT2PRD, t1.ODBRGN, CONCAT(t1.ODBRGN, t1.ODBRGN) , t5.PT2DPT, t5.PT2PRD, t"
.SetSQLStatement rcAS400Select, "t1.ODBGP, t1.ODBBR, t4.PT0GPT, t4.PT0BU, t3.PT2DPT, t3.PT2PRD, t1.ODBRGN, t1.ODBRGN||t1.ODBRGN, t5.PT2DPT, t5.PT2PRD, t"
.AppendSQLStatement rcAS400Select, "1.ODBMID, t1.ODBBAC, t1.ODBBAD, t6.WWOSRG, t6.WWOCTC, t6.WWOARE,t1.ODBBDR,t1.ODBSTS"
.SetSQLStatement rcAS400Where, "t1.ODBRGN <> '  ' AND t2.AUXRAB = '  ' AND (t1.ODBBDR = 'N' and t1.ODBBLE = 'N' and t1.ODBBSE = 'N' and t1.ODBBUC = 'N' "
.AppendSQLStatement rcAS400Where, "and t1.ODBBAD = 'N' and t1.ODBBWH = 'N' and t1.ODBBAC = 'N') "
.SetSQLStatement rcAS400OrderBy, "t1.ODBGP , t1.ODBBR"
.SetSQLStatement rcAS400GroupBy, ""
.SetSQLStatement rcAS400Having, ""
.SetSQLStatement rcAS400JoinBy, "t1.ODBGP = t2.AUXGP  AND t1.ODBGP = t3.PT2OGP AND t1.ODBBR = t2.AUXBR  AND t1.ODBBR = t3.PT2OBR AND t1.ODBGP = t4.PT0OGP AND t2."
.AppendSQLStatement rcAS400JoinBy, "AUXGP = t5.PT2OGP AND CONCAT(t1.ODBRGN,t1.ODBRGN) = t5.PT2OBR AND t1.ODBGP = t6.WWOGRP AND t1.ODBBR = t6.WWOBRN"
.SetNumeric rcXfr400ExistsAction, rcAppend
.XfrCurrentDirectory = "R:\my doc"
.Xfr400RemoteFile = "ellib/offdrb,ellib/auxdrb,ellib/pt102p,ellib/pt100p,ellib/pt102p01,ellib/offwwd"
.Xfr400LocalFile = "F:\Groups\\AutoMonarch\Translate\branch_officesAll.csv"
.PCSReceiveFile "", True

.Exit
End With
End Sub

支行行政管理至区域管理结束（）
会话作为反射。会话
Set Session=CreateObject（“ReflectionIBM.Session”）
Session.SetupSession RC5250终端、rc31792、rcTelnet
vUID400=“A778833ODBA”
会期
.SetNumeric rcXfr400Transport，rcLIPITCP
.SetString rcHostName，“中央”
.SetString RCAPPNETID““
.SetString rcLocationName““
.SetString rcUserName，vUID400
.SetString rcPassword，vPW400
.SetNumeric rcSingleSignOn，rcNo
.SetNumeric rcTelnetUseSocks，rcNo
.SetString rcModeName，“QPCSUPP”
.SetString rcFQRemoteLu““
.SetString rcSNADomainSuffix“
.SetString rcMPTNIPAddress““
.SetNumeric RCXFRSPACESTO下划线，rcYes
.SetNumeric rcXfrUnderscoresToSpaces，rcYes
.SetNumeric rcXfrReceive8Dot3，rcNo
.SetNumeric rcXfr8Dot3FilenameCase，rcLowerCase
.SetNumeric rcXfr400ExistsAction，rcAppend
.SetNumeric RCXFR400UseScriptionFile，rcYes
.SetNumeric rcXfr400SaveDescriptionFile，rcNo
.SetNumeric rcXfr400SendConversion，rcAS400DIF
.SetNumeric rcXfr400ReceiveConversion，RCS400Commadelim
.SetNumeric rcXfr400HostFileType，RCS400Data
.SetNumeric RCXFR400权限，rcAuthReadwrite
.SetNumeric rcXfr400RecordLength，RCAS400DefaultRecen
.SetNumeric rcXfr400TimeFormat，RCS400TimeDFT
.SetNumeric rcXfr400DateFormat，rcAS400DateDFT
.SetNumeric rcXfr400TimeSeparator，RCS400Default
.SetNumeric rcXfr400DateSeparator，RCS400Default
.SetNumeric rcXfr400IgnoreDecErrors，rcNo
.SetNumeric RCXFR400Return缺失，rcYes
.SetNumeric rcXfr400DecSep，RCS400WINDEFAULT
.SetNumeric rcXfr400OutputDest，RCS400File
.SetString rcXfr400FileText““
.SetString rcXfr400MemberText“
.SetString rcXfr400SendDescFile，“R:\My Doc\pt101pup1.FDF”
.SetString RCXFR400接收描述文件“*.FDF”
.SetString rcXfr400LocalFile，“X:\NA\7799\branch_officesAll.csv”
.SetString rcXfr400RemoteFile，“ellib/offdrb，ellib/auxdrb，ellib/pt102p，ellib/pt100p，ellib/pt102p01，ellib/offwwd”
.SetString rcXfr400SortSeq，“*作业”
.SetString RCXFR400REF文件“
.SetNumeric RCXFR400对象，rcRepMemberConf
.SetNumeric rcXfr400ShowProgress，rcYes
.SetNumeric rcXfr400Charset，rcAS400ANSICS
.SetNumeric rcXfr400DeleteTrailingSpaces，rcYes
.SetString rcXfrCurrentDirectory，“R:\my documents”
.SetNumeric rcXfr400StartRecord，rcDefaultStartRecord
.SetNumeric rcXfr400NCS，rcUSEnglish
.SetNumeric RCXFR400兼容EFDFFILE，rcNo
.SetNumeric RCXFR400AssumePositiveEnumerics，rcNo
.SetString.LinkName““
.SetNumeric rcXfr400HostTP，rcLIPI
.SetNumeric rcXfr400ForceHexConversion，rcYes
.SetNumeric RCXFR400兼容易用文件，rcNo
.SetNumeric RCXFRCOSEDLGAFTERTRANSER，rcNo
'.SetSQLStatement RCS400Select，“t1.ODBGP，t1.ODBBR，t4.PT0GPT，t4.PT0BU，t3.PT2DPT，t3.PT2PRD，t1.ODBRGN，CONCAT（t1.ODBRGN，t1.ODBRGN），t5.PT2DPT，t5.PT2PRD，t”
.SetSQLStatement RCAS400选择“t1.ODBGP、t1.ODBBR、t4.PT0GPT、t4.PT0BU、t3.PT2DPT、t3.PT2PRD、t1.ODBRGN | t1.ODBRGN、t5.PT2DPT、t5.PT2PRD、t”
.AppendSQLStatement RCS400Select，“1.ODBMID、t1.ODBBAC、t1.ODBBAD、t6.WWOSRG、t6.WWOCTC、t6.WWOARE、t1.ODBBDR、t1.ODBSTS”
.SetSQLStatement，其中，“t1.ODBRGN”和t2.AUXRAB=''和（t1.ODBBDR='N'和t1.ODBBLE='N'和t1.ODBBSE='N'和t1.ODBBUC='N'”
.AppendSQLStatement，其中，“和t1.ODBBAD='N'和t1.ODBBWH='N'和t1.ODBBAC='N'）”
.setsqlorderby语句，“t1.ODBGP，t1.ODBBR”
.SetSql400GroupBy语句“”
.SetSql语句包含“”
.SetSQLStatement rcAS400JoinBy，“t1.ODBGP=t2.AUXGP和t1.ODBGP=t3.PT2OGP和t1.ODBBR=t2.AUXBR和t1.ODBBR=t3.PT2OBR和t1.ODBGP=t4.PT0OGP和t2。”
.AppendSQLStatement“AUXGP=t5.PT2OGP和CONCAT（t1.ODBRGN，t1.ODBRGN）=t5.PT2OBR和t1.ODBGP=t6.WWOGRP和t1.ODBBR=t6.WWOBRN”
.SetNumeric rcXfr400ExistsAction，rcAppend
.XfrCurrentDirectory=“R:\my doc”
.Xfr400RemoteFile=“ellib/offdrb，ellib/auxdrb，ellib/pt102p，ellib/pt100p，ellib/pt102p01，ellib/offwwd”
.Xfr400LocalFile=“F:\Groups\\automonar\Translate\branch_officesAll.csv”
.PCSReceiveFile“”，为True
出口
以
端接头

---

你觉得有什么不对吗？我检查了新旧机器上的参考资料，它们是一样的。我不知道该从这里走到哪里，也不知道下一步该做什么。感谢您的帮助……

我找到一些信息，指出我需要修改设置。首先，我登录到反思。然后我导航到：文件>设置>反射工作区设置>配置工作区默认值。在“工作区”部分，启用“上次文档关闭时退出工作区”。单击“确定”并关闭反射。之后，宏按预期运行