返回列表 上一主題 發帖

"sheeet1"為不固定字串及數字,如何另存新檔

回復 6# yueh0720


    sFile = ThisWorkbook.Path & "\" & .Name & ".xls"
改成
sFile = "E:\test\" & .Name & ".xls"
學海無涯_不恥下問

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大,小人氣大。
返回列表 上一主題