Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/25.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 将多个工作簿中的数据合并到一个主工作簿中。失配误差_Excel_Vba - Fatal编程技术网

Excel 将多个工作簿中的数据合并到一个主工作簿中。失配误差

Excel 将多个工作簿中的数据合并到一个主工作簿中。失配误差,excel,vba,Excel,Vba,我的C:中有一个名为Diesel的文件夹,其中包含一个zmaster文件和多个包含数据的文件 zmaster只包含从A1到P3的标题。这意味着我将从A4开始粘贴数据。我的数据文件包含多行 当我运行以下代码时,发现类型13错误,类型不匹配: 从MultipleWorkBooks复制到Master的子副本数据 Dim FolderPath为字符串,Filepath为字符串,Filename为字符串 FolderPath=C:\Diesel\ Filepath=FolderPath&*.xls* F

我的C:中有一个名为Diesel的文件夹,其中包含一个zmaster文件和多个包含数据的文件

zmaster只包含从A1到P3的标题。这意味着我将从A4开始粘贴数据。我的数据文件包含多行

当我运行以下代码时,发现类型13错误,类型不匹配:

从MultipleWorkBooks复制到Master的子副本数据 Dim FolderPath为字符串,Filepath为字符串,Filename为字符串 FolderPath=C:\Diesel\ Filepath=FolderPath&*.xls* Filename=DirFilepath 将lastrow变长,lastcolumn变长 当文件名 工作簿。打开文件夹路径和文件名 lastrow=ActiveSheet.CellsRows.Count,1.EndxlUp.Row lastcolumn=ActiveSheet.Cells1,Columns.Count.EndxlToLeft.Column RangeCells3,1,CellsStrow,lastcolumn.复制 Application.DisplayAlerts=False 活动工作簿。关闭 erow=Sheet1.CellsRows.Count,1.EndxlUp.Offset1,0.Row ActiveSheet.Paste Destination=工作表Concentrado.RangeCellsRow,1,CellsRow,4 Filename=Dir 环
End Sub您需要在该代码上添加: 粘贴目的地

这应该是

ActiveSheet.粘贴目标:=

否则它将无法确定或查看要粘贴的文件。

目标:=