sDirRead = App.Path + "\..\Project\" + g_sItemCode + "\" + g_sPrjCode + "\SAPDATA.F3"
debug.print sDirRead '加上这一句,到这里中断一下,看看值是多少,再看看上一句每个变量的值是否正确
Open sDirRead For Input As FileNum
App.Path + "..\Project\" + g_sItemCode + "\" + g_sPrjCode + "\SAPDATA.F3