Question

我有一个代码将多个Excel文件合并到一个工作簿中。我很难添加一些代码，以便在取出文件名后为新创建的工作表命名。

请帮忙。

<p>Work Floor Ramp</p>
<ul>
<li> Heavy-duty polyethylene ramp compatible with DRP20.</li>
<li> Fitted with locating pins which slot into DRP20 work floor for added stability when manoeuvring drum.</li>
<li> Manufactured with non slip resistant texture.</li>
<li> Features user friendly gradient for easy loading.</li>
</ul>
<h3 class=""showOnMobile"">Swipe right or rotate your device to see full table</h3>
<div class=""tablewrapper"">
<table>
<tbody>
<tr>
<th>Model No:</th>
<td>12345</td>
</tr><tr>
<th>Dimensions (W x D x H):</th>
<td>810 x 1290 x 180mm</td>
</tr>
</tbody>
</table>
</div>

Answer 1

您的问题是您要从每个文件复制多张纸 - 因此您不能只在源文件名后面命名纸张。如果将文件名附加到现有工作表名称，则可能会在工作表名称上达到31个字符的限制。假设这不是问题，你会这样做：

之后

 wksCurSheet.Copy After:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count)

添加

 wbkCurBook.Sheets(wbkCurBook.Sheets.Count).name = left(wksCurSheet.name & wbkSrcBook.name,31)

但我怀疑除非你的文件非常独特，否则这将无法产生足够不同的名称

合并excel工作簿，文件名后的名称表

1 个答案: