将粘贴工作表名称复制到另一个工作簿

Question

我很难做到这一点。当我启动宏时，它不会产生任何错误，但都不会给我任何结果。

Sub EmpresasCubiertas()


Dim x As Workbook
Dim y As Workbook

'## Open both workbooks first:
Set x = Workbooks.Open("G:\Estudios\Biblioteca\Mercado Accionario Chileno\InsertarEmpresa.xlsm")
Set y = Workbooks.Open("G:\Estudios\Biblioteca\Mercado Accionario Chileno\Procesamiento.xlsm")

For i = 3 To x.Sheets.Count

'Now, paste to y worksheet:

y.Sheets(1).Range(“A” & i) = x.Sheets(i).Name

Next i


End Sub

请注意工作簿＆＃34; y＆＃34;是我首先打开运行宏的工作簿。即如果它有任何帮助，它已经打开了。

Answer 1

问题在于循环中Range附近缺少Value属性。它应该读，

$_POST

我假设您故意选择从i = 3开始复制工作表名称。如果您需要所有工作表，只需将i的值更改为1.

试试这个：

$title = htmlentities($_POST['title']);
...
echo html_entity_decode($title); // outputs proper HTML