尝试使用宏过滤列中的所有内容，并在Excel VBA中为每个已排序项目保存单个工作簿

Question

我有一个按C列排序的报告。我需要根据C列中的每个项目保存单个工作簿。第1行中包含标题。

以下是我认为应该起作用但不能起作用的代码。 我也不确定如何将specifc文件夹保存到该文件夹​​。

 If Target.Address = "$C$2" Then
  fname = Range("C2")
  ActiveWorkbook.SaveAs Filename:=fname
 End If

Answer 1

这是一个宏，它将处理工作表中的目标单元格。 必须将其放入此特定工作表的代码中。 存储在C2单元格中的fname值示例如下：C：\\ Users \\ Taisho \\ Desktop \\ example.xlsx宏不起作用的原因可能是未将变量类型分配给Target 。

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim fname As String    

If Target.Address = "$C$2" Then
    fname = Range("C2").value2
    ActiveWorkbook.SaveAs Filename:=fname
End If

End Sub