我正在将数据从一个工作簿/工作表复制到另一个工作簿/工作表，下面的代码提取，以及范围（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