Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/23.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 错误9在其他路径中激活工作簿_Excel_Vba - Fatal编程技术网

Excel 错误9在其他路径中激活工作簿

Excel 错误9在其他路径中激活工作簿,excel,vba,Excel,Vba,当我尝试在工作簿中选择特定路径中的数据时,出现错误9 这是我的代码: myPath = "Z:\7. Personnel\Florian\Projet_BDC\Test\" myPath2 = "Z:\7. Personnel\Florian\Projet_BDC\Test\Consolidations\" Set sht = Workbooks("Consolidation.xlsm").Worksheets(2) Set wbconso_dest = Workbooks.

当我尝试在工作簿中选择特定路径中的数据时,出现错误9

这是我的代码:

   myPath = "Z:\7. Personnel\Florian\Projet_BDC\Test\"
   myPath2 = "Z:\7. Personnel\Florian\Projet_BDC\Test\Consolidations\"
   Set sht = Workbooks("Consolidation.xlsm").Worksheets(2)

Set wbconso_dest = Workbooks.Add
    wbconso_dest.SaveAs Filename:=myPath2 & "Consolidation." & Dateconso & ".xlsx"
    Workbooks(myPath & "Consolidation.xlsm").Activate
    sht.Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy Destination:=wbconso_dest.Worksheets(1)
    wbconso.Close
在这一行,我得到一个错误:

 Workbooks(myPath & "Consolidation.xlsm").Activate

此时工作簿是否实际打开?如果是这样,只需使用工作簿的名称即可,无需提供完整路径。如果它没有打开,那么您需要先打开它,然后才能激活它。我抑制了路径,但我有另一个错误:1004选择范围类的方法失败了真正的问题是为什么需要这样做?无需使用
。对于VBA
范围(“A1”).CurrentRegion中的任何内容,请选择
。复制
否您不需要:)