我正在尝试在 Excel 中运行宏,其中用户选择要打开的文件,宏将从该工作簿复制一个范围并将其粘贴到原始工作簿中用户指定的单元格。我对代码的尝试如下所示。我将“wbThis”作为要粘贴的原始工作簿,将“wbTarget”作为要打开和复制的工作簿。当我运行代码时,我可以选择要打开的文件,但它给出一个错误,提示“需要对象”,并且不会进一步进行复制和粘贴。
有没有办法使用 Workbook.Open 而不是 Application.GetOpenFilename,但仍然让用户能够选择要打开的文件?
感谢您的帮助。
Dim wbTarget As Workbook
Dim wbThis As Workbook
Set wbThis = ActiveWorkbook
Set wbTarget = Application.GetOpenFilename(FileFilter:="Excel workbook (*.xls),*.xls", Title:="Open data")
wbThis.Activate
Set rDest = Application.InputBox(Prompt:="Please select the Cell to paste to", Title:="Paste to", Type:=8)
On Error GoTo 0
wbTarget.Activate
Application.CutCopyMode = False
wbTarget.Range("A1").Select
wbTarget.Range("B6:B121").Copy
wbThis.Activate
rDest.PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
wbTarget.Close False
最佳答案
GetOpenFileName 并不真正打开文件,只是获取文件的名称。
尝试执行 Application.Workbooks.Open(TheResultOfGetOpenFileName)
dim FileName as string
FileName = Application.GetOpenFilename(FileFilter:="Excel workbook (*.xls),*.xls", Title:="Open data")
Set wbTarget = Application.Workbooks.Open(FileName)
关于excel - 打开用户指定的 Excel 工作簿并将数据范围复制到另一个工作簿,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/15641558/