Question

excel VBA中出现“要求对象”怎么解决？（附代码）

Sub CopyFileContentToDesSheetByFilePath(folderPath As String, fileName As String, Optional desSheetName As String = CONST_TEMPORARY_SHEET_NAME)

CreateWorksheetAfterLast desSheetName
Dim filePath As String
filePath = GetFileSavePath(folderPath, fileName)
Dim nApp As String
Set nApp = GetObject(filePath) 这一行的“nApp”被标出来了
nApp.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets(desSheetName).Range("A1")
nApp.Close
Set nApp = Nothing
End Sub
VBA小白，折腾一天也没明白，求助各位大神！

Answer 1

看你这nApp是workbook
你先这么改下看看对不对
dim nApp
Set nApp = GetObject(folderPath & fileName)

如果不对 你做下面这步 告诉我filepath的值是什么
dim nApp
debug.print filepath
Set nApp = GetObject(filePath)

Answer 2

Dim nApp As String
改成 DIM nApp As Object 试试看

追问

试过了。改完之后会显示“自动化操作时文件名或类名未找到”。

追答

噢，那我帮不到你了。
建议把整个文件的代码完整的、原版的给专家看，你自己加的语句，很可能会误导了别人。

Answer 3

你做了注释的哪一行，set napp= 是给对象变量在赋值
但是上一行定义的时候却把napp定义成了字符串，我想是这里出问题了

你这是从哪里截取的一段代码把，最后把全码放上来

追问

　　上一行是我加的，不加的化会显示“自动化操作时文件名或类名未找到”。全码很长贴不上来，这个是public function里面的一部分，大多都和这个没有关系。

追答

Dim nApp As String

去掉 As String 试试

追问

还是显示“自动化操作时文件名或类名未找到”。

追答

CreateWorksheetAfterLast
是不是还有另一段 以上面为名称的过程？

你这发的这一点代码 完全看不到整体的全貌啊
加我QQ 55540138 都发我看看