VBA Excel 2013复制/粘贴 - 确保粘贴是一个值

Question

我正在将数据从一个工作簿/工作表复制到另一个工作簿/工作表，下面的代码提取，以及范围（I119，I65）复制/粘贴。我的问题是ProvId复制/粘贴有时会按预期输入4位数ID，但有时会输入“今天的日期”。发生这种情况的时候是Cell D9是一个公式。如何确保ProvId始终是D9的值，在Excel中，Value函数可以正常工作。

 Workbooks.Open Filename:=path & excelfile, UpdateLinks:=False  'Open each upload excel file


 ActiveWorkbook.Sheets("Audit Grant Return").Range("I19,I65").Copy

 ProvId = Cell("D9")


 MsgBox ("Id" & ProvId)   'To see what is happening


 ActiveWorkbook.Close


 Workbooks("15-16 AGR Data Imported.xlsm").Sheets(1).Activate
 Sheets("Upload").Select

 ActiveSheet.Range(Cells(2, ActiveRow), Cells(2, ActiveRow)) = ProvId
 ActiveSheet.Range(Cells(4, ActiveRow), Cells(4, ActiveRow)).PasteSpecial

 ProvId = ""
 ActiveRow = ActiveRow + 1

这循环拾取所有要上传的文件，除了这个ProvId问题以外工作正常。仅供参考我是Dim ProvId As Text'从上传文件中存储提供商ID