加另存为路径代码

ddz79101

Qs18 发表于 2024-5-27 21:37
新建的工作簿复制后要关掉。不然多了就会混乱，报错

谢谢老师的提醒。我正据你昨日的提示操作另簿。现在又2个问题需请教；1运行代码有黄色；2如何新建的工作簿中删除多余表，只留导入的表。谢谢

Qs18

Sub 导出()
Dim wb As Workbook
    Dim fd As FileDialog
    Dim strFolderPath As String
' 创建FileDialog对象
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
   
    ' 设置初始文件夹路径为当前Excel文件的路径
    strFolderPath = ThisWorkbook.path
    fd.InitialFileName = strFolderPath
   
    ' 显示文件夹选择器对话框
    If fd.Show = -1 Then
        ' 用户点击了"确定"

        strFolderPath = fd.SelectedItems(1)
        MsgBox "你选择了文件夹: " & vbCrLf & strFolderPath
    Else
        ' 用户点击了"取消"
        MsgBox "文件夹选择被取消。"
        Exit Sub
    End If


For Each st In Sheets

st.Copy
Set wb = ActiveWorkbook
wb.SaveAs strFolderPath & "/" & st.Name & ".xls"


wb.Close False

Next
End Sub