Excel 将数据附加到其他工作簿/文件

我有以下代码：

    Private Sub TransfertoWrkBtn_Click()

    Dim c As Range
    Dim i As Range
    Dim j As Integer
    Dim Source As Worksheet
    Dim fSource As Worksheet
    Dim TargetBook As Workbook
    Dim Target As Worksheet
    Dim fTarget As Worksheet

    Set Source = ActiveWorkbook.Worksheets("Customer")
    Set fSource = ActiveWorkbook.Worksheets("Family")

flname = InputBox("Enter File Name :", "Creating New File...")

If flname <> "" Then
     Set TargetBook = Workbooks.Add

  TargetBook.SaveAs Filename:="C:\MSN\" & flname
  TargetBook.Sheets.Add.Name = "Family"
  TargetBook.Sheets.Add.Name = "Customer"

End If


Set Target = ActiveWorkbook.Worksheets("Customer")

   j = 2     ' Start copying to row 1 in target sheet
   For Each c In Source.Range("v1:v10000")   ' Do 1000 rows
       If c = flname Then
           Source.Rows(c.Row).Copy Target.Rows(j)
       j = j + 1
          End If
    Next c


Set fTarget = ActiveWorkbook.Worksheets("Family")

j = 2     ' Start copying to row 1 in target sheet
   For Each i In fSource.Range("n1:n10000")
       If i = flname Then
           fSource.Rows(i.Row).Copy fTarget.Rows(j)
       j = j + 1
          End If
    Next i

End Sub

Private Sub transferToWKBTN\u Click（）
调光范围
暗i作为范围
作为整数的Dim j
将源设置为工作表
将F源设置为工作表
将TargetBook设置为工作簿
将目标变暗为工作表
将目标设置为工作表
Set Source=ActiveWorkbook.Worksheets（“客户”）
设置fSource=ActiveWorkbook.Worksheets（“系列”）
flname=InputBox（“输入文件名：”，“创建新文件…”）
如果名称为“”，则
设置TargetBook=工作簿。添加
TargetBook.SaveAs文件名：=“C:\MSN\”&flname
TargetBook.Sheets.Add.Name=“家族”
TargetBook.Sheets.Add.Name=“客户”
如果结束
设置目标=活动工作簿。工作表（“客户”）
j=2'开始复制到目标工作表中的第1行
对于Source.Range（“v1:v10000”）中的每个c，执行1000行
如果c=flname，则
Source.Rows（c.Row）.复制Target.Rows（j）
j=j+1
如果结束
下一个c
设置fTarget=ActiveWorkbook.Worksheets（“系列”）
j=2'开始复制到目标工作表中的第1行
对于fSource.范围内的每个i（“n1:n10000”）
如果i=flname，那么
fSource.Rows（i.Row）.复制fTarget.Rows（j）
j=j+1
如果结束
接下来我
端接头

此代码仅用于创建新文件、复制数据和删除现有文件。 我需要一种方法来检查文件是否存在，如果存在，检查当前行是否需要更新或/和添加。 任何帮助都将不胜感激。

---

谢谢。

要检查变量

flname

中的文件名是否存在，请使用

Dir（）

函数

If Dir(flname) = "" Then
  Msgbox("File does not exist.")
  Exit Sub
End If

---

并检查当前行是否需要更新或添加？