使用者4269096840082019-12-12 01:25:39

Sub 自動將工作表Sheet2儲存至E盤（） On Error Resume Next shtname = CStr（Range（“D6”） & “-” & Range（“F6”） & “-” & Range（“H6”）） MkDir “E：報表” ActiveSheet。Copy With ActiveWorkbook 。SaveAs Filename：=“E：報表” & shtname & “。xls”， _ FileFormat：=xlExcel8， Password：=“”， WriteResPassword：=“”， _ ReadOnlyRecommended：=False， CreateBackup：=False 。Close End With End Sub 用於命名的單元格不要有特殊字元，不然達不到效果的！