Vba用工作薄单元格的内容把新建的工作表转移到新建的文件夹中

在VBA（Visual Basic for Applications）中，你可以创建一个宏来将Excel工作簿中的内容复制到新的工作表并保存到特定的文件夹。下面是一个简单的示例，它假设你已经有了一个包含数据的工作簿，你想将其中的某个工作表复制到名为"NewFolder"的文件夹下：

Sub CopySheetToFolder()

    ' 获取当前活动工作簿
    Dim wb As Workbook
    Set wb = ThisWorkbook
    
    ' 指定你要复制的工作表名
    Dim wsName As String
    wsName = "Sheet1" ' 替换为你实际的工作表名
    
    ' 创建一个新的工作簿，并设置保存位置
    Dim newWb As Workbook
    Set newWb = Workbooks.Add()
    newWb.SaveAs Filename:="NewFolder\" & wsName & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    
    ' 复制源工作表内容
    Dim sourceSheet As Worksheet
    Set sourceSheet = wb.Worksheets(wsName)
    
    Dim targetSheet As Worksheet
    Set targetSheet = newWb.Worksheets(1) ' 新工作簿默认的第一张工作表
    
    ' 复制数据
    targetSheet.Cells(1, 1).Resize(sourceSheet.Cells(Rows.Count, 1).End(xlUp).Row, _
                                   sourceSheet.Cells(Columns.Count, 1).End(xlToLeft).Column).Value = sourceSheet.Value

    ' 关闭原工作簿和新工作簿
    wb.Close SaveChanges:=False
    newWb.Close SaveChanges:=True

End Sub

运行这个宏后，源工作表的内容会被复制到指定的新文件夹下的新工作簿里。