[已解决]打开指定文件并另存

excel用账户

求助大佬帮忙看看文件另存为后无法打开

Sub Sample1()
     With Application.FileDialog(msoFileDialogFilePicker)
         If .Show = True Then
             fn = .SelectedItems(1)
         End If
     End With
     Workbooks(fn).SaveAs "d:\Users\Desktop" & "\123.xlsx"
End Sub

最佳答案

月排行榜 / 总排行榜

风林火山

2021-8-18 10:53

没有打开文件，当然另存不成功了
Sub Sample1()
     With Application.FileDialog(msoFileDialogFilePicker)
          If .Show = True Then
             fn = .SelectedItems(1)
             Workbooks.Open (fn)
             ActiveWorkbook.SaveAs "d:\123.xlsx"
         End If
     End With
End Sub

跳转到最佳答案楼层

风林火山

没有打开文件，当然另存不成功了
Sub Sample1()
     With Application.FileDialog(msoFileDialogFilePicker)
          If .Show = True Then
             fn = .SelectedItems(1)
             Workbooks.Open (fn)
             ActiveWorkbook.SaveAs "d:\123.xlsx"
         End If
     End With
End Sub

excel用账户

风林火山 发表于 2021-8-18 10:53
没有打开文件，当然另存不成功了
Sub Sample1()
     With Application.FileDialog(msoFileDialogFilePic ...

谢谢